以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助大大  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131800)

--  作者:ezilu
--  发布时间:2019/3/6 20:37:00
--  求助大大
如何实现 点击1控件 对应的 选项,
tab控件  2  的 地方  只显示相对于的 tab 没有选的 设置visible=false

谢谢大大
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190306203332.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/3/6 21:16:00
--  

Dim cbx As WinForm.ComboBox = e.Form.controls("combobox1")
Dim tab As WinForm.tabcontrol = e.Form.controls("tabcontrol1")
For Each p As WinForm.TabPage In tab.tabpages
    If cbx.text.Contains(p.text) Then
        p.Visible = True
    Else
        p.Visible = False
    End If
Next


--  作者:ezilu
--  发布时间:2019/3/6 21:20:00
--  
谢谢大大  把这个代码 放在 哪个控件  哪个事件里面好点?
--  作者:有点甜
--  发布时间:2019/3/6 21:21:00
--  
combobox的textchanged事件
--  作者:ezilu
--  发布时间:2019/3/6 21:32:00
--  
谢谢大大