VB 串口通信

Question

小弟有一程序添加MSComm控件若干  接收数据时调用MSComm1_OnComm一次但当串口号为2是又要调用一次MSComm2_OnComm如果为10又要....问各位大侠可否把这些写成一个公共的可以的 话给一段代码

Answer 1

'添加一个MSComm1,index改成0,在FORM启动时加入9个MSCOMM
For i = 1 To 9
    Load MSComm1(i)
Next
'下面通过INDEX来区分不同的不同串口
Private Sub aMSComm_OnComm(Index As Integer)
Select Case Index
    Case 1
       
    Case 2
    case ..
    case 10
End Select
End Sub

Answer 2

这样还不是一样的MSComm_OnComm下的都是一样的代码还很长这样写的话只是减少了Private Sub aMSComm_OnComm(Index As Integer)  和End Sub 中间的同样的代码还是重复的

Answer 3

如果要调用的代码都一样写成一个公共函数啊
Private Sub aMSComm_OnComm(Index As Integer) 
 
      call fprocess(index)
    
End Subpvivate function fprocess(mIndex as long )
'你的处理内容,把一样的内容或者有规律内容放这里 end function