我已經曉得讓各別的物件移動的方法,但是不曉得該怎麼將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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()