Foxtable(狐表)用户栏目专家坐堂 → [求助]Tabcontrol 引用窗口 控件问题


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

主题:[求助]Tabcontrol 引用窗口 控件问题

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


加好友 发短信
等级:幼狐 帖子:125 积分:1609 威望:0 精华:0 注册:2016/9/8 13:33:00
[求助]Tabcontrol 引用窗口 控件问题  发帖心情 Post By:2016/11/21 8:51:00 [只看该作者]

用Tabcontrol 控件动态的引用独立窗口,后窗口内的控件有些可以看到但是控件的事件在被触发后,显示无此控件,怎么处理?

 

点击工程模块--基础物料--导入基础物料,该窗口内的checkcombobox问题,请高手解答

[此贴子已经被作者于2016/11/21 9:04:40编辑过]

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


加好友 发短信
等级:幼狐 帖子:125 积分:1609 威望:0 精华:0 注册:2016/9/8 13:33:00
  发帖心情 Post By:2016/11/21 8:58:00 [只看该作者]


此主题相关图片如下:无标题.png
按此在新窗口浏览图片
<br/>
此主题相关图片如下:无标题1.png
" target="_blank" >" border="0" alt="按此在新窗口浏览图片" />
<br/>

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:df技术方案报价系统(2014).rar
<br/>

[此贴子已经被作者于2016/11/21 9:01:32编辑过]

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/11/21 10:09:00 [只看该作者]

问题出在函数CreatTabcontrolPage,注释这2句

                        Dim CheckedComboBox As WinForm.CheckedComboBox=Forms(frmName).Controls("CheckedComboBox1")
                        tabc.TabPages(nm).AddControl(CheckedComboBox)

你把控件从窗口移到TabPage了,窗口就没有了这个控件,窗口再用这个控件就会出错了

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


加好友 发短信
等级:幼狐 帖子:125 积分:1609 威望:0 精华:0 注册:2016/9/8 13:33:00
  发帖心情 Post By:2016/11/21 12:00:00 [只看该作者]

如果注释掉了,这个控件的事件就会报错,怎们办?
[此贴子已经被作者于2016/11/21 12:05:20编辑过]

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


加好友 发短信
等级:二尾狐 帖子:573 积分:2961 威望:0 精华:0 注册:2016/10/27 14:33:00
  发帖心情 Post By:2016/11/21 16:21:00 [只看该作者]

函数的代码要改一下。

 

''---------------------------------------------------------------------------------------------------------------------------
'''功能:模块导航窗口按钮事件                          leexianfeng           日期:2016-11-14 10:14:57

Dim nm As String =Args(0)
Dim tt As String =Args(1)
Dim frmName As String
'MessageBox.show(nm & vbcrlf & tt)
Dim tabc As WinForm.TabControl = Forms("0010 首页").Controls("TabControl2")
Dim dr As DataRow =DataTables("Z99设置").Find("窗口_标题 = '"& tt &"'")
'MessageBox.show(dr("窗口_名称"))
If dr IsNot Nothing Then
    frmName =dr("窗口_名称")
    For a As Integer=0 To tabc.TabPages.Count-1  '如果当前页签中存在所选的页签,则跳出
        If tabc.TabPages(a).Text=tt Then
            tabc.SelectedIndex=a
            Return Nothing
        End If
    Next
   
    Forms(frmName).open(-1000,-1500)   '打开窗口的位置偏移后,避免出现窗口闪退
   
    If Forms(frmName).Opened Then
        Dim pb = tabc.BaseControl
        tabc.TabPages.Add(nm,tt)
        Forms(frmName).BaseForm.TopLevel = False
        Forms(frmName).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Forms(frmName).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
       
        'PB.TabPages(nm).Controls.Clear
        PB.TabPages(nm).Controls.add(Forms(frmName).BaseForm)
        tabc.SelectedPage = tabc.TabPages(nm)
        tabc.SelectedPage.Image=GetImage("001.ico")
        'tabc.Form.Select
        'tabc.Select
    End If
End If
''---------------------------------------------------------------------------------------------------------------------------


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


加好友 发短信
等级:幼狐 帖子:125 积分:1609 威望:0 精华:0 注册:2016/9/8 13:33:00
问题解决  发帖心情 Post By:2016/11/21 19:47:00 [只看该作者]

高手啊,问题解决了,继续下一步。非常感谢

 回到顶部