我要做一個程式:將撲克牌拖曳至一個標籤控制方塊內,拖曳時要實際拖曳撲克牌,而非一般拖曳的灰色框架,當撲克牌碰到方塊鬆開滑鼠,撲克牌就置於方塊內,若未放置成功就返回原位.
拖曳圖形要用寫的,而不是改屬性質,
我只能單獨寫拖曳圖形或放置到方塊中,實在是無法將兩者合併,請各位高手教教我吧!
Dim dx,dy As Integer
Private Sub img2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
dx = X<-----紀錄按下滑鼠時的座標
dy = Y
End Sub
Private Sub img2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
img2.Move img2.Left + X - dx, img2.Top + Y - dy<---去計算移動的座標
End If
End Sub
arrow
arrow
    全站熱搜

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