程式碼如下:
Private Sub Timer1_Timer()
Static talking As String
talking = Text1.Text
Select Case talking
Case "HA"
Text2.Text = "Yes"
Case Else
Text2.Text = "XX"
End Select
End Sub
Interval設為7000
問題來了,程式run時,使用者靜止不動,text2.text7秒即會顯示XX,有沒有辦法跳過此行敘述,除非使用者真的輸入了case無設定的值,才顯示XX?
Private Sub Timer1_Timer()
Static talking As String
talking = Text1.Text
Select Case talking
Case "HA"
Text2.Text = "Yes"
Case Else
Text2.Text = "XX"
End Select
End Sub
Interval設為7000
問題來了,程式run時,使用者靜止不動,text2.text7秒即會顯示XX,有沒有辦法跳過此行敘述,除非使用者真的輸入了case無設定的值,才顯示XX?
全站熱搜
留言列表