Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> API  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702715
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

调用公共对话框COMMON DIALOG的API——选择颜色对话框

作者:未详  摘自:未详  :cg1  更新日期:2002-12-28  浏览人次:

 

问题:

调用公共对话框COMMON DIALOG的API——选择颜色对话框

 

回答:

新建一个窗体,将下列代码COPY进去

Option Explicit

Private Type CHOOSECOLOR
     lStructSize As Long
     hwndOwner 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 Declare Function ChooseColorAPI Lib "comdlg32.dll" Alias _
     "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long

Dim CustomColors() As Byte

Private Sub Command1_Click()
    Dim cc As CHOOSECOLOR
    Dim Custcolor(16) As Long
    Dim lReturn As Long
    cc.lStructSize = Len(cc)
    cc.hwndOwner = Me.hWnd
    cc.hInstance = 0
    cc.lpCustColors = StrConv(CustomColors, vbUnicode)
    cc.flags = 0
    lReturn = ChooseColorAPI(cc)
    If lReturn <> 0 Then
        Me.Caption = "RGB Value User Chose: " & Str$(cc.rgbResult)
        Me.BackColor = cc.rgbResult            ' Visual Basic only ****
        Me.Section(0).BackColor = cc.rgbResult ' Access only **********
        CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
    Else
        MsgBox "User chose the Cancel Button"
    End If
End Sub

Private Sub Form_Load()
    ReDim CustomColors(0 To 16 * 4 - 1) As Byte
    Dim i As Integer

    For i = LBound(CustomColors) To UBound(CustomColors)
        CustomColors(i) = 0
    Next i
End Sub


 

 

 
相关文章
     用API函数取色后,如何将其分成RGB颜色?
     如何调用系统中的选择字体公共对话框
     API调用公共对话框(Common Diaglog)文件属性/打印端口/颜色/复制磁盘/格式化磁盘
     使用API调用Common Diaglog
     如何用API实现comdlg控件(公共对话框)的功能(打开保存文件窗口)?
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利