SSTab控件转换选项卡时触发什么事件？

Question

SSTab控件转换选项卡时触发什么事件？

Answer 1

Private Sub SSTab1_Click(PreviousTab As Integer)  '頁面切換時的提醒
     
    Select Case SSTab1.Tab
        Case 0           
          ' MsgBox "請確定發明人資料是否已存檔！", vbInformation, "提示信息"
           Call Commonbuttons1_QueryClick
        Case 1           
        '   MsgBox "請確定案件資料是否已存檔！", vbInformation, "提示信息"
              
            
            '********************************************************************
            '*     判斷發明人裏面是否有此提案編號的信息（即是否是新增後的狀態）
            '*     如果沒有則是新增後的狀態，則頁面切換後仍是當前的提案編號
            '*     如果有則call Commonbuttons2_QueryClick 查出當前的信息
            '*******************************************************************
            Dim rs As ADODB.Recordset
            Dim sql As String
            
            sql = " select * from intorid where caseno='" & Trim(dbcTabh.Text) & "'" & vbCr
            Set rs = DBEnv.DBconn.Execute(sql)
            If rs.RecordCount > 0 Then   '不是新增後的狀態
                Call Commonbuttons2_QueryClick
            Else                         '是新增後的狀態
                  
            End If
          
    End Select
End Sub

Answer 2

SSTab1_Click事件
 select case SSTab1.Tab
      case 0
       .....
  end select

Answer 3

SSTab1_Click事件
  if  sstab1.tab=0 then 
      msgbox"OK"
  elseif sstab1.tab=1 then 
      aa.show
  elseif sstab1.tab=2 then 
    .....
  else
   ....
  endif