Foxtable(狐表)用户栏目专家坐堂 → 页签图标等的相关参数


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

主题:页签图标等的相关参数

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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
页签图标等的相关参数  发帖心情 Post By:2019/9/8 12:41:00 [只看该作者]

老师,动态增加页面的相关参数有哪些呢?怎么使用?

目前增加页面没有问题了,代码如下,现在还需要   增加图标  ,设置图标、页签位置(Left)、页签文本方向(Horizontal)、页签文本位置(TextBelow)怎么设置?

 

For Each fl As String In DataTables("导航").GetValues("分类","[分类]<> '我的首页'","序号") '增加分类
    Dim pag As WinForm.TabControl = forms("主窗口").Controls("TabControl2")
    If pag.TabPages(fl) Is Nothing Then
        'For Each dr1 As DataRow In DataTables("导航").DataRows
            'Dim pc As String = dr1("分类图标")
            pag.TabPages.Add(fl,fl)
        'Next
    End If
Next

[此贴子已经被作者于2019/9/8 17:48:39编辑过]

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


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/8 21:40:00 [只看该作者]


Dim tab = Forms("窗口1").Controls("TabControl1").basecontrol
tab.Alignment = 0
tab.TabTextAlignment = 2
tab.TextDirection = 1
tab.AlignTabs = 2

 回到顶部