以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  能否实现图片旋转  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=176502)

--  作者:aidimeng
--  发布时间:2022/4/15 13:28:00
--  能否实现图片旋转

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20220415132334.png
图片点击可在新窗口打开查看
如上图,能否增加哥按钮 来旋转图片啊。
程序已经做了    .Rotate = 1 \'顺时钟旋转90°
也和客户说明了拍照方式,但个别拍照后就是不旋转
因此想增加个 调整按钮,不知道怎么实现

--  作者:有点蓝
--  发布时间:2022/4/15 13:46:00
--  
做不了。按帮助的方法处理不行就没有办法了
--  作者:aidimeng
--  发布时间:2022/4/15 13:59:00
--  
使用JS不可以吗
--  作者:有点蓝
--  发布时间:2022/4/15 14:04:00
--  
weui的.Rotate = 1用法就是使用js做的。您可以自己看看框架里的js文件,然后自己使用浏览器的开发者工具调试一下,看看为什么不起作用
--  作者:zhuxinhui
--  发布时间:2023/4/23 16:52:00
--  

Dim p As winform.picturebox = Forms("窗口1").Controls("Picturebox1")
Dim bmp As New bitmap(p.image)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
p.image = bmp

bmp.save("d:\\test.jpg")


--  作者:puma
--  发布时间:2024/1/3 22:08:00
--  
非常感谢,转换成功了
以下是引用zhuxinhui在2023/4/23 16:52:00的发言:

Dim p As winform.picturebox = Forms("窗口1").Controls("Picturebox1")
Dim bmp As New bitmap(p.image)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
p.image = bmp

bmp.save("d:\\test.jpg")