改变PB自带工具栏的字体
如何改变PB自带工具栏的字体﹐不要自定义控件做工具栏。
function long FN_ToolBarSetFont(long unknown,string fontname,long fontsize,long unknown1,string str) library "pbvm100.dll"
用这个方法可以改
function long FindWindowExA( long hParent, long hChildAfter, String lpszClass, String lpszWindow ) Library "user32.dll"
function long GetWindowLongA( long hWnd, integer index) Library "user32.dll"
function long FN_ToolBarSetFont(long unknown,string fontname,long fontsize,long unknown1,string str) library "pbvm80.dll"
longll_NULL, ll_hwndToolBar,ll_hmain,ll_pToolbar
stringls_WindowName,ls_ToolClassName = "FNFIXEDBAR80"
SetNull(ls_WindowName)
SetNull(ll_NULL)
ll_hmain = Handle(w_main)
ll_hwndToolBar = FindWindowEXA( ll_hmain, ll_NULL, ls_ToolClassName, ls_WindowName )
if ll_hwndToolBar>0 then
ll_pToolbar = GetWindowLongA(ll_hwndToolBar,0)
FN_ToolBarSetFont(ll_pToolbar,"宋体",-22,0,"12345678")
end if
pb9的话ls_ToolClassName = "FNFIXEDBAR90" |