0
我在視覺基本網點我有一個圖片框,我需要移動它,用戶點擊並移動鼠標和圖片框需要移動它時,用戶釋放鼠標圖片框有位置移動圖片框vb.net mousekeydown和以上
Public Class Form1
Dim punto As New Point()
Private Sub PictureBox1_MouseDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
punto = Cursor.Position
PictureBox1.Location = punto
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
punto = Cursor.Position
PictureBox1.Location = punto
End Sub
End Class