Foxtable(狐表)用户栏目专家坐堂 → 从vb.net 迁入foxtable 出错


  共有1964人关注过本帖树形打印复制链接

主题:从vb.net 迁入foxtable 出错

帅哥哟,离线,有人找我吗?
zsxx999ja
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:206 积分:2193 威望:0 精华:0 注册:2020/10/3 6:58:00
从vb.net 迁入foxtable 出错  发帖心情 Post By:2020/11/10 23:22:00 [显示全部帖子]

为了学习图片的旋转,我在百度上收到了下面的代码: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


 回到顶部