ribut9225
主版主
帖子
3067
精华
1
无忧币 5692
积分 4077
阅读权限 150
来自 (保密)
|
发表于:2007-9-22 10:02
标题：改变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"
|
用户必读，51CTO积分系统调整通知 |
|
| 诚征版主 | 版主堂 | 意见建议 | 大史记 | 论坛地图