VB6.0好用模块-1.0串口

VB6.0好用的串口模块类
使用方法如下
//该函数功能将得到的Com口进行从小到大排序写入ComboBox

Public Sub AddComForComBox(comboxcontral As ComboBox)Dim i As IntegerDim str2com() As String        //COM字符串数组Dim Serial_No() As String      //根据COM后面的数字进行排序Serial_No = Split(GetSerialPort, ";")   str2com = QuickSort(Serial_No)For i = 0 To UBound(str2com) - 1comboxcontral.AddItem Right(str2com(i), Len(str2com(i)) - 3)Next iIf UBound(str2com) <> 0 Then comboxcontral.ListIndex = 0
End Sub

模块源码如下：

Option ExplicitPublic Type SysetDataTableParts_ini_rs As RecordsetSerialPort_ini_rs As RecordsetTester_ini_rs As RecordsetTestItem_ini_rs As RecordsetEnd Type
Public SysPartsMena As SysPartsMenPrivate Type GUID   'GUID数据类型Data(0 To 3) As Long
End Type
Private Type SP_DEVINFO_DATA '设备信息类型cbSize As Lo