创建字体选择对话框,使用户能够选择逻辑字体属性.
#Include <Misc.au3>
_ChooseFont([$sFontName = "Courier New" [, $iPointSize = 10 [, $iColorRef = 0 [, $iFontWeight = 0 [, $iItalic = False [, $iUnderline = False [, $iStrikethru = False [, $hWndOwner = 0]]]]]]]])
| $sFontName | [可选参数] 默认字体名称 |
| $iPointSize | [可选参数] 字体磅值大小.(注:1 磅=1/72 英寸) |
| $iColorRef | [可选参数] COLORREF RGB颜色 |
| $iFontWeight | [可选参数] 字体重度(笔划粗细) |
| $iItalic | [可选参数] 斜体 |
| $iUnderline | [可选参数] 下划线 |
| $iStrikethru | [可选参数] 删除线 |
| $hWndOwner | [可选参数] 本对话框的父窗口句柄. |
| 成功: | 返回下方格式的数组: |
| [0] - 数组元素总数 | |
| [1] - 属性 = 斜体:2,下划线:4,删除线:8,可使用BitOr进行组合. | |
| [2] - 字体名称 | |
| [3] - 字体大小 = 磅值 (注:1 磅=1/72 英寸) | |
| [4] - 字体重度 = 0-1000 | |
| [5] - COLORREF RGB颜色 | |
| [6] - Hex BGR 颜色 | |
| [7] - Hex RGB 颜色 | |
| 失败: | 返回 -1 |
#include <Misc.au3>
Local $a_font
; 示例 1
$a_font = _ChooseFont("Arial", 8)
If (@error) Then
MsgBox(4096, "", "错误 _ChooseFont: " & @error)
Else
MsgBox(4096, "", "字体名称: " & $a_font[2] & @LF & "大小: " & $a_font[3] & @LF & "字形: " & $a_font[4] & @LF & "COLORREF rgbColors: " & $a_font[5] & @LF & "Hex BGR 颜色: " & $a_font[6] & @LF & "Hex RGB 颜色: " & $a_font[7])
EndIf
; 示例 2
$a_font = _ChooseFont()
If (@error) Then
MsgBox(4096, "", "错误 _ChooseFont: " & @error)
Exit
Else
MsgBox(4096, "", "字体名称: " & $a_font[2] & @LF & "大小: " & $a_font[3] & @LF & "字形: " & $a_font[4] & @LF & "COLORREF rgbColors: " & $a_font[5] & @LF & "Hex BGR 颜色: " & $a_font[6] & @LF & "Hex RGB 颜色: " & $a_font[7])
EndIf
; 示例 3
Local $FontName = $a_font[2]
Local $FontSize = $a_font[3]
Local $ColorRef = $a_font[5]
Local $FontWeight = $a_font[4]
Local $Italic = BitAND($a_font[1], 2)
Local $Underline = BitAND($a_font[1], 4)
Local $Strikethru = BitAND($a_font[1], 8)
$a_font = _ChooseFont($FontName, $FontSize, $ColorRef, $FontWeight, $Italic, $Underline, $Strikethru)
If (@error) Then
MsgBox(4096, "", "错误 _ChooseFont: " & @error)
Else
MsgBox(4096, "", "字体名称: " & $a_font[2] & @LF & "大小: " & $a_font[3] & @LF & "字形: " & $a_font[4] & @LF & "COLORREF rgbColors: " & $a_font[5] & @LF & "Hex BGR 颜色: " & $a_font[6] & @LF & "Hex RGB 颜色: " & $a_font[7])
EndIf