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
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
