API/COM/系统相关
ACCESS调用字体和颜色对话框
2013-10-21 17:44:32
文件类型 :
文件版本 :
简要说明 :
API的作用在前面的示例中已经有所说明，只要是调用系统的参数。它的强大之处大家有目共睹。
下面继续使用API 来说明一下调用字体和颜色对话框，调用字体对话框，能选择字体的颜色，大小，字形等属性。还能设置窗体的背 景颜色。
调用颜色的只要代码：
Private Type COLORSTRUC
lStructSize As Long
hwnd As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Const CC_SOLIDCOLOR = &H80
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" _
(pChoosecolor As COLORSTRUC) As Long
Public Function aDialogColor(prop As Property) As Boolean
Dim x As Long, CS As COLORSTRUC, CustColor(16) As Long
CS.lStructSize = Len(CS)
CS.hwnd = hWndAccessApp
CS.Flags = CC_SOLIDCOLOR
CS.lpCustColors = String$(16 * 4, 0)
x = ChooseColor(CS)
If x = 0 Then
' ERROR - use Default White
prop = RGB(255, 255, 255) ' White
aDialogColor = False
Exit Function
Else
' Normal processing
prop = CS.rgbResult
End If
aDialogColor = True
End Function