請問各位大大 VB的問題[隨機選擇事件]

Question

各位大大 請問一下
如果我先做好3個事件寫在按鈕中
那 我應該要多加些什麼 才能讓3個事件 隨機發生其中一個??

Answer 1

聽不大懂什麼是"做好3個事件寫在按鈕中"...XD,您的意思是
(1)已經在按鈕所有事件其中的3個事件有寫下程式
(2)還是自己有做一個按鈕的OCX,你所設定的3個事件
(3)還是當按鈕發生某個事件時要隨機選擇執行3個副程式之其中之一?
如果是第1及第2種:(假設是發生在按鈕的Click事件)
Private Sub Command1_Click()
Dim I As Integer
Randomize: I = Int(Rnd * 3)
If I = 0 Then
　Command1_KeyUp 13, 0
ElseIf I = 1 Then
　Command1_KeyDown 13, 0
Else
　Command1_LostFocus
End If
End Sub
如果是第3種:(假設是要按鈕的Click事件中執行)
Private Sub Command1_Click()
Dim I As Integer
Randomize: I = Int(Rnd * 3)
If I = 0 Then
　Call 副程式0
ElseIf I = 1 Then
　Call 副程式1
Else
　Call 副程式2
End If
End Sub

Answer 2

Private Sub Command1_Click()
Dim I As Integer
Randomize
I = Int(Rnd * 3)
Select Case I
Case 0
Call 副程式0
Case 1
Call 副程式1
Case 2
Call 副程式2
End Select
End Sub

Public Sub 副程式0()
End Sub
Public Sub 副程式1()
End Sub
Public Sub 副程式2()
End Sub
''''''''''''' 注意這裡要使用 Public , 而使用 Select Case 的制行速度會比判斷式快.