vb.net中ChrW的问题未声明名称“ChrW”

fisheep_works 2008-11-03 10:59:17

程序出现“未声明名称“ChrW””的错误，，，vb.net好像没这个函数，怎么解决呢？！

...全文

159 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

迈克揉索芙特 2008-11-04

打赏
举报



Microsoft.VisualBasic.Strings.ChrW

yanlongwuhui 2008-11-04

打赏
举报

如下调用ChrW函数
Microsoft.VisualBasic.ChrW

lengyue110 2008-11-04

打赏
举报

importing Microsoft.VisualBasic.Strings

fisheep_works 2008-11-04

打赏
举报

谢谢各位

sunxinyu 2008-11-03

打赏
举报

引入VB6函数库

手机短信的发送接收原理与代码中文转换成Unicode码函数因为手机短消息的发送是以PDU串的形式发送出去的，中文字符以Unicode码来表示，所以在发送中文短消息之前必须首先将中文字符转换为Unicode码，下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数：ChrW（）将中文转换为Unicode码。

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.net 字符串转成二进制的函数。相当好用。 Imports System.Text Public Class MyFunctions '''

''' Converts a string to binnary format. '''

Public Function StringToBinary(data As String, line As Integer) As String Dim sb As New StringBuilder() For i As Integer = 0 To data.Length - 1 If i Mod line = 0 Then If i <> 0 Then For j As Integer = i - line To i - 1 Dim val As Char = data(j) If val >= ChrW(32) AndAlso val <= ChrW(127) Then sb.Append(val) Else sb.Append("?"c) End If Next sb.AppendLine() End If sb.Append(String.Format("0x{0} ", i.ToString("X4"))) End If If (i Mod line <> 0) AndAlso (i Mod (line \ 2) = 0) Then sb.Append("| ") End If Dim d As Integer = 2 If AscW(data(i)) > 255 Then d = 4 End If sb.Append((AscW(data(i))).ToString("X" & d.ToString()) & " ") Next Return sb.ToString() End Function End Class

介绍了一种简单、实用、通用性好的字符串加解密，在各种语言环境均可运行。值得注意的是程序中使用了AscW、ChrW函数，而没有使用Asc、Chr函数，因为在英文环境加解密中文时，程序无法正常运行，究竟为什么我就不多说了，大家仔细体会吧。还有一些相关的字符串处理函数，如ChrB、StrConv等也是很有用的。

'若使用Reflector,而且程序中有中文字符,Reflector会用代码表示。若反成C#，网上有很多解决方案了，而VB.net却找不到. 'VB.net里可能更复杂些，毕竟C#还是一个完整的字符串，而VB中却被拆成一个一个单字，然后用&连接 '下面这段代码解决了这个问题，将其拷到宏编辑器里保存即可 '写的有点傻傻的，懒得优化了，好使就行:) Impor...

16,554

社区成员

110,527

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章

vb.net中ChrW的问题 未声明名称“ChrW”

vb.net中ChrW的问题未声明名称“ChrW”