Foxtable(狐表) → 用户栏目 → 专家坐堂 → 未将对象应用到对象实例


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

主题：未将对象应用到对象实例
帅哥哟，离线，有人找我吗？
ljh29206
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1367 积分：12148 威望：0 精华：0 注册：2012/3/5 11:32:00 		未将对象应用到对象实例  发帖心情 Post By：2015/12/3 9:37:00 [只看该作者]

mainform，topicbar1，topiclinkclick

代码如下
Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
Dim Name As String = e.Link.Name
e.Form.StopRedraw()

For Each frm As WinForm.Form In forms
    If frm.Formstyle = 2 AndAlso frm.name <> name Then
        frm.close
    End If
Next

Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(Forms(Name).BaseForm)

e.Form.Controls("窗口标题").text = Name
e.Form.ResumeRedraw()

没找到问题所在 请指教
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/3 9:38:00 [只看该作者]

Forms(Name) 必须是独立窗口，停靠、共有什么都不行。

 回到顶部
帅哥哟，离线，有人找我吗？
ljh29206
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1367 积分：12148 威望：0 精华：0 注册：2012/3/5 11:32:00 		  发帖心情 Post By：2015/12/3 9:59:00 [只看该作者]

是的，都是独立窗体，  在 topicbar1 里面 按 慢一点没出现过，   快一点切换 就会报错了 ，搞不懂什么原因

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/3 10:02:00 [只看该作者]

做例子上来测试。

 回到顶部
帅哥哟，离线，有人找我吗？
ljh29206
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1367 积分：12148 威望：0 精华：0 注册：2012/3/5 11:32:00 		  发帖心情 Post By：2015/12/3 10:29:00 [只看该作者]



For Each frm As WinForm.Form In forms
    If frm.Formstyle = 2 AndAlso frm.name <> name Then
        frm.close
    End If
Next

老师   查到原因 出于这个代码， 

问下 独立窗体  放在Panel  经常切换， 有没需要追加这个代码，不加的话，其他开了的窗体会自动关闭吗？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/3 10:45:00 [只看该作者]

For Each frm As WinForm.Form In forms
    If frm.Opened AndAlso frm.name <> name Then
        frm.close
    End If
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询