ASC码是255的字符&HFF是十六进制的255
解决方案 »
- 【CBM666 的无烟侯机好累人】
- vb局域网程序如何使用mysql
- 高手请进来:VB+sqlserver
- 请问SPR32X30.ocx是什么控件?有什么功能,用处!
- 怎样重命名一个文件,最好不使用FileSystemObject
- 串口问题
- 谁能告诉我?printer对象的height,width,scaleheight,scalewidht,papersize,等等有什么联系和区别?
- 怎样在MSHFLEXGRID中显示两位小数的 DOUBLE ?
- 如何制作可执行文件
- 请教acptvb两个问题
- 请介绍一本有关vb报表技术的书
- 怎样才能驱除webbrowser(浏览网页用的控件)右边的hscrol滚动条?
Chr(&HFF)=Chr(255)
所以Chr(&HFF)被认为是一个双字节字符
所以内部被处理成Chr(&HF8F5)
再进行字符串处理就不会得到你想要得结果
以下整个过程是什末意思????
///////////////////////////
// 设置二进制数组,Buf(0)--Buf(7)是八字节的消息头
buf(0) = Chr(&HFF)
buf(1) = Chr(8)
buf(4) = Chr(1)
buf(5) = Chr(0)
buf(6) = Chr(0)
buf(7) = Chr(0)j = 7 //
longc = 7
longb = 8
Dim xm$, lxm
xm = TxtFields(22).Text //读入要发送的字串
lc = Len(xm) //取字串长度
lb = LenB(StrConv(xm, vbFromUnicode)) //取字串二进制长度
longc = longc + 2 + lc// 生成发送的Buf数组
buf(j + 1) = Chr(1)
For i = 1 To lc Step 1
buf(j + 2 + i) = Mid(xm, i, 1)
Next i
buf(j + 2) = Chr(lb + 2)
longb = longb + 2 + lb
j = j + 2 + lc// 下面循环发送数组内容
For i = 0 To longc Step 1
Winsock1.SendData buf(i)
这与Chr(&Hff)的含义无关去找定义这种格式的人
只有他才知道意义
Returns the character associated with the specified ANSI character code.
The charcode argument is a number that identifies a character.