- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口中只有一个图片组件，有没有办法操作图片放大和旋转呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192326)
-- 发布时间：2024/6/14 14:16:00
-- [求助]窗口中只有一个图片组件，有没有办法操作图片放大和旋转呢
窗口中只有一个图片组件，有没有办法操作图片放大和旋转呢
-- 发布时间：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
-- 发布时间：2024/6/14 16:55:00
--
大佬 有办法通过按钮实现把图片放大缩小吗
-- 发布时间：2024/6/14 17:00:00
--
把2楼的用法放到按钮里不就行了
-- 发布时间：2024/6/14 17:06:00
--
左右旋转非常好用，感谢大佬。
图片我想用按钮实现放大镜功能，点击自动放大一定的倍数，另一个按钮点击实现直接还原本显示来的图片大小，这个用缩放的那个方式可以吗
-- 发布时间：2024/6/14 17:11:00
--
试试不就知道了
-- 发布时间：2024/6/14 17:14:00
--
或者看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65142&skin=0
-- 发布时间：2024/6/14 17:20:00
--
麻烦老师帮看看这是为啥呢
-- 发布时间：2024/6/14 17:21:00
--
Dim 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
-- 发布时间：2024/6/14 17:21:00
--
出现了一个这样的报错