vb裡如何讓textbox只能輸入數字和英文?

時間 2025-03-22 22:40:17

vb textbox 只能輸入英文字母

1樓:網友

private sub text1_keypress(keyascii as integer) 注意這裡text1的事件是keyascii不是change

if keyascii < 90 and keyascii > 65 then 這是大寫的。

elseif keyascii < 122 and keyascii > 97 then 這是小寫的。

elsekeyascii = 0

msgbox "輸入的必須是英文字母!", 64, "請注意"

end if

end sub

樓上的用chr函式來識別keyascii值方法比較簡單,不過我想我的你比較看得懂(對於初學者而言)

2樓:微標科技

'新增窗體form1,文字框text1,然後新增如下**:

private sub text1_keypress(keyascii as integer)

if not chr(keyascii) like "[a-za-z]" then keyascii = 0

end sub

3樓:網友

1 判斷keyascii值在65 和 90之間 以及 在 97 和 122 之間就可以。

2 用正規表示式。

如何才能讓vb裡的text控制項只能輸入數字?

4樓:網友

在文字框的更改事件中,使用isnumeric函式進行字元型別的判斷,如果出錯則清空輸入框,彈出提示資訊,範例**如下:

private sub text1_change()if isnumeric( = false thenmsgbox "只能輸入數字"

end if

end sub

5樓:網友

const xstr as string = "0123456789"

先宣告乙個常量,並把你想禁用或允許輸入的內容賦值給它。

private sub text1_keypress(keyascii as integer)

只能輸入數字。

keyascii = iif(instr(xstr & chr(8), chr(keyascii)),keyascii, 0)

end sub

private sub text2_keypress(keyascii as integer)

只能輸入數字以外的字元。

keyascii = iif(instr(xstr, chr(keyascii)),0, keyascii)

end sub

vb6.0裡怎樣讓乙個textbox中只能輸入數字,而不能輸入字母,如果輸入字母,會有視窗跳出提示錯誤?

6樓:網友

兩種方法可處理:

1、textbox獲得焦點時,鎖定字母鍵,只開放數字鍵(或小鍵盤)。

2、命令按鈕中加入一段測試控制程式,點選命令按鈕後,先測試textbox中是否為你要求的數字型別,如果有字母的話,則跳出「輸入錯誤」對話方塊,textbox中是你要求的數字型別才能放行。

用vb怎麼使文字框中只能輸入字母

7樓:匿名使用者

你好,暫時可以這樣做(選擇key_press事件)private sub text1_keypress(keyascii as integer)

select case keyascii

if not ((keyascii>=asc("a") and keyascii<=asc("z") or (keyascii>=asc("a") and keyascii<=asc("z")) or (keyascii=vbkeyback))

keyascii = 0

end select

end sub

vb.net 讓相應的textbox中只能輸入「中文字元、英文、數字」

8樓:網友

每個textbox都有keypress事件(event),每次使用者輸入乙個字元時檢測,如不滿足則清空。

我現在不在vs下,你可以找到這個面板,繫結相應的函式。

比如只能顯示數字。

private sub numbox_keypress(keyascii as integer)

if not isnumeric( then

end if

end sub

只能顯示英語(a-z 97-122; a-z 65-90; 8(退格)和13(換行))

private sub engbox_keypress(keyascii as integer)

if not (keyascii >= 97 and keyascii<=122) or (keyascii <= 90 and keyascii>=65) or = 8 then

end if

end sub

只能顯示漢字(漢字的ascii值要麼小於0,要麼是8(退格)和13(換行))

private sub chinesebox_keypress(keyascii as integer)

if not keyascii < 0 or keyascii = 8 or keyascii = 13 then

end if

end sub

在VB中如何讓MDI子窗體總在最前

沒有辦法取消合併,但是可以考慮把兩個窗體設為正常窗體,然後將父窗體調整為佔滿整個螢幕,並把視窗設為最前 窗體背景顏色設為灰色。這樣有選單的子視窗就在父視窗的範圍內顯示,就產生出 mdi 窗體的效果了。如果這樣做,還需要注意乙個問題,那就是 父窗體 的某些事件沒有影響到 子窗體 例如當 父窗體 最小化...

vb中如何在text控制項裡禁止拷貝和貼上

判斷鍵值應該可以,vb不是可以監控鍵盤按下和談起麼!如果按下的鍵值是ctrl c或是v那麼就不讓造作,這樣應該就可以了吧。 vb中可設定textbox控制項的enabled 屬性為false禁制拷貝和複製。enabled 屬性,返回或設定乙個值,該值用來確定乙個窗體或控制項是否能夠對使用者產生的事件...

在vb裡如何將日期加減得出天數

似水流年 其實vb提供了乙個計算兩個日期相差的函式datediff,在實際應用之中我們可以進行日期相減運算,但是vb推薦的還是使用vb自己提供的內部函式為好!乙個例子 private sub command1 click dim days as integer dim data1 as date d...