VBA 64位API声明语句第003讲

跟我学VBA，我这里专注VBA, 授人以渔。我98年开始，从源码接触VBA已经20余年了，随着年龄的增长，越来越觉得有必要把这项技能传递给需要这项技术的职场人员。希望职场和数据打交道的朋友，都来学习VBA,利用VBA,起码可以提高自己的工作效率，可以有时间多陪陪父母，多陪陪家人，何乐而不为呢？我的教程一共九套，从入门开始一直讲到程序的分发，是学习利用VBA的实用教程。这份API资料是随高级教程赠送的.

这讲我们继续学习VBA 64位API声明语句第003讲，这些内容是MS的权威资料，看似枯燥，但对于想学习API函数的朋友是非常有用的。

【分享成果，随喜正能量】 我们看夕阳，看秋河，看花，听雨，闻香，喝不求解渴的酒，吃不求饱的点心，都是生活上必要的——虽然是无用的装点，而且是愈精炼愈好。。

当学员学习到高级阶段，如果引用API，这个资料可以直接查到64位写法。大多数情况下我们是将低版本的程序文件升级到高版本，这时您就不必为如下的错误提示所困扰了：

Const SP_SERIALCOMM = &H1&

' Provider SubTypes

Const PST_UNSPECIFIED = &H0&

Const PST_RS232 = &H1&

Const PST_PARALLELPORT = &H2&

Const PST_RS422 = &H3&

Const PST_RS423 = &H4&

Const PST_RS449 = &H5&

Const PST_FAX = &H21&

Const PST_SCANNER = &H22&

Const PST_NETWORK_BRIDGE = &H100&

Const PST_LAT = &H101&

Const PST_TCPIP_TELNET = &H102&

Const PST_X25 = &H103&

' Provider capabilities flags.

Const PCF_DTRDSR = &H1&

Const PCF_RTSCTS = &H2&

Const PCF_RLSD = &H4&

Const PCF_PARITY_CHECK = &H8&

Const PCF_XONXOFF = &H10&

Const PCF_SETXCHAR = &H20&

Const PCF_TOTALTIMEOUTS = &H40&

Const PCF_INTTIMEOUTS = &H80&

Const PCF_SPECIALCHARS = &H100&

Const PCF_16BITMODE = &H200&

' Comm provider settable parameters.

Const SP_PARITY = &H1&

Const SP_BAUD = &H2&

Const SP_DATABITS = &H4&

Const SP_STOPBITS = &H8&

Const SP_HANDSHAKING = &H10&

Const SP_PARITY_CHECK = &H20&

Const SP_RLSD = &H40&

' Settable baud rates in the provider.

Const BAUD_075 = &H1&

Const BAUD_110 = &H2&

Const BAUD_134_5 = &H4&

Const BAUD_150 = &H8&

Const BAUD_300 = &H10&

Const BAUD_600 = &H20&

Const BAUD_1200 = &H40&

Const BAUD_1800 = &H80&

Const BAUD_2400 = &H100&

Const BAUD_4800 = &H200&

Const BAUD_7200 = &H400&

Const BAUD_9600 = &H800&

Const BAUD_14400 = &H1000&

Const BAUD_19200 = &H2000&

Const BAUD_38400 = &H4000&

Const BAUD_56K = &H8000&

Const BAUD_128K = &H10000

Const BAUD_115200 = &H20000

Const BAUD_57600 = &H40000

Const BAUD_USER = &H10000000

' Settable Data Bits

Const DATABITS_5 = &H1&

Const DATABITS_6 = &H2&

Const DATABITS_7 = &H4&

Const DATABITS_8 = &H8&

Const DATABITS_16 = &H10&

Const DATABITS_16X = &H20&

' Settable Stop and Parity bits.

Const STOPBITS_10 = &H1&

Const STOPBITS_15 = &H2&

Const STOPBITS_20 = &H4&

Const PARITY_NONE = &H100&

Const PARITY_ODD = &H200&

Const PARITY_EVEN = &H400&

Const PARITY_MARK = &H800&

Const PARITY_SPACE = &H1000&

Type COMMPROP

wPacketLength As Integer

wPacketVersion As Integer

dwServiceMask As Long

dwReserved1 As Long

dwMaxTxQueue As Long

dwMaxRxQueue As Long

dwMaxBaud As Long

dwProvSubType As Long

dwProvCapabilities As Long

dwSettableParams As Long

dwSettableBaud As Long

wSettableData As Integer

wSettableStopParity As Integer

dwCurrentTxQueue As Long

dwCurrentRxQueue As Long

dwProvSpec1 As Long

dwProvSpec2 As Long

wcProvChar(1) As Integer

End Type

'Type COMSTAT

' fCtsHold As Long

' fDsrHold As Long

' fRlsdHold As Long

' fXoffHold As Long

' fXoffSent As Long

' fEof As Long

' fTxim As Long

' fReserved As Long

' cbInQue As Long

' cbOutQue As Long

'End Type

Type COMSTAT

fBitFields As Long 'See Comment in WinAPI.Txt

cbInQue As Long

cbOutQue As Long

End Type

' The eight actual COMSTAT bit-sized data fields within the four bytes of fBitFields can be manipulated by bitwise logical And/Or operations.

' FieldName Bit # Description

' --------- ----- ---------------------------

' fCtsHold 1 Tx waiting for CTS signal

' fDsrHold 2 Tx waiting for DSR signal

' fRlsdHold 3 Tx waiting for RLSD signal

' fXoffHold 4 Tx waiting, XOFF char rec'd

' fXoffSent 5 Tx waiting, XOFF char sent

' fEof 6 EOF character sent

' fTxim 7 character waiting for Tx

' fReserved 8 reserved (25 bits)

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：