Foxtable(狐表)用户栏目专家坐堂 → 窗口关闭后控件错误问题


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

主题:窗口关闭后控件错误问题

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
窗口关闭后控件错误问题  发帖心情 Post By:2013/3/9 21:10:00 [只看该作者]

代码如下,在关闭窗口后提示找不到Button1控件,请教老师怎么回事

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim qrxg As WinForm.Button = e.Form.Controls("Button1")
If tab.SelectedIndex = 1 Then
    If qrxg.Visible = True Then
        MessageBox.Show("请先确认修改后再离开界面!","错误提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
        e.Cancel = True
    End If
End If

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目14.zip


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2013/3/9 21:46:00 [只看该作者]

这个问题好像要老六来解决。

 

现在只好先判断一下吧。

 

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If e.Form.ExistControl("Button1")
    Dim qrxg As WinForm.Button = e.Form.Controls("Button1")
    If tab.SelectedIndex = 1 Then
        If qrxg.Visible = True Then
            MessageBox.Show("请先确认修改后再离开界面!","错误提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
            e.Cancel = True
        End If
    End If
End If


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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/3/10 0:05:00 [只看该作者]

感谢czy老师~~~问题解决了~~

 回到顶部