关于在pb中修改字体的属性

[yahoosohu]

调用winApi函数 choosefont ,ocx控件COMDLG32.ocx修改字体的属性，如：字体名称，
字体样式，字体大小，颜色等属性时，不只该样调出字体的颜色属性。各位高收入有知道的请帮忙，不胜感激！

[Methodor]

structure:
type OS_ChooseColor from structure
long lstructsize
unsignedlong hwndowner
unsignedlong hinstance
long rgbresult
blob lpcustcolors
long flags
long lcustdata
long lpfnhook
long lptemplatename
end type
function:
function boolean ChooseColorA( REF os_ChooseColor lpcc ) library "comdlg32.dll"
public function boolean of_choosecolor (ref long al_rgbresult, readonly long al_owner, integer ai_para);os_ChooseColor lstr_ChooseColor
long ll_CustomInitColors[16]
blob{64} lbl_CustomColors

// initialize choosecolor information
// convert the default custom color array to a blob variable blobedit(ibl_customcolors,1,il_custominitcolors)
// let the structure element point to the blob array
lstr_choosecolor.lpcustcolors = lbl_customcolors

// set the size
lstr_choosecolor.lStructSize = 36

// no owner
choose case ai_para
case 0
SetNull(lstr_choosecolor.hwndOwner)
case 1
lstr_choosecolor.hwndOwner=al_owner
case else
SetNull(lstr_choosecolor.hwndOwner)
end choose

// set flag
lstr_choosecolor.flags = 1

boolean lb_ok
lstr_ChooseColor.rgbresult = al_rgbresult
lb_ok = ChooseColorA ( lstr_choosecolor )
al_rgbresult = lstr_ChooseColor.rgbresult
return lb_ok
~~