vb.net鼠标绘图 vb绘图教程

VB如何绘制鼠标拖动轨迹

Dim xx As Double, yy As Double

公司主营业务：成都网站建设、成都网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联建站是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联建站推出化德免费做网站回馈大家。

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If xx = 0 And yy = 0 Then

xx = X: yy = Y

Else

Form1.Line (xx, yy)-(X, Y), 1

End If

xx = X: yy = Y

End Sub

我调试成功的例子。

VB.NET picturebox 内绘图完图形放大缩小移动 鼠标控制 。比较笨看了VB的代码不明白 求解

。net 不用api就行

缩放操作

Function 缩放(ByVal bitmap As Bitmap, ByVal 倍数 As Single) As Bitmap

Dim w As Integer = bitmap.Width * 倍数

Dim h As Integer = bitmap.Height * 倍数

Dim tem As New Bitmap(w, h)

Dim g As Graphics = Graphics.FromImage(tem)

g.DrawImage(bitmap, New Rectangle(0, 0, w, h), New Rectangle(0, 0, bitmap.Width, bitmap.Height), GraphicsUnit.Pixel)

g.Dispose()

Return tem

End Function

鼠标滚轮事件 MouseWheel

MouseEventArgs.Delta 值可以判断滚动方向

VB.NET能否实现让鼠标通过的地方出现星星（鼠标美化的代码）

比较复杂了

调用windows api函数GetDesktopWindow()获取桌面窗口的句柄，然后根据这个句柄创建一个DC，之后调用DC的绘图函数即可

完成这个功能你需要掌握：

1.在VB.NET中调用Windows API函数

2.学会使用GDI+绘图(System.Drawing命名空间下)

如何通过vb.net WinForm窗体上画线条或弧线，让用户可以用鼠标捕捉（选中）已画的线条。

代码写起来可能比较麻烦，给你个思路，就是用GraphicsPath来绘制，然后通过绘制目标的鼠标移动事件来获取当前鼠标在绘制目标中的实际位置，再通过GraphicsPath的IsVisible()方法来确认鼠标是否包含在GraphicsPath中。

DrawLine直线比较容易处理，只要得到Line的坐标点，然后比较当前鼠标坐标就好。