我想作一個簡單的計算程式,設定了許多文本框作輸入資料使用,在開始計算前需要檢查文本框輸入是否正確,不正確就彈出一提示訊息框,然后讓滑鼠停留在文本框內等待輸入,請高手指點一下,謝謝!
uj5u.com熱心網友回復：
txtbox.setfocusuj5u.com熱心網友回復：
你是要滑鼠出現等待的效果？還是獲得焦點？uj5u.com熱心網友回復：
If len(text1)<n thenMsgbox "輸入位數不足n"
Text1.setfocus
End of
樓主是這意思不？
uj5u.com熱心網友回復：
If len(text1)<n thenMsgbox "輸入位數不足n"
Text1.setfocus
End of
樓主是這意思不？
如是識別數字可以用ASIIC碼逐位檢查
uj5u.com熱心網友回復：
兩種方法：1 在計算按鈕的 Click 事件中進行檢查，發現哪一個文本框內容不符合要求，就彈出一個提示框，然后用
Text1 = ""
Text1.SetFocus
這一類代碼回到出錯的文本框。
2 利用文本框的 Validation 功能。在各個文本框的 Validate 事件中寫代碼，例如：
Private Sub Text1_Validate(Cancel As Boolean)
If Text1 = "" Then
MsgBox "No data inputed."
Cancel = True
End If
End Sub
Validate 事件是用戶利用滑鼠或鍵盤（如 Tab 鍵）試圖將焦點從當前控制元件移出時發生。這樣，一個文本框出錯時，設定 Cancel 為 True 就無法跳轉到其他控制元件。
為了讓用戶能在出錯后退出，你可以將退出按鈕的 CauseValidation 屬性設定為 False（所有控制元件此屬性預設值為 True）。
uj5u.com熱心網友回復：
如果是判斷等待的狀態，游標在文本框獲得焦點就可以了。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/86781.html
標籤：VB基礎類
上一篇：vb webbrowser控制元件怎么取網頁中表格（<div> </div>之間）的值？
下一篇：solidworks二次開發