选项卡控件页切换的事件是什么?

yrlxm

page1.click?

LYP6160

好象没有这个事件吧

wewyhy

选项卡控件页切换时，除了自动切换，什么事件都没有啊

没牙兔兔

不知道你问得是不是这个事件，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