想必現(xiàn)在有很多小伙伴對(duì)于VB文本框怎樣限制只能輸入數(shù)字值方面的知識(shí)都比較想要了解，那么今天小好小編就為大家收集了一些關(guān)于VB文本框怎樣限制只能輸入數(shù)字值方面的知識(shí)分享給大家，希望大家會(huì)喜歡哦。

1、 新建一個(gè)標(biāo)準(zhǔn)EXE程序。

2、 繪制界面，添加一個(gè) Textbox 控件，改名為 txbNumber。

3、 編寫代碼。在代碼窗口中，添加 txbNumber_KeyPress 事件。

轉(zhuǎn)載或者引用本北文內(nèi)容請(qǐng)注明革知來(lái)源于芝士運(yùn)廠回答

4、查ASCII碼表，得到0的ASCII碼是48。輸入以下語(yǔ)句：

If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0

動(dòng)化正活邊山世真溫步歷構(gòu)率層識(shí)。

這條語(yǔ)句用來(lái)判斷輸入的字符是否在0-9的范圍，如果不在這個(gè)范圍，就把這個(gè)輸入的字符屏蔽掉。

要用生加天樣解革級(jí)區(qū)百今勞市準(zhǔn)劃卻。

5、但這么做會(huì)產(chǎn)生一個(gè)問(wèn)題，就是使用BackSpace刪除字符的時(shí)候，由于按鍵被屏蔽，無(wú)法刪除。只要在上面的語(yǔ)句前在添加一條語(yǔ)句：If KeyAscii = 8 Then Exit Sub，意思是，如果按了BackSpace，就直接退出該過(guò)程，按鍵就不會(huì)被屏蔽了。

6、調(diào)試運(yùn)行。按F5，在文本框中輸入任意字符，可以看到只有數(shù)字能顯示在文本框中。按退格鍵，字符也能正常刪除。

7、 如果輸入的數(shù)字可能是小數(shù)，那么還要添加如下代碼：

If KeyAscii = 46 And Not CBool(InStr(txbNumber,".")) Then Exit Sub

當(dāng)輸入小數(shù)點(diǎn)時(shí)，程序判斷文本框中是否已有小數(shù)點(diǎn)（因?yàn)橐粋€(gè)小數(shù)中不可能有多個(gè)小數(shù)點(diǎn)），如果沒(méi)有小數(shù)點(diǎn)，則允許輸入。

本文到此結(jié)束，希望對(duì)大家有所幫助。

版權(quán)說(shuō)明：本文由用戶上傳，如有侵權(quán)請(qǐng)聯(lián)系刪除！

標(biāo)簽：