可以,用VB自帶函數就可以了半角轉全角:Text2.Text = StrConv(Text1.Text, )全角轉半角:Text2.Text = StrConv(Text1.Text,vbNarrow)當然你可以做得智能一點,譬如只允許輸入數字、符號和字母什么的。

公司主營業務:網站設計、成都網站建設、移動網站開發等業務。幫助企業客戶真正實現互聯網宣傳,提高企業的競爭能力。創新互聯公司是一支青春激揚、勤奮敬業、活力青春激揚、勤奮敬業、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業文化,感謝他們對我們的高要求,感謝他們從不同領域給我們帶來的挑戰,讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創新互聯公司推出景寧畬族自治免費做網站回饋大家。
/// 轉全角的函數(SBC case) ///???????///
任意字符串
/// 全角字符串 /// ???????///全角空格為 半角空格為 ???????///其他字符半角( )與全角( )的對應關系是 均相差 ///
public string ToSBC(string input) { //半角轉全角 ?? ?char[] c=input ToCharArray(); ????? for (int i = ; i c Length; i++) ??? { ?????? if (c[i]== ) ??? {??? c[i]=(char) ; continue; ? } ?? if (c[i] ) c[i]=(char)(c[i]+ ); ?? } return new string(c); } ///
/// 轉半角的函數(DBC case) /// ///
任意字符串
/// 半角字符串 /// ///全角空格為 半角空格為 ///其他字符半角( )與全角( )的對應關系是 均相差 /// public string ToDBC(string input) { char[] c=input ToCharArray(); for (int i = ; i c Length; i++) { if (c[i]== ) { c[i]= (char) ; continue; } if (c[i] c[i] ) c[i]=(char)(c[i] ); } return new string(c); }
VB版本
lishixinzhi/Article/program/net/201311/11902
遍歷每一個字符,看是全角還是半角的。半角的字符總數 +1,全角的字符總數 +2。
參考:
Public?Function?GetByteLength(ByVal?value?As?String)?As?Long
Dim?i?As?Long?=?0
For?Each?c?As?Char?In?value
If?(c.ToString().Length?=?System.Text.Encoding.Default.GetByteCount(value.ToString()))?Then
i?=?i?+?1
End?If
i?=?i?+?1
Next
Return?i
End?Function
VB內部采用Unicode編碼,在這種編碼格式下,任何字符(包括半角的字母、數字、符號以及全角的漢字、符號)都是占用兩個字節的。因此,Len("1111徐")的返回值是5,表示5個字符,而LenB("1111徐")的返回值是10,表示占用10個字節。
要想按ANSI編碼格式來獲取字符串的字節數,必須這樣:
LenB(StrConv("1111徐", vbFromUnicode))
要注意哦,雖然返回值是6,但這個數與這個字符串在內存中的實際占用字節數是不相符的哦!
本文題目:關于vb.net半角文字的信息
轉載注明:http://www.yijiale78.com/article42/doddehc.html
成都網站建設公司_創新互聯,為您提供全網營銷推廣、微信公眾號、ChatGPT、網站制作、外貿網站建設、定制開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯