在sstsb控件的click时间里根据分页面上标题或index 写一个select case 操作其他控件的visible属性。
Private Sub stbFind_Click(PreviousTab As Integer) PreviousTab 就是你单击之前的tab的序号
用SSTab1的Click事件 根据SSTab1.Tab的值 写一个select case 操作其他控件的visible属性。 还有我认为sstab的第一页上面不必动态的生成一个控件 而是建立这个控件的控件数组的第一个控件如TEXT1(0) 以后的TAB上用LOAD TEXT1(I)来动态的生成控件 这样做比较好但不能在FROM_LOAD事件中在SSTAB上动态的生成控件
如果是这样还不如用简单的Tab控件,这样只一个页面,随你控制
例: 窗体加载时sstab显示在第二个分页上, sub form_load() sstab1.tab=1 call sstab1_click(0) end subPrivate Sub SSTab1_Click(PreviousTab As Integer) select case sstab1.tab case 0 ... case 1 ....'加入你要显示的内容 end select end sub
但不能在FROM_LOAD事件中在SSTAB上动态的生成控件说不可以的??
例:窗口加载时显示第二页 sub form_load() sstab1.tab=1 call sstab1_click(0) end subPrivate Sub SSTab1_Click(PreviousTab As Integer) Select Case SSTab1.Tab Case 0 Case 1 ... '加载控件的语句 Case 2
写一个select case 操作其他控件的visible属性。
PreviousTab 就是你单击之前的tab的序号
根据SSTab1.Tab的值
写一个select case 操作其他控件的visible属性。
还有我认为sstab的第一页上面不必动态的生成一个控件
而是建立这个控件的控件数组的第一个控件如TEXT1(0)
以后的TAB上用LOAD TEXT1(I)来动态的生成控件
这样做比较好但不能在FROM_LOAD事件中在SSTAB上动态的生成控件
sub form_load()
sstab1.tab=1
call sstab1_click(0)
end subPrivate Sub SSTab1_Click(PreviousTab As Integer)
select case sstab1.tab
case 0
...
case 1
....'加入你要显示的内容
end select
end sub
sub form_load()
sstab1.tab=1
call sstab1_click(0)
end subPrivate Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
Case 1
... '加载控件的语句
Case 2
End Select
End Sub