ACCESS调用字体和颜色对话框
时间：2013-10-21 17:35 来源：office中国 作者：ACCESS代码爱好者 阅读：次
软件类型：国产软件
授权方式：免费软件
界面语言：简体中文
软件大小：63 KB
文件类型：.zip
运行环境：Win2003,WinXP,Win2000,Win9X
软件等级：★★★★★
发布时间：2013-10-21
插件情况：
下载次数：
下载次数：
软件介绍：
API的作用在前面的示例中已经有所说明，只要是调用系统的参数。它的强大之处大家有目共睹。
下面继续使用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
顶一下
(3)
100%
踩一下
(0)
0%
下载地址：
注意事项：
☉推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。
相关软件
最新软件
推荐软件