以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  把系统的错误提示屏蔽掉怎么写代码？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66250)
--  作者：晕了快扶我
--  发布时间：2015/4/1 22:42:00
--  把系统的错误提示屏蔽掉怎么写代码？

Dim r As WinForm.ListViewRow = e.Sender.Current
If Forms(r.text) IsNot Nothing
    Forms(r.text).show
Else
    MessageBox.show("项目建设中,敬请期待!","提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If

 

当窗口不存在的时候，我就用我的提示，不想跳出系统的不存在窗口名为 XX的窗口，用return和e.cancel都不行
--  作者：有点甜
--  发布时间：2015/4/1 22:43:00
--  

Dim r As WinForm.ListViewRow = e.Sender.Current
If Forms.Contains(r.text)

    Forms(r.text).show
Else
    MessageBox.show("项目建设中,敬请期待!","提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
--  作者：晕了快扶我
--  发布时间：2015/4/1 22:46:00
--  
谢谢，收到了