日志
msaccess.exe 导出函数之选择颜色对话框
热度 3 ||
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 As Long
wlib_AccChooseColor Me.hWnd, lRgb
MsgBox "选择颜色：" & lRgb
End Sub
