Foxtable(狐表)用户栏目专家坐堂 → 关于PictureViewer的各命令


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

主题:关于PictureViewer的各命令

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


加好友 发短信
等级:五尾狐 帖子:1033 积分:7258 威望:0 精华:0 注册:2008/9/1 22:34:00
关于PictureViewer的各命令  发帖心情 Post By:2012/5/25 11:38:00 [显示全部帖子]

PictureViewer提供了以下属性,用于返回底端的各命令:

AddCommand :增加
DeleteCommand:删除
ClearCommand:清除
OpenCommand:打开
FullViewCommand:全屏
ManagerCommand:管理
SaveAsCommand:另存
StretchCommand:缩放

 

 

 

请问我在设计窗口时不显示这些命令,然后双击图片能调用上面的其中的一个吗,比如双击图片时能执行OpenCommand


 回到顶部
帅哥哟,离线,有人找我吗?
yankunhao
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1033 积分:7258 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2012/5/25 12:30:00 [显示全部帖子]

我知道可以隐藏,但如果我想直接双击显示的图示后就能用看图软件打开,请问有没方法。


 回到顶部
帅哥哟,离线,有人找我吗?
yankunhao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1033 积分:7258 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2012/5/25 13:48:00 [显示全部帖子]

我在设口设计中的

DoubleClick 事件中设定下面的代码,为什么无效?

If e.Sender=e.Form.Controls("PictureViewer1") Then
Dim Proc As New Process '定义一个新的Process
Proc.File = Tables("obas_part_spec").Current("graph3")
'指定要打开的文件
Proc.Start()

End If


 回到顶部
帅哥哟,离线,有人找我吗?
yankunhao
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1033 积分:7258 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2012/5/25 13:55:00 [显示全部帖子]

这样也不行:

If e.Sender.name="PictureViewer1" Then
Dim Proc As New Process '定义一个新的Process
Proc.File = Tables("obas_part_spec").Current("graph3")
'指定要打开的文件
Proc.Start()

End If


 回到顶部