易截截图软件、单文件、免安装、纯绿色、仅160KB

VB MSComm的奇怪问题 - VB / 基础类

我用VB做了串口通信程序,接收的数据如果长为一则是握手信号或结束信号，长为21为数据信号，程序运行正常后，把里面的Msgbox语句删除，数据长度的检测就出错了，不知道为什么？代码如下：
Private Sub MSComm1_OnComm()
Dim Arr() As Byte
Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件发生
bufcount = MSComm1.InBufferCount 
MsgBox (bufcount) '此句拿掉后则后面的Ubound(Arr)值不正确
Arr = MSComm1.Input
If ((UBound(Arr) <> 0) And (UBound(Arr) <> 21)) Then
MsgBox ("wrong...")
Exit Sub

程序运行时,如果发送的是握手或结束信号,则bufcount的值为,Ubound(arr)的值为0,如果数据信号,则Bufcount的值为8,Ubound(arr)的值为21,但如果将Msgbox去掉,则Ubound(arr)的值为7,不知道为什么?请高人指点!
程序运行时,如果发送的是握手或结束信号,则bufcount的值为1,Ubound(arr)的值为0,如果数据信号,则Bufcount的值为 8,Ubound(arr)的值为21,但如果将Msgbox去掉,则Ubound(arr)的值为7,不知道为什么?请高人指点!
参阅:http://www.vbgood.com/thread-83700-1-1.html
谢谢楼上,但是目前我的程序不想再做大的修改,只是想把MsbBox去掉,或者找一个替代的语句.
引用
谢谢楼上,但是目前我的程序不想再做大的修改,只是想把MsbBox去掉,或者找一个替代的语句.

用标签替代所有的MsbBox.
{{


相关问答：

vb 中 - VB / 基础类

dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串

看看i ......

VB 调用Inet控件下载出错 - VB / 网络编程

各位高手，小弟最近碰到一个问题：原先写的程序大概的思路是：首先webbrowser打开网址，网址显示后，点击网址上的某一个连接，当webbrowser检测到网址已经连接到想要的地址时候就开始下载文件，当用IE6的时候下� ......

vb WebBrowser 小问题，请教 - VB / 基础类

vb WebBrowser 小问题，请教：
WebBrowser里的网址跳转后，怎么取得跳转后的页面的URL地址

顶下顶下

引用
BeforeNavigate2
好像没有这个吧 vb6.0

BeforeNavigate2
这个可以有，呵呵。
......

vb中unicode码,如何转换成文本 - VB / 基础类

用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号