Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 command1(0)中加入单击后的过程 Case 1 command1(1)中加入单击后的过程 case 2 command1(2)中加入单击后的过程End Select End Sub
//我看见有些按钮 按下以后就凹进去了再按就凸出来了 请问这是什么控件? microsoft forms 2.0 object library里面有个togglebutton就是这样的。
我在VB里 添加部件中怎么找不到microsoft forms 2.0 object library
Select Case Index
Case 0
command1(0)中加入单击后的过程
Case 1
command1(1)中加入单击后的过程
case 2
command1(2)中加入单击后的过程End Select
End Sub
microsoft forms 2.0 object library里面有个togglebutton就是这样的。