|
|
Postada em 06/07/2006 15:36 hs
Valeu, deu certo EM PARTES........... Quando é apenas um objeto, funciona perfeito, mas quando coloca mais de um, ele da pau.. tentei criar indice ou outro objeto mrdmo, mas quando clico num o outro some. esse trem e complicado demais.. mas Agradeço..se puder me ajudar ainda agradeço... |
|
|
|
|
|
|
|
Postada em 06/07/2006 16:11 hs
CORREÇÃO:
Use esta ultima forma p/ shape tambem!
|
|
|
|
|
|
Postada em 06/07/2006 16:23 hs
teste tambem, q e foda e so se inserir outra imagem..trabalhar com 2 objetos.. tentei fazer o INDICE, mas tambem nao deu certo..esse tem e complicado demais |
|
|
|
|
|
Postada em 08/07/2006 03:07 hs
Dim Mover1 As Boolean
Dim Mover2 As Boolean
Dim XDist As Long
Dim YDist As Long
Private Sub Form_Load()
Image1.Enabled = False
Image2.Enabled = False
Mover1 = False
Mover2 = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= Image1.Left And _
X <= Image1.Left + Image1.Width And _
Y >= Image1.Top And _
Y <= Image1.Top + Image1.Height Then
Mover1 = True
XDist = X - Image1.Left
YDist = Y - Image1.Top
Else
If X >= Image2.Left And _
X <= Image2.Left + Image1.Width And _
Y >= Image2.Top And _
Y <= Image2.Top + Image1.Height Then
Mover2 = True
End If
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Mover1 Then
Image1.Left = X - XDist
Image1.Top = Y - YDist
Else
If Mover1 Then
Image1.Left = X - XDist
Image1.Top = Y - YDist
End If
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mover1 = False
Mover2 = False
End Sub
veja... se vc prestar atenção no code, vera q está quase igual... o que eu fiz foi apenas uma pequena adaptação para + d 1 image, ae vc faz essa msm adaptação p/ as demais images....
apenas por curiosidade, n lembro se vc posto ja, pois n li hj o seu 1º post, d q se trata seu programa?
|
|
|
|
|
|
Postada em 08/07/2006 18:45 hs
eu trabalho como treinador de futebol, categoria infantil.. Gostaria de montar esquemas de futebol num campo. na verdade, tenho que olhar a questão de indice, pois tem 22 atletas em campo e colocar 22 imagens fica complicado o código. |
|
|
|
|
