如何使用vb.net 2010（VB代码）存储阵列中的位置值（x，y）

Question

我通过移动鼠标来获取位置值。

现在我想存储该位置值。

然后当我移动鼠标时画线。

在此先感谢。

Answer 1

我可以通过点击鼠标并移动它来帮助您画线。

第一：添加图片框

这里是代码：

Public Class Form1 
Dim Down As String = False 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

End Sub 

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown 
    Down = True 
End Sub 

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove 
    If Down = True Then 
     PictureBox1.CreateGraphics.FillEllipse(Brushes.Black, e.X, e.Y, 5, 5) 
    End If 
End Sub 

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp 
    Down = False 
End Sub 

如果你需要画线不点击鼠标（只是移动它）：

Public Class Form1 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

End Sub 

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove 
    PictureBox1.CreateGraphics.FillEllipse(Brushes.Black, e.X, e.Y, 5, 5) 
End Sub 

我希望我的回答对你有用:)