源码

热门下载

最新下载

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

当前位置：首页 > 源码 > 模块/函数/VBA/API/系统 > API/COM/系统相关
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
发布人:ACCESS代码爱好者-office中国  
分享到：
点击次数：  更新时间：2013-10-21 17:44:32  【打印此页】  【关闭】
上一条：access中用ADO操作记录集关联进度条  下一条：Access制作灯谜管理系统【精华】

相关下载

热门下载

热门产品