如何改变PB自带工具栏的字体

[lula]

如何改变PB自带工具栏的字体﹐不要自定义控件做工具栏。

[zjoy]

function long FN_ToolBarSetFont(long unknown,string fontname,long fontsize,long unknown1,string str) library "pbvm100.dll"

用这个方法可以改

[lula]

我也听说过这个函数，但不懂怎么用什么参数，请给个例子，谢谢！

[zjoy]

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"

long ll_NULL, ll_hwndToolBar,ll_hmain,ll_pToolbar
string ls_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"

[ribut9225]

好东东
学习一下

[jflsljz]

请问在PB11版下面如何实现上述功能?