求高手 VB文字框輸入規定的漢字幾個漢字 例如 一二三

2023-08-31 08:21:10 字數 2240 閱讀 2555

1樓:學無止境

private sub command1_click()dim i as string

i =if i = 一" or i = 二" or i = 三" then= i

end if

end sub

初學的,**寫的不是很好,但是能實現。

新建一個工程,新增一個命令按鈕,新增一個文字框控制元件,複製上面**即可。

vb文字框中的字元如何判斷是字元還是漢字

2樓:匿名使用者

0 255 or a < 0 then msgbox "剛才輸入的是漢字" else msgbox "剛輸入的是字元"

end sub

這是靠ascii碼來判斷的,你根據你的程式需要進行修改吧,這是對輸入框約束輸入的比較常用的方法之一,你可以去搜尋一下英文字元ascii碼錶。

在vb中怎麼樣才能實現一個文字框只能夠輸入漢字字元

3樓:匿名使用者

private sub command1_click()for i = 1 to len(

x = mid(, i, 1)

if asc(x) >0 then '輸入數字或英文字元都將大於0

msgbox "輸入不正確,有非中文字元"

exit for

exit sub

end if

nextend sub

4樓:匿名使用者

給你個判斷是否為漢字的函式吧。

private function is_hanzi(byval str_char as string)

if ascw(str_char) >h0 and ascw(str_char) is_hanzi = false

elseis_hanzi = true

end if

end function

5樓:學古箏

用asc漢字的都是負數。

vb textbox內輸入的漢字顯示為亂碼

6樓:網友

我來進行終極解答:繁體版的話textbox輸入漢字是會顯示亂碼的,不要使用textbox,去使用richtextbox就好了!!!保證ok!!!

7樓:匿名使用者

設定textbox的字型。

如"宋體"主要是要把字型設定為繁體字型。

8樓:匿名使用者

使用搜狗輸入法在textbox內輸入漢字,顯示的為亂碼。

9樓:網友

您的電腦裡在系統盤font資料夾下 應該缺少這種字型檔案 在別的可以顯示繁體字的電腦上覆制一個就好了。

vb裡怎麼把輸入文字框裡的漢字顯示在標籤裡,要寫什麼**啊,

10樓:匿名使用者

你說的是提取文字框裡面的漢字,如果是可以使用ascii碼。

vb問題 怎麼能使得焦點在哪個文字框,一點選按鈕漢字就在哪個文字框裡。

11樓:網友

dim index as integer '窗體級變數。

private sub form_load()index = 0

end sub

private sub text1_gotfocus()index = 0

end sub

private sub text2_gotfocus()index = 1

end sub

private sub command1_click()if index = 0 then ="漢字" else ="漢字"閉伍。

end sub

設稿穗定比 小 就行轎敬或了。

12樓:尋_走

dim index as byte

private sub command1_click()if index = 1 then

選種文字框1"

選早閉數態銷種文字框陸首2"

end if

end sub

private sub text1_click()index = 1

end sub

private sub text2_click()index = 2

end sub

VB中如何輸入文字框文字輸入字元,在這字元後加上

private sub text1 change if len text1.text 4 then text1.text text1.text end sub 我精心寫了一段哦!現在針對的是text1這個控制元件只需要放一個text1控制元件在窗體上在複製這段 貼上執行就可以了。我想了3種方法,一個...

html網頁怎麼設定文字框裡面輸入的文字大小

使用font size樣式就可以。line height 25px 無效的話就在css樣式表裡把這個input加個class 把它的表現形式變為 display inline block 或者display block。一下 style 中加入 style font size 26px 就可以加大文...

vb怎麼獲取文字框裡的字串,VB怎麼獲取文字框裡的字串

先定義一個變數,然後將變數設定為文字框的內容即可。如下 以獲取text1控制元件為例 dim str1 as string 定義字元變數private sub text1 change 當text1字元改變時 str1 text1.text 設定為文字框的字串end sub dim a as str...