[浏览完整版]
标题：[求助]窗口中只有一个图片组件，有没有办法操作图片放大和旋转呢
1楼
yzh666 发表于：2024/6/14 14:16:00窗口中只有一个图片组件，有没有办法操作图片放大和旋转呢
2楼
有点蓝 发表于：2024/6/14 14:49:00缩放：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=89637
旋转
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=91470
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65593
3楼
yzh666 发表于：2024/6/14 16:55:00大佬 有办法通过按钮实现把图片放大缩小吗
4楼
有点蓝 发表于：2024/6/14 17:00:00把2楼的用法放到按钮里不就行了
5楼
yzh666 发表于：2024/6/14 17:06:00左右旋转非常好用，感谢大佬。
图片我想用按钮实现放大镜功能，点击自动放大一定的倍数，另一个按钮点击实现直接还原本显示来的图片大小，这个用缩放的那个方式可以吗
6楼
有点蓝 发表于：2024/6/14 17:11:00试试不就知道了
7楼
有点蓝 发表于：2024/6/14 17:14:00或者看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65142&skin=0
8楼
yzh666 发表于：2024/6/14 17:20:00麻烦老师帮看看这是为啥呢
9楼
yzh666 发表于：2024/6/14 17:21:00Dim file As String = e.Form.Controls("url").Value
Dim img As image = getImage(file)
Dim bmp As bitmap
If img.width > 800 Then
If 800 * (img.height / img.width) > 600 Then
bmp = New bitmap(img, 800 * (600 / (800 * (img.height / img.width))), 600)
Else
bmp = New bitmap(img, 800, 800 * (img.height / img.width))
End If
End If
bmp.save(file)
bmp.Dispose
e.Form.Controls("p1").ImageFile = file
10楼
yzh666 发表于：2024/6/14 17:21:00
出现了一个这样的报错