vb MScom控件接收不到数据
程序如下
Private Sub comLED_OnComm()
Select Case Me.comLED.CommEvent
Case comEvReceive
Dim Buffer As Variant
comLED.InputLen = 0
'接收二进制数据
comLED.InputMode = comInputModeBinary
Buffer = comLED.Input
Label11.Caption = Buffer
Case Else
End Select
End Sub
计算机接收不到任何数据，为什么？？
你在OnComm事件里面宣告定义那些东东, 进来的资料都被你自己干掉了
Dim Buffer As Variant
comLED.InputLen = 0
接收二进制数据
comLED.InputMode = comInputModeBinary
把这些宣告移到 Form_Load或其它地方吧
VB code:
Private Sub comLED_OnComm()
Dim Buffer() As Byte '2进制接收
Dim i As Long
Select Case Me.comLED.CommEvent
Case comEvReceive
comLED.InputMode = comInputModeBinary
comLED.InputLen = 0
'接收二进制数据
Buffer = comLED.Input
For i = 0 To UBound(Buffer)
Label11.Caption = Label11.Caption & Right("0" & Hex(Buffer(i
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
