以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  从vb.net 迁入foxtable 出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158190)

--  作者:zsxx999ja
--  发布时间:2020/11/10 23:22:00
--  从vb.net 迁入foxtable 出错

为了学习图片的旋转,我在百度上收到了下面的代码:https://blog.csdn.net/UruseiBest/article/details/72582400

仿照此代码,我设计了窗体(需解压)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:testfrm.rar

运行时出错,好像变量都定义了仍 然报错,请指正

图片点击可在新窗口打开查看此主题相关图片如下:出错.jpg
图片点击可在新窗口打开查看

 

此处的代码如下:

Dim picSource As WinForm.PictureBox = e.Form.Controls("picSource")
Dim picDest As WinForm.PictureBox = e.Form.Controls("picDest")
Dim sourceImg As Bitmap
sourceImg =  new Bitmap("D:\\蒋安\\蒋安个人资料\\督导组财务\\ddzcw2020\\ddzcw\\image")
picSource.Image = sourceImg
Dim destImg As Bitmap
destImg = sourceImg.Clone
Dim cbRotateFlip As WinForm.ComboBox = e.Form.Controls("cbRotateFlip")
Select Case cbRotateFlip.Text
    Case "Rotate180FlipX"
        destImg.RotateFlip(RotateFlipType.Rotate180FlipX)
    Case "Rotate180FlipNone"
        destImg.RotateFlip(RotateFlipType.Rotate180FlipNone)
    Case "Rotate180FlipXY"
        destImg.RotateFlip(RotateFlipType.Rotate180FlipXY)
End Select
picDest.Image = destImg


--  作者:有点蓝
--  发布时间:2020/11/11 8:35:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=91470
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65593
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65421