易截截图软件、单文件、免安装、纯绿色、仅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 / 基础类

在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。

不知道怎么实现的不要说话

这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / 基础类

xmlDoc1.loadXML(h)总是返回false,为什么?谢谢帮忙回答一下
h是什么呢。。。。。。。。。

h是xml格式的字符串

你是想打开。XML格式的文件吧?

我是把h放在xmlDoc1里,用xmlDoc1.loadXML(h),然后取xmlDo ......

vb生成EXE - VB / 基础类

form1中有text1-8, 和command1 
text8中为程序代码(生成窗体为form2(已做好))
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题 ......

求助:C代码改写成VB代码 - VB / 基础类

谁能帮我把下面这些代码改成VB形式的,多谢了,急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号