1樓：匿名使用者
以下為當在text1中按下按鍵時，判斷是否為m或m，如果是，則遮蔽輸入
private sub text1_keypress(keyascii as integer)
if chr(keyascii) = "m" or chr(keyascii) = "m" then
keyascii = 0
end if
end sub
以下為判斷文字框是否包含字元
private sub command1_click()if instr(lcase(text1.text), "m") > 0 then '當包含m或m時
'包含else
'不包含
end if
end sub
2樓：匿名使用者
正規表示式，字元處理必備
3樓：一見歸西
dim c as string, 是否含有字母m或m as boolean
c = "abcdemfgm"
是否含有字母m或m = (instr(c, "m") > 0 or instr(c, "m") > 0)
msgbox 是否含有字母m或m
vb文字框如何禁止輸入特定字元
4樓：匿名使用者
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事件採用的方法相同。
5樓：
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碼的值知道了,,就可以了…
6樓：匿名使用者
if text1.text="111" thenmsgbox "禁止"
text1.text=""
end if
以上禁止輸入111
vb6.0 要求文字框的內容必須含有某個字元 怎麼寫**啊？
7樓：慶年工坊
private sub text1_exit(byval cancel as msforms.returnboolean)
if instr(text1.text, "a") = 0 thenmsgbox "文字必須包含a"
text1.text = ""
end if
end sub
8樓：day忘不掉的痛
在彈出框**後加入: frmmain.text1.text=輸入的埠號
vb6中怎樣判斷字串中是否包含某個字元
9樓：匿名使用者
函式的語法：
instr([start, ]string1, string2[, compare])
這個函式需要的的引數是起始位置、主體字串、要查詢的字串；compare是可選引數。指定字串比較。此compare引數是可以省略的，也可以是 0, 1或 2。
指定0（預設）做二進位制比較。指定1做不區分大小寫的文字比較。
例如:我們要查詢在字串「abcdef」中是否存在「j」並返回其位置，則使用下面的語句就可以實現：
pos=instr(1,"abcdef","j")
vb怎麼獲取文字框裡的字串
10樓：匿名使用者
先定義一個變數，然後將變數設定為文字框的內容即可。
**如下(以獲取text1控制元件為例)：
dim str1 as string '定義字元變數private sub text1_change() '當text1字元改變時
str1 = text1.text '設定為文字框的字串end sub
11樓：匿名使用者
dim a as string
'假設文字框名稱為t1
a=t1.text
這樣a變數的字串內容便成為了文字框裡面的了
12樓：匿名使用者
dim string1 as stringprivate sub text1_change()string1 = text1.text
end sub
就這樣。
13樓：匿名使用者
可以試一下mid函式。
返回 variant (string)，其中包含字串中指定數量的字元。
語法mid(string, start[, length])
mid 函式的語法具有下面的命名引數：
部分 說明
string 必要引數。字串表示式，從中返回字元。如果 string 包含 null，將返回 null。
start 必要引數。為 long。string 中被取出部分的字元位置。如果 start 超過 string 的字元數，mid 返回零長度字串 ("")。
length 可選引數；為 variant (long)。要返回的字元數。如果省略或 length 超過文字的字元數（包括 start 處的字元），將返回字串中從 start 到尾端的所有字元。
說明欲知 string 的字元數，可用 len 函式
本示例使用 mid 語句來得到某個字串中的幾個字元。
dim mystring, firstword, lastword, midwords
mystring = "mid function demo" 建立一個字串。
firstword = mid(mystring, 1, 3) ' 返回 "mid"。
lastword = mid(mystring, 14, 4) ' 返回 "demo"。
midwords = mid(mystring, 5) ' 返回 "funcion demo"。
vb文字框1中的字元反序顯示在文字框2中
網海1書生 text2.text strreverse text1.text private sub command1 click dim m as long,t as long,n as integer m val inputbox 輸入大於1的正整數m 輸入資料 n 1 t 0 do while...
vb如何把檔案內容顯示在文字框中
vb6.0可以使用textbok控制元件或richtextbox控制元件實現將讀入文字檔案顯示於控制元件中。textbox 控制元件有時也稱作編輯欄位或者編輯控制元件，顯示設計時輸入的使用者輸入的 或執行時在 中賦予控制元件的資訊。為了在 textbox 控制元件中顯示多行文字，要將 multili...
VB中怎麼將文字框中的內容寫入陣列中
private sub command1 click dim a as string a split text1.text,for i 0 to ubound a print a i next end sub 意思是 將文字框裡面的內容以 逗號 處隔開 輸出到窗體上 先定義一個陣列,再用一個for迴...