缩放操作
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取倍数的信息别忘了在本站进行查找喔 。
推荐阅读
- gis中怎么转txt,gis数据转换
- 线上小酒馆小程序开通,小酒馆怎么付钱
- 警告本服务器放置于美国,警告本服务器位于美国
- 怎样安装sqlserver2016,怎样安装mt4平台
- 爬虫python豆瓣电影,python爬虫豆瓣影评
- ios13新增表情在哪里,苹果13专有表情
- python回归分析函数 用python做回归分析案例
- 包含纯纯牛马是什么梗视频的词条
- 怎么复制pdf表格内容不显示不出来,怎么复制pdf表格内容不显示不出来了