Foxtable(狐表)用户栏目专家坐堂 → 怎样使用代码获得控件


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

主题:怎样使用代码获得控件

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


加好友 发短信
等级:小狐 帖子:389 积分:3892 威望:0 精华:0 注册:2016/4/25 17:36:00
怎样使用代码获得控件  发帖心情 Post By:2020/1/28 15:06:00 [只看该作者]

老师,我在dll里往FoxTable的Panel上动态创建了一个控件,比如MyTab,这个创建的tabcontrol代码指定了name是MyTab1,然后我如何用代码来通过MyTab1找到这个MyTab控件呢?

Public Function Create(pl As Foxtable.WinForm.Panel) As Object
        aa = New MyTab '定义新的TabControl
        aa.Width = pl.Width 'FT的panel的宽就是tab的宽
        aa.Height = pl.Height
        aa.Name = "MyTab1" 
        AddHandler aa.ItemRemoved, New ItemControl.ItemRemovedEventHandler(AddressOf Tab_ItemRemoved)
        AddHandler aa.SelectedTabChanging, New EventHandler(Of SuperTabStripSelectedTabChangingEventArgs)(AddressOf Tab_SelectedTabChanging)
        AddHandler aa.SelectedTabChanged, New EventHandler(Of SuperTabStripSelectedTabChangedEventArgs)(AddressOf Tab_SelectedTabChanged)
        AddHandler aa.TabItemClose, New EventHandler(Of SuperTabStripTabItemCloseEventArgs)(AddressOf Tab_Closing)
        Dim item As New MyTabItem With {.Name = "个人门户", .Text = "个人门户", .CloseButtonVisible = False} 
        aa.Tabs.Add(item) '然后tab里增加这个item
        pl.BaseControl.Controls.Add(aa) 'ft然后在增加这个tab
        Return Nothing
    End Function

如何能在其他的函数中得到这个MyTab1来进行别的工作呢?
我看了一下帮助,使用Ctyp,那么该如何使用呢?
dim c as 类型 = ctype(值,类型),这个类型是MyTab,那么值是什么呢?

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2020/1/28 22:23:00 [只看该作者]

试试MyTab1

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111422 积分:567186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/29 13:01:00 [只看该作者]

vb.net直接用即可,只要类型一致不需要显示转换

dim tab as MyTab = e.form.panel.Controls("MyTab1")

显示转换

dim c as MyTab = ctype(e.form.panel.Controls("MyTab1")MyTab

 回到顶部