我現在利用輸入數字到text中然後再傳送資料出去,我想要在text的內容空白時,如果按下傳送鈕,會出現"請輸入數字"的對話框,可是我如果打text1.text = ""時,都會出現 "執行階段錯誤"13",行態不符"的錯誤,請問要如何寫這行程式碼呢?
Private Sub Command1_Click()
If text1.text = "" Then
MsgBox "請輸入數字", 48, "注意"
End If
If Text1.Text > -1 And Text1.Text < 64 Then
MSComm1.Output = Chr(Text1.Text)
Else
MsgBox "請輸入正確的數字", 48, "注意"
End If
End Sub
arrow
arrow
    全站熱搜

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