用vb.net创建一个鼠标绘图程序

• 关 键 词：
• windows
• vb.net

在使用画图工具的时候，会不会觉得别人的程序有鼠绘功能很神奇呢！其实我们也可以在程序中实现一个简单鼠标绘图功能。

一个鼠标绘制图像的过程，都需要用到MouseDown、MouseMove、MouseUp鼠标事件，我们在鼠标按下的时候记录下鼠标的起点以及标记鼠标的状态(使用bMouse变量)，然后在鼠标释放的时候进行绘制。代码如下所示。

首先定义需要用到的代码

Dim x1 As Integer

Dim x2 As Integer

Dim y1 As Integer

Dim y2 As Integer

Dim mPen As Pen = New System.Drawing.Pen(System.Drawing.Color.Red)

Dim bMouse As Boolean = False

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

bMouse = True

x1 = e.X

y1 = e.Y

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If bMouse = False Then

Exit Sub

Else

Dim g As Graphics

x2 = e.X

y2 = e.Y

g = Me.CreateGraphics

g.DrawLine(mPen, x1, y1, x2, y2)

x1 = x2

y1 = y2

End If

End Sub

'鼠标释放的时候，初始化

Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp

bMouse = False

End Sub

http://www.qqread.com/book/myvbnet/200712271.html

运行后，我们就可以使用鼠标在窗体上绘画了，如下图一所示：

图一：鼠绘效果

【深 度 阅 读】 相 关 文 章

• VB.NET 入门教程
• VB.Net图解入门
• 细说ＶＢ．ＮＥＴ
• 全面剖析VB.NET