vb问题 关于sstab的小问题

楼上的程序有错，应该改为如下程序：
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab '注意在这里修改，不能用PreviousTab
Case 0
命令A
Case 1
命令B
Case 2
命令C

……

……
End Select
End Sub

以上程序在VB6中调试通过。

Private Sub SSTab1_Click(PreviousTab As Integer)
Dim Msg As String
Msg = SSTab1.Caption
Msg = LCase(Msg) '字符串转小写，以便下一行的 IF 好处理

If Msg = "tab 1" Then MsgBox ("Tab 1")
If Msg = "tab 2" Then MsgBox ("Tab 2")
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case PreviousTab
Case 0
命令A
Case 1
命令B
Case 2
命令C

……

……
End Select
End Sub

VB sstab问题~

你安装的是VB精简版吧？？

如果是的话，肯定是用不起的,不仅sstab,许多的控件都是用不起的。

http://www.bccn.net/soft/kfyy/vb/tools/200412/62.html
去下个完整版的
下载然后安装过后一切OK

Private Sub cmd1_Click()
Form1.Show
Form1.SSTab1.Tab = 8
End Sub

Private Sub cmd2_Click()
Form1.Show
Form1.SSTab1.Tab = 7
Form1.SSTab2.Tab = 9
End Sub