程式碼如下:
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?
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()