vb.net取倍数 vbnet substring( 二 )


缩放操作
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取倍数 vbnet substring】vb.net取倍数的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于vbnet substring、vb.net取倍数的信息别忘了在本站进行查找喔 。

推荐阅读