- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口PictureViewer问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103052)
-- 发布时间：2017/6/29 17:48:00
-- 窗口PictureViewer问题
1.下图中的“增加”图片功能，能去掉吗？
2.怎么样旋转图片？
此主题相关图片如下：qq图片20170628215132222.png
[此贴子已经被作者于2017/6/29 17:48:20编辑过]
-- 发布时间：2017/6/29 18:08:00
--
1、
http://www.foxtable.com/webhelp/scr/2286.htm
2、
| 下载信息 [文件大小：188.6 KB 下载次数：1024] | |
 点击浏览该文件:图片管理器加入拍照扫描旋转打印功能.rar |
-- 发布时间：2017/6/29 21:12:00
--
楼上第2个，我是高级开发版，打不开，麻烦转换下，谢了
-- 发布时间：2017/6/29 21:14:00
--
以下是引用zhangjian222200在2017/6/29 21:12:00的发言：
楼上第2个，我是高级开发版，打不开，麻烦转换下，谢了
在下载高级开发版的那个地址，下载一个商业版，安装，即可打开。
-- 发布时间：2017/6/30 9:56:00
--
2楼第2个，打开发现例子是PictureBox，而我用的是PictureViewer，还是需要帮助
以下是正传90的代码：
Dim zp As WinForm.PictureBox = e.Form.Controls("照片") ’这是原来的代码
Dim zp As WinForm.PictureViewer = e.Form.Controls("PictureViewer1") ’这是我替换的代码
Dim bmp As new bitmap(zp.Image)
bmp.rotateflip(RotateFlipType.Rotate90FlipNone)
zp.Image = bmp
保存提示：
此主题相关图片如下：qq图片2017063009544333.png
上述代码写在，正转90按钮的click事件内：
此主题相关图片如下：qq图片2017063010015999.png
[此贴子已经被作者于2017/6/30 10:03:02编辑过]
-- 发布时间：2017/6/30 10:01:00
--
\'左转90
Dim piv As WinForm.PictureViewer = Forms("图片管理器").Controls("PictureViewer1")
Dim zp As String = piv.SelectedItem
If zp IsNot Nothing Then
Dim bmp As New bitmap(zp)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save(zp)
Dim obj As object = piv.basecontrol.Controls(0)
Dim pic As Object = obj.panel1.controls("PictureSplitContainer").Panel1.controls("panel2").controls("C1PictureBox1")
pic.Image = bmp
End If
-- 发布时间：2017/6/30 10:10:00
--
mark
-- 发布时间：2017/6/30 10:22:00
--
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2017.6.12.1
错误所在事件：窗口,男生资料主窗口,Button16,Click
详细错误信息：
参数无效。
Dim piv As WinForm.PictureViewer = Forms("男生资料主窗口").Controls("PictureViewer1")
Dim zp As String = piv.SelectedItem
If zp IsNot Nothing Then
Dim bmp As New bitmap(zp)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save(zp)
Dim obj As object = piv.basecontrol.Controls(0)
Dim pic As Object = obj.panel2.controls("PictureSplitContainer").Panel1.controls("panel3").controls("C1PictureBox1")
’上述粉色代码，是指哪些控件？
pic.Image = bmp
End If
-- 发布时间：2017/6/30 10:46:00
--
这个些是狐表底层的东西，就是PictureViewer里面的子控件，不需要理会，知道怎么用就行了
-- 发布时间：2017/6/30 11:04:00
--
8楼代码写在窗口：“男生资料主窗口”的“左转90”的click事件内，粉色部分代码实在不会改，还麻烦看下
此主题相关图片如下：qq图片20170630105736666.png
[此贴子已经被作者于2017/6/30 11:12:23编辑过]