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