ACCESS調用字體和顏色對話框
時間：2013-10-21 17:35 來源：office中國 作者：ACCESS代碼愛好者 閱讀：次
軟件類型：國產軟件
授權方式：免費軟件
界面語言：簡體中文
軟件大小：63 KB
文件類型：.zip
運行環(huán)境：Win2003,WinXP,Win2000,Win9X
軟件等級：★★★★★
發(fā)布時間：2013-10-21
插件情況：
下載次數：
下載次數：
軟件介紹：
API的作用在前面的示例中已經有所說明，只要是調用系統的參數。它的強大之處大家有目共睹。
下面繼續(xù)使用API 來說明一下調用字體和顏色對話框，調用字體對話框，能選擇字體的顏色，大小，字形等屬性。還能設置窗體的背 景顏色。
調用顏色的只要代碼：
下面繼續(xù)使用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%
下載地址：
注意事項：
☉推薦使用第三方專業(yè)下載工具下載本站軟件，使用 WinRAR v3.10 以上版本解壓本站軟件。
☉如果這個軟件總是不能下載的請點擊報告錯誤,謝謝合作!!
☉下載本站資源，如果服務器暫不能下載請過一段時間重試！
☉如果遇到什么問題，請到本站論壇去咨尋，我們將在那里提供更多 、更好的資源！
☉本站提供的一些商業(yè)軟件是供學習研究之用，如用于商業(yè)用途，請購買正版。
相關軟件
最新軟件
推薦軟件