如何在VB的TextBox里显示UNICODE字符串?

iProgram 2005-06-06 04:58:19

我有个String里面含有ASCII大于128的字符,比如ASCII 196 (A上面两个点).我想在TextBox里显示这个字符,但是128以上的字符显示都是问号.在RichTextBox里可以显示. 怎么让TextBox也能显示这种大于128的字符?

...全文

265 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

zday 2005-09-09

打赏
举报

回复

顶

igxk 2005-09-09

打赏
举报

回复

我也来看看！

mustudent 2005-09-09

打赏
举报

回复

关注啊！

zday 2005-09-09

打赏
举报

回复

顶

VB字符串中汉字统计程序，输入一段英文和汉字混合的字符串，统计期中的汉子数！

VB2010读取指定字符串。 Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load '定义变量的类型很重要，关系到计数的开始，如果数整型，则开始的0不在计算之列，如果是字符串，则计算 Dim wIM, yIM As String TextBox1.Text = "123456789" wIM = TextBox1.Text '空格计算位数 yIM = Mid(wIM, 6, 2) TextBox2.Text = yIM 'TextBox2.Text = Convert.ToInt32(yIM, 2) End Sub Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click End Sub Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged '将第6，第7个数转换为ASCII码，然后转化为2进制 Dim AIM, bIM As String Dim bttext As Byte() Dim strbin As String = "" AIM = TextBox1.Text bIM = Mid(AIM, 6, 2) TextBox2.Text = bIM bttext = System.Text.Encoding.UTF8.GetBytes(TextBox2.Text) For i = 0 To bttext.Length - 1 strBin = strBin & Convert.ToString(Int32.Parse(bttext(i)), 2).PadLeft(8, "0") Next i TextBox3.Text = strbin End Sub End Class

VB反编译Unicode转文字, 核心代码 string nr = textBox1.Text; char[] a = new char[] { '\r', '\n' }; string[] wzsz = nr.Split(a); for (int i = 0; i < wzsz.Length; i++) { if (wzsz[i] != "") { textBox2.Text += Convert.ToChar(Convert.ToUInt32(wzsz[i])).ToString() ; } } 支持去除对于文字处理前 ChrW(26080) & ChrW(25928) & ChrW(30340) & ChrW(25805) 去除文字后 26080 25928 30340 25805 转换后无效的操

VB 统计字母个数 VB 统计字母个数 VB 统计字母个数

精彩编程与编程技巧-用VB快速读取TextBox第N行的数据 ...

7,787

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章