先在窗体上放置一个Command和一个Text控件,然后设置他们的Index为0,Visible=False动态添加: SSTab1.Tab = 0 '在第一个页面中添加
Load Command1(1)
Set Command1(1).Container = SSTab1
Command1(1).Visible = True
Command1(1).Left = 120
Command1(1).Top = 360
Command1(1).Caption = "In Tab 0"
SSTab1.Tab = 1 '在第二个页面中添加
Load Text1(1)
Set Text1(1).Container = SSTab1
Text1(1).Visible = True
Text1(1).Left = 120
Text1(1).Top = 360
Text1(1).ZOrder 0
Text1(1).Text = "In Tab 1"
SSTab1.Tab = 2 '在第三个页面中添加
Load Command1(2)
Set Command1(2).Container = SSTab1
Command1(2).Visible = True
Command1(2).Left = 120
Command1(2).Top = 360
Command1(2).Caption = "In Tab 2"这样的操作必须在整个Form和SStab已经显示以后才能得到正确的结果,也就是
说:如果你在Form_load中使用的话无效。
Load Command1(1)
Set Command1(1).Container = SSTab1
Command1(1).Visible = True
Command1(1).Left = 120
Command1(1).Top = 360
Command1(1).Caption = "In Tab 0"
SSTab1.Tab = 1 '在第二个页面中添加
Load Text1(1)
Set Text1(1).Container = SSTab1
Text1(1).Visible = True
Text1(1).Left = 120
Text1(1).Top = 360
Text1(1).ZOrder 0
Text1(1).Text = "In Tab 1"
SSTab1.Tab = 2 '在第三个页面中添加
Load Command1(2)
Set Command1(2).Container = SSTab1
Command1(2).Visible = True
Command1(2).Left = 120
Command1(2).Top = 360
Command1(2).Caption = "In Tab 2"这样的操作必须在整个Form和SStab已经显示以后才能得到正确的结果,也就是
说:如果你在Form_load中使用的话无效。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货