vb.net鼠标移动绘图,vbs模拟鼠标移动

在vb.net中，运行代码之后在picturebox里用鼠标移动事件，画了一条曲线，我想保存这个曲线成图片格式

Picture1.AutoRedraw = True

'必须设为 True ，这样才能图形和文本输出到屏幕，并存储在内存的图象中。然后可以使用 Image 属性

SavePicture Picture1.Image, "C:\Pic1.BMP"

'此代码保存的是 Picture1 里使用 Line 、 Circle 、PaintPicture 等绘图方法画出来的图片，包括背景色以及 PICTURE 属性指定的背景图片

'Picture1.Image 就是调用了 Picture1 的 Image 属性

'"C:\Pic1.BMP" 就是保存的文件名

'注意：Image 属性输出的图片总是 BMP 格式的。如果要保存成 JPG/GIF 等格式，则必须转换！

SavePicture Picture1.Picture, "C:\Pic1.BMP"

'此代码保存的是 Picture1 里的 PICTURE 属性里的图片

'PICTURE 属性输出的图片格式取决于 PICTURE 属性里的图片的格式。

'例如，如果使用 LoadPicture("C:\B1.GIF") 导入了一个 GIF 图片，则 PICTURE 属性输出的图片的格式就是 GIF 格式的

相关问答

Q1: 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

我调试成功的例子。

Q2: 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 值可以判断滚动方向