vb用API对串口操作的类

《vb用API对串口操作的类》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、'*************************************************************************'**模块名：SPort'**byzdt20081110'**用API对Com进行操作'*************************************************************************OptionExplicit'PrivateTypeCOMSTAT'fCtsHoldAsLong'fDsrHoldAsLong'fRlsdHoldAsLong'fXoffHoldAsLong'fXof

2、fSentAsLong'fEofAsLong'fTximAsLong'fReservedAsLong'cbInQueAsLong'cbOutQueAsLong'EndTypePrivateTypeCOMSTATfBitFieldsAsLong'SeeCommentinWin32API.TxtCOMSTATcbInQueAsLongcbOutQueAsLongEndTypePrivateTypeCOMMTIMEOUTSReadIntervalTimeoutAsLongReadTotalTimeoutMultiplierAsLongReadTotalTimeoutConstant

3、AsLongWriteTotalTimeoutMultiplierAsLongWriteTotalTimeoutConstantAsLongEndTypePrivateTypeDCBDCBlengthAsLongBaudRateAsLongfBitFieldsAsLong'SeeCommentsinWin32API.TxtwReservedAsIntegerXonLimAsIntegerXoffLimAsIntegerByteSizeAsByteParityAsByteStopBitsAsByteXonCharAsByteXoffCharAsByteErrorCharAsBy

4、teEofCharAsByteEvtCharAsBytewReserved1AsInteger'Reserved;DoNotUseEndTypePrivateTypeOVERLAPPEDInternalAsLongInternalHighAsLongoffsetAsLongOffsetHighAsLonghEventAsLongEndTypePrivateTypeSECURITY_ATTRIBUTESnLengthAsLonglpSecurityDescriptorAsLongbInheritHandleAsLongEndTypePrivateDeclareFunctionC

5、loseHandleLib"kernel32"(ByValhObjectAsLong)AsLongPrivateDeclareFunctionGetLastErrorLib"kernel32"()AsLongPrivateDeclareFunctionReadFileLib"kernel32"(ByValhFileAsLong,lpBufferAsAny,ByValnNumberOfBytesToReadAsLong,lpNumberOfBytesReadAsLong,lpOverlappedAsOVERLAPPED)AsLongPrivateDeclareFunctionW

6、riteFileLib"kernel32"(ByValhFileAsLong,lpBufferAsAny,ByValnNumberOfBytesToWriteAsLong,lpNumberOfBytesWrittenAsLong,lpOverlappedAsOVERLAPPED)AsLong'OVERLAPPEDPrivateDeclareFunctionSetCommTimeoutsLib"kernel32"(ByValhFileAsLong,lpCommTimeoutsAsCOMMTIMEOUTS)AsLongPrivateDeclareFunctionGetCommTi

7、meoutsLib"kernel32"(ByValhFileAsLong,lpCommTimeoutsAsCOMMTIMEOUTS)AsLongPrivateDeclareFunctionGetOverlappedResultLib"kernel32"(ByValhFileAsLong,lpOverlappedAsOVERLAPPED,lpNumberOfBytesTransferredAsLong,ByValbWaitAsLong)AsLongPrivateDeclareFunctionBuildCo