會員 ![]() | 【求助】vb:禁止無內容輸入 我想寫一個程式如下: 有二個textbox 和一個command button 在textbox內輸入資料後按command button算出其乘起來的數,顯示在表單上且若使用者只有輸入資料至其中一個textbox則以msgbox顯示出"請輸入完整的數值"且後將游標顯示在其無資料的textbox上. 謝謝回答 |
回覆 |
愛睏男-_- ![]() | 一般: 【求助】vb:禁止無內容輸入 引用:
if trim(Text1 & "") = space(0) then call msgbox("請輸入完整的數字",vbinformation) text1.setfocus exit sub end if if trim(Text2 & "") = space(0) then call msgbox("請輸入完整的數字",vbinformation) text2.setfocus exit sub end if 之後再接上你的算術處理式子就可以了。 | |
回覆 |
嘴炮戰隊隊長 | 拉兩個TextBox(Text1、Text2)元件及一個CommandButton(Command1),於Command1_Click撰寫以下程式。 備註:由於排版問題,請勿直接貼上(內含全形字元) Private Sub Command1_Click() If IsNumeric(Text1.Text) = False Then MsgBox "請輸入數值一", vbCritical + vbOKOnly Text1.SetFocus Exit Sub End If If IsNumeric(Text2.Text) = False Then MsgBox "請輸入數值二", vbCritical + vbOKOnly Text2.SetFocus Exit Sub End If MsgBox Trim(Text1.Text) & " x " & Trim(Text2.Text) & " = " & Trim(Val(Text1.Text) * Val(Text2.Text)), vbInformation + vbOKOnly, "答案" End Sub |
回覆 |
會員 ![]() | 謝謝回答 我是新手所以還有一些問題要問... if trim(Text1 & "") = space(0) then 和 If IsNumeric(Text1.Text) = False Then 請問這是如何去判斷的? 謝謝 |
回覆 |
嘴炮戰隊隊長 | 引用:
Trim() 去除字串頭尾空白 Text1 & "" 兩字串相加 Space(N) 傳回長度 N 的字串,內容則為空白 IsNumeric(expression) 傳回T/F值,用以指示expression內含值是否為合法之數字 第一種方式為將 Text1 所輸入的值與 "" 作字串上的結合,並以Trim指令,去除頭尾之空白,並與長度為0之字串比較,若成立則代表無輸入資料。此一方式有一缺點,若輸入值為A~Z之英文數字,而後面又未加以檢查,則在兩值相乘時,會產生Fail。 第二種方式則是將 Text1 所輸入之值,直接以 IsNumeric 判斷,若所輸入值有不合法字元(如A~Z等)或長度為零,則傳回 False ,因此可以以一行指令,檢查無輸入或輸入不合法字元。 其實也可以在撰寫時,考量讓使用者只能輸入0~9及.這樣可以進一步使輸入值得以是正確的數值資料。 | |
回覆 |
|
![]() | ||||
主題 | 主題作者 | 討論版 | 回覆 | 最後發表 |
【求助】VB.NET | GoDSPy | -- 其 他 軟 體 討 論 版 | 1 | 2005-10-17 04:49 PM |
【求助】vb.net從dataset塞值到db | ballwarm | -- HELP ME 電 腦 軟 硬 體 急 救 版 | 1 | 2005-02-28 12:02 PM |
【求助】VB.NET | mauricess | -- 其 他 軟 體 討 論 版 | 0 | 2002-11-08 01:54 AM |
【求助】VB + ORACLE + XP | shhuang | -- Windows 討 論 版 | 1 | 2002-07-08 08:19 PM |
【求助】vb 的按鈕 | ta1113 | -- 其 他 軟 體 討 論 版 | 0 | 2002-03-18 09:08 PM |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。