- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 图片游览器独立控制 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55323)
-- 发布时间：2014/8/14 13:34:00
-- 图片游览器独立控制
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")("PictureViewer2")("PictureViewer3")
pv.AddCommand.Visible = True \' :增加
pv.DeleteCommand .Visible = True \':删除
pv.ClearCommand.Visible = False \':清除
pv.OpenCommand.Visible = False \':打开
pv.FullViewCommand.Visible = True \':全屏
pv.ManagerCommand.Visible = False \' :管理
pv.SaveAsCommand.Visible = True \' :另存
pv.StretchCommand.Visible = False \' :缩放
pv.UpdateCommand.Visible = True \':更新
pv.ConnectCommand.Visible = False \':重连
三个图片游览器控制方式一样 怎样一起写
-- 发布时间：2014/8/14 14:00:00
--
for each i as integer = 1 to 3
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer" & i) pv.AddCommand.Visible = True \' :增加 pv.DeleteCommand .Visible = True \':删除 pv.ClearCommand.Visible = False \':清除 pv.OpenCommand.Visible = False \':打开 pv.FullViewCommand.Visible = True \':全屏 pv.ManagerCommand.Visible = False \' :管理 pv.SaveAsCommand.Visible = True \' :另存 pv.StretchCommand.Visible = False \' :缩放 pv.UpdateCommand.Visible = True \':更新 pv.ConnectCommand.Visible = False \':重连 |
next
-- 发布时间：2014/8/14 15:09:00
--
貌似不行哦 老师
此主题相关图片如下：qq截图20140814150750.png
-- 发布时间：2014/8/14 15:10:00
--
for i as integer = 1 to 3
-- 发布时间：2014/8/14 15:21:00
--
顶
[此贴子已经被作者于2014-8-14 15:22:09编辑过]