1樓：匿名使用者
private sub text1_change()dim s as string, ss as long, l as long
s = "\/:*?""<>｜" '需要禁止的字元都放這裡吧ss = text1.selstart
for i = 1 to len(s)
l = len(text1.text)
text1.text = replace(text1.text, mid(s, i, 1), "")
if l <> len(text1.text) and ss > 0 then ss = ss - 1
next
text1.selstart = ss
end sub
2樓：網海1書生
private sub text1_keypress(keyascii as integer)
if instr("\/:*?""<>|", chr(keyascii)) then keyascii = 0
end sub
vb編怎樣使text1中輸入的所有字元,都以*顯示
3樓：小丁創業
實現的方法和詳細的操作步驟如下：
1、第一步，設定程式介面，包括標籤，文字框和命令按鈕，如下圖所示，然後進入下一步。
2、其次，完成上述步驟後，根據標題的要求設定物件的屬性，如下圖所示，然後進入下一步。
3、接著，完成上述步驟後，編寫程式**。
首先要定義變數，如下圖所示，然後進入下一步。
4、然後，完成上述步驟後，使用「for-next」迴圈結構語句進行**的編寫，如下圖所示，然後進入下一步。
5、隨後，完成上述步驟後，在「for-next」迴圈結構語句中，必須巢狀「if」語句，如下圖所示，然後進入下一步。
6、最後，完成上述步驟後，開始執行程式，輸入一個正數以驗證結果，如下圖所示。這樣，問題就解決了。
4樓：刺友互
1、設定程式介面，包括標籤，文字框，命令按鈕。
2、再按照題目要求，設定物件的屬性。
3、編寫程式的**。先定義變數。
4、使用for-next迴圈結構語句，編寫的**。
5、在for-next迴圈結構語句中，還要再巢狀一個if語句。
6、執行程式，輸入某個正數，驗證結果。
5樓：匿名使用者
1、修改文字框的passwordchar屬性可以做到。
2、vb6示例：（在窗體上新增text1文字框）private sub form_load()text1.passwordchar = "*"
end sub
6樓：匿名使用者
用passwordchar屬性
設定成「*」向文字框輸入時便顯示為*
7樓：匿名使用者
text 裡有個屬性叫 passwordchar 只要設定 為 "*" 就ok了
8樓：匿名使用者
text1.passwordchar = "*"
vb文字框如何禁止輸入特定字元
9樓：匿名使用者
vb文字框可通過文字框的keypress事件來判斷輸入字元的keyascii值來禁止輸入特定字元。
**例項，禁止輸入大寫a字元：
private sub text1_keypress(keyascii as integer)
if keyascii = 65 then
keyascii = 0
end if
end sub
keypress 事件，此事件當使用者按下和鬆開一個 ansi 鍵時發生。
keyascii
整數，包含引發 accesskeypress 事件的按鍵（除 alt 鍵外）的 ascii 值，與標準的 keypress事件採用的方法相同。
10樓：
private sub text1_keypress(keyascii as integer)
if keyascii < 48 or keyascii > 57 then
keyascii = 0
end if
end sub 可以禁止輸入字母
private sub text1_change()
if text1=」" then exit sub
if not isletter(text1) then
msgbox 「only a-z a-z letters allowed」
end if
end sub 這個是禁止輸入算字和特殊符號
應該是可以的,只要你把自己想禁止的字母,符號等的ascll碼的值知道了,,就可以了…
11樓：匿名使用者
if text1.text="111" thenmsgbox "禁止"
text1.text=""
end if
以上禁止輸入111
特殊字元的輸入cad中特殊字元怎麼輸入
12樓：南京新華電腦專修學院
%%o 開啟或關閉文字上劃線
%%u 開啟或關閉文字下劃線
%%d 標註度符號
%%p 標註正負公差
%%% 標註%符號
%%c 標註直徑符號
1,先說分數線 比如4/3 先在多行文字裡面輸入4/3然後選擇4/3使用堆疊命令 "a/b"為堆疊命令.
2,下標 比如1a1 在多行文字裡面輸入1^a1,然後選擇^a1內容再點"a/b"命令.就出現下標了.
3,上標 比如3 立方 在多行文字裡面輸入33^,然後選擇3^內容再點"a/b"命令.就出現上標了
根號的話沒有試過 我使用是2007現在多行文字裡面都可以插入特殊字元了.給分吧 全對著cad 一邊試一邊給你打出來的呀
13樓：順順瀟瀟嘿
mt快捷鍵就可以用輸入法輸入特殊字元了
vb中，如何限制輸入的文字框的內容只能是數字數或者字母？
14樓：
這個需要在文字框的keypress事件中對輸入的keyascii進行檢查, 如果不滿足要求則輸入無效,例如只能輸入字母程式如下:
private sub text1_keypress(keyascii as integer)
select case keyascii
case 65 to 90,97 to 122 'a-z, a-z
case else
keyascii=0
end select
end sub
15樓：悠悠周郎
dim 輸入限制 as string = "0123456789.abcdefghijklmnopqrstuvwxyz"
dim 輸入字元 as char = e.keychar
if instr(輸入限制, 輸入字元) <> 0 or e.keychar = chrw(8) then
if 輸入字元 = "." and instr(textbox1.text, 輸入字元) <> 0 then
e.handled = true
else
e.handled = false
end if
end if
這段**寫在文字框的 keypress 事件裡，.net 的，6.0 好像類似，但沒有 e.
handled = true 或者 false，這裡為 true 時改成直接退出過程「exit sub」，false 不寫了好像行，沒有 6.0 沒法給你試試
16樓：學古箏
只能輸入數字
private sub form_resize()if not isnumeric(text1.text) then'如果輸入的不是數字，刪除非數字
text1.text = val(text1.text)text1.selstart = len(text1.text)end if
end sub
private sub text1_change()if not isnumeric(text1.text) then'如果輸入的不是數字，刪除非數字
text1.text = val(text1.text)text1.selstart = len(text1.text)end if
end sub
只能輸入整數
private sub form_resize()tmp = ""
for n = 1 to len(text1.text)if asc(mid(text1.text, n, 1)) > 47 and asc(mid(text1.
text, n, 1)) < 58 then
tmp = tmp & mid(text1.text, n, 1)end if
next
text1.text = val(tmp)text1.selstart = len(text1.text)end sub
private sub text1_change()tmp = ""
for n = 1 to len(text1.text)if asc(mid(text1.text, n, 1)) > 47 and asc(mid(text1.
text, n, 1)) < 58 then
tmp = tmp & mid(text1.text, n, 1)end if
next
text1.text = val(tmp)text1.selstart = len(text1.text)end sub
只輸入字母
private sub text1_change()'65 97 90 122
tmp = ""
for n = 1 to len(text1.text)if (asc(mid(text1.text, n, 1)) > 64 and asc(mid(text1.
text, n, 1)) < 91) or (asc(mid(text1.text, n, 1)) > 96 and asc(mid(text1.text, n, 1)) < 123) then
tmp = tmp & mid(text1.text, n, 1)end if
next
text1.text = tmp
text1.selstart = len(text1.text)end sub
17樓：驕傲地螞蟻
private sub text1_change()'有點懶if isnumeric(text1) = false thenmsgbox "不是數字，請輸入數字", 0, "提示"
text1.setfocus
text1.selstart = len(text1)sendkeys ""
end if
end sub
private sub text2_keypress(keyascii as integer)
if chr(keyascii) like "[a-za-z]" = false then
msgbox "不是字母，請輸入字母", 0, "提示"
keyascii = 0
end if
end sub
private sub text3_change()if isnumeric(text3) = false thenmsgbox "不是數字，請輸入數字", 0, "提示"
text3.setfocus
text3.selstart = len(text3)sendkeys ""
elseif val(text3) - clng(text3) <> 0 then'有點懶
msgbox "不是整數，請輸入整數", 0, "提示"
end if
end sub
如何禁止win10顯示卡自動更新，怎樣禁止win10系統自動更新顯示卡驅動
1.在win10桌面的 此電腦 圖示上右鍵會出現一個選項框，如下圖 2.點選上圖的 屬性 進入後選擇左側的 系統高階設定 如下圖 3.進入 系統高階設定 後點選 硬體 選擇 硬體 中的 裝置安裝設定 進入，如下圖 4.選擇 硬體 中的 裝置安裝設定 進入，如下圖 5.單擊 否 執行操作 l 後點選 ...
VB控制其他視窗的按鍵，在VB中怎樣控制其它的程式的文字框和按鈕
command1 click 是模組過程，要在form1中呼叫要用全域性過程 在工程視窗上新增一個模組module1，在模組裡把窗體2的command1 click過程寫上去，再在窗體1的command1 click事件中呼叫 例 設form2的command1 click事件為 print a 則...
VB中陣列怎麼定義，vb中怎樣定義一個陣列
是這麼定義的 陣列中的第一個元素的下標稱為下界，最後一個元素的下標稱為上界，其餘的元素連續地分佈在上下界之間，且陣列在記憶體中也是用連續的區域來儲存的，所以陣列每維的長度不能超過long資料型別的最大值，即264 1 263。把vb net陣列當作一個物件來處理，就意味著陣列型別是單個引用型別，陣列...