以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片管事器的控件类型  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49754)
--  作者：ndxfke
--  发布时间：2014/4/23 17:42:00
--  图片管事器的控件类型

请问下，图片管理器的类型是：PictureViewer  这个吧？

 

我下面这段代码没起到作用 ,帮指正下。

 

                        If Typeof wc Is winform.PictureViewer
                            MessageBox.show(wc.Name)
                            Dim pv As winform.pictureviewer = wc
                            pv.AddCommand.enabled = False
                            pv.OpenCommand.Enabled= False
                            pv.DeleteCommand.Enabled= False
                            pv.ClearCommand.Enabled= False
                            pv.SaveAsCommand.Enabled= False
                        End If
--  作者：Bin
--  发布时间：2014/4/23 17:43:00
--  
YOU进入到代码段了吗?

上个例子看看.
--  作者：有点甜
--  发布时间：2014/4/23 17:45:00
--  

没有进去？试试

 

If wc.Gettype.name = "PictureViewer" then
    MessageBox.show(wc.Name)
    Dim pv As winform.pictureviewer = wc
    pv.AddCommand.enabled = False
    pv.OpenCommand.Enabled= False
    pv.DeleteCommand.Enabled= False
    pv.ClearCommand.Enabled= False
    pv.SaveAsCommand.Enabled= False
End If