to ozw(沧浪客) 我有事找你，你在吗？？？

Question

你太看得起我了。
如果是自己打开串口，并进行操作，那应该可以，用MScomm32就行了（有OnComm事件）
如果要捕获如鼠标等的串口事件，那我也不知道怎么做

Answer 1

我是自己打开串口呀！！有什么办法呀！！！有源代码吗！！你看这个对吗？？？
OnComm 事件示例
下例说明如何处理通讯错误和事件。可以在相关的 Case 语句之后插入代码来处理特定的错误或事件。Private Sub MSComm_OnComm ()
  Select Case MSComm1.CommEvent
  ' Handle each event or error by placing 
  ' code below each case statement' 错误
      Case comEventBreak  ' 收到 Break。
      Case comEventCDTO  ' CD (RLSD) 超时。
      Case comEventCTSTO  ' CTS Timeout。
      Case comEventDSRTO  ' DSR Timeout。
      Case comEventFrame  ' Framing Error
      Case comEventOverrun  '数据丢失。
      Case comEventRxOver'接收缓冲区溢出。
      Case comEventRxParity' Parity 错误。
      Case comEventTxFull  '传输缓冲区已满。
      Case comEventDCB  '获取 DCB] 时意外错误  ' 事件
      Case comEvCD  ' CD 线状态变化。
      Case comEvCTS  ' CTS 线状态变化。
      Case comEvDSR  ' DSR 线状态变化。
      Case comEvRing  ' Ring Indicator 变化。
      Case comEvReceive  ' 收到 RThreshold # of
chars.
      Case comEvSend  ' 传输缓冲区有 Sthreshold 个字符                    '
                    '
      Case comEvEof  ' 输入数据流中发现 EOF 字符
                    ' 
  End Select
End Sub

Answer 2

to ozw(沧浪客)　你看下面的呢？
Private Sub MSComm_OnComm ()
  Select Case MSComm1.CommEvent
  ' Handle each event or error by placing 
  ' code below each case statement' 错误
      Case comEventBreak  ' 收到 Break。
      Case comEventCDTO  ' CD (RLSD) 超时。
      Case comEventCTSTO  ' CTS Timeout。
      Case comEventDSRTO  ' DSR Timeout。
      Case comEventFrame  ' Framing Error
      Case comEventOverrun  '数据丢失。
      Case comEventRxOver'接收缓冲区溢出。
      Case comEventRxParity' Parity 错误。
      Case comEventTxFull  '传输缓冲区已满。
      Case comEventDCB  '获取 DCB] 时意外错误  ' 事件
      Case comEvCD  ' CD 线状态变化。
     msgbox"1"
      Case comEvCTS  ' CTS 线状态变化。
     msgbox"2" 
Case comEvDSR  ' DSR 线状态变化。
     msgbox"3"
 Case comEvRing  ' Ring Indicator 变化。
     msgbox"4" 
Case comEvReceive  ' 收到 RThreshold # of
chars.
      Case comEvSend  ' 传输缓冲区有 Sthreshold 个字符                    '
                    '
      Case comEvEof  ' 输入数据流中发现 EOF 字符
                    ' 
  End Select
End Sub
为什么我按鼠标的左右建时他还是没有反映呀