Question

vb 按钮1里有case1,case2,case3,点击按钮2执行按钮1里的case2里的代码

如题,点击按钮2时call或者执行按钮1里case2内的代码.多谢高手

Answer 1

Dim TempIndex As Integer

Private Sub Command1_Click()
Select Case TempIndex
Case 1
a% = 1
Case 2
a% = 2
Case 3
a% = 3
End Select
End Sub

Private Sub Command2_Click()
TempIndex = 2
Call Command1_Click
End Sub

追问

根本无任何反应啊...