前言
最近在机房中结账部分的SSTab选项卡,我设置了5个选项卡,一开始想要它每点击一个选项可或换一个选项卡时,就执行该选项可对应的代码,通过选项可的索引来调用它的代码部分,但怎么都实现不了!
这是我一开始的关键代码:
Private Sub SSTab1_DblClick()
Select Case SSTab1.Tab '根据SSTab1的tab索引
Case 0
。。。。。。。
Case 1
。。。。。。
Case 2
。。。。。。
End Sub
过程
后来在网上查了很多,也自己试了试,有的可以,有的运行不出来,我想不是它的代码有问题,而是我没有用对地方!
比如这个我试了一下,结果选项卡根本没有这个方法!:
Select Case SSTab1.SelectedItem.Index
Case 1
....
Case 2
......
End Select
在比如,试了试这个,也是显示有问题,这个过程根本就不能这样写!
Private Sub SSTab1_Click()
Select Case SSTab1.Tab
Case 1
Text1.Text = "asdfsadf "
End Select
End Sub
最后终于找到了一个方法,试了试,给成功了!
Private Sub SSTab1_Click(PreviousTab As Integer)
If SSTab1.Tab = 0 Then
。。。。。。。
End If
If SSTab1.Tab = 1 Then
。。。。。。。
End If
End Sub
在控件的Click事件中,这才是这个控件的最基本的用法。
后来,对比了一下自己的代码和之前第二个自己尝试的错代码。
第二个自己尝试的错代码问题:想使用它的单机事件,但这个事件或者过程再或者这个函数是需要参数的!而错误的原因就是没有写参数
自己的错在:事件用错了,还有就是和自己第二个尝试的错代码一样的问题了!
总结
多查!