以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  页签图标等的相关参数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140552)

--  作者:cd_tdh
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间: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