以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]希望代码能简洁一点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70837)
--  作者：monvzhilei
--  发布时间：2015/6/30 8:27:00
--  [求助]希望代码能简洁一点

我昨天折腾了图片控件，还是半成品。 估计是系统的bug 。图片会显示，但是不完美。

 

今天，我使用了图片浏览器控件，就是pictureviewer1 。  我使用了代码去除最下面的 增加，删除 ，打开，重连等按钮。

  代码如下：

 

    

Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.DeleteCommand.Visible = False
pv.openCommand.Visible = False

pv.Addcommand.visible = False
pv.fullviewcommand.visible = False
pv.managercommand.visible = False
pv.stretchcommand.visible = False
pv.updatecommand.visible = False
pv.saveascommand.visible = False
pv.deletecommand.visible = False
pv.clearcommand.visible = False
pv.connectcommand.visible = False

 

 

我现在想，这么多代码，能否简单一点啊。  这个也太长了。

 

[此贴子已经被作者于2015/6/30 8:27:55编辑过]
--  作者：Bin
--  发布时间：2015/6/30 8:32:00
--  
这个只能一个个设置.
--  作者：y2287958
--  发布时间：2015/6/30 8:33:00
--  
已经很简单了，其实不算长。
--  作者：大红袍
--  发布时间：2015/6/30 9:38:00
--  

1、图片控件测试很正常啊；

 

2、可以用代码控制

 

Dim obj As object = e.Form.Controls("PictureViewer1").basecontrol.Controls(0)
\'obj.SplitterDistance= obj.Height
obj.panel2.controls("FlowLayoutPanel2").Controls.clear
--  作者：monvzhilei
--  发布时间：2015/6/30 10:34:00
--  

to 大红袍版主。

 图片控件测试是可以使用的，这个首先是没有疑问的。  但是 ，使用远程FTP服务器文件是有问题的 。   具体体现在这样子：

    第一步：  一条一条记录查看，有些有图片，有些没有显示。（更多的是没有图片）

    第二步：当没有图片时候，可以点击照片列（这样可以显示图片）。（照片列的列属性里面设置好fTP地址，根目录）

    第三步：点击其余记录。

    第四步：回到刚才图片控件的窗口。这样就显示出来了。

 

 

 反复这样。不可能就是我的巧合啊。

 
--  作者：大红袍
--  发布时间：2015/6/30 10:47:00
--  
 那你就用PictureViewer1吧，能用就行。