我已經曉得讓各別的物件移動的方法,但是不曉得該怎麼將textbox與picture相連起來並且一起移動?請曉得方法的朋友們告知一下,多謝!!
以下是讓一個物件移動的程式碼:
Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
With Picture1(Index)
PosY = .Top + Y - inY
PosX = .Left + X - inX
If Button = 1 Then
.Move PosX, PosY
End If
End With
End Sub
以下是讓一個物件移動的程式碼:
Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
With Picture1(Index)
PosY = .Top + Y - inY
PosX = .Left + X - inX
If Button = 1 Then
.Move PosX, PosY
End If
End With
End Sub
全站熱搜
留言列表