标题: 选项卡控件页切换的事件是什么? [打印本页] 作者: yrlxm 时间: 2003-12-2 05:21 标题: 选项卡控件页切换的事件是什么? page1.click?作者: LYP6160 时间: 2003-12-2 06:31
好象没有这个事件吧作者: wewyhy 时间: 2003-12-2 16:31
选项卡控件页切换时，除了自动切换，什么事件都没有啊作者: 没牙兔兔 时间: 2003-12-2 16:34
不知道你问得是不是这个事件，0,1,2的选值是选项卡的索引
Private Sub sel级别_Change()
Dim Ctrl As Control
‘这个就是关于窗体上所有控件的遍历
For Each Ctrl In Me.frm建制单位部局下属.主体.Controls
If TypeOf Ctrl Is Label Or Ctrl.Visible = False Then
'标签控件会随文本框一起隐掉,不用处理,不然出错
Else
Ctrl.ColumnHidden = True
End If
Next Ctrl
‘这个就是根据选项卡的值进行判断
Select Case Me.sel级别
Case 0
Me.frm建制单位部局下属.Form.义务兵第二年.ColumnHidden = False
Case 1
Me.frm建制单位部局下属.Form.士官一级第一年.ColumnHidden = False
Case 2
Me.frm建制单位部局下属.Form.士官二级第一年.ColumnHidden = False
End Select
End Sub