189 8069 5689
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 格式的
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
我调试成功的例子。
。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 值可以判断滚动方向