Access应用程序本身(msaccess.exe)有一些导出函数,是对win32api的再次封装,比如下面这个选择颜色对话框调用就很方便。 Private Declare Function wlib_AccChooseColor Lib "msaccess.exe" Alias "WizChooseColor@8" (ByVal hwnd As Long, rgb As Long) As Long Private Sub GetColor() Dim lRgb ...
模块部分: Option Explicit Public Const SOCKET_ERROR = -1 Public Const AF_INET = 2 Public Const PF_INET = AF_INET Public Const MAXGETHOSTSTRUCT = 1024 Public Const SOCK_STREAM = 1 Public Const MSG_PEEK = 2 Private Type SockAddr sin_family As Integer sin ...