2008-06-30

利用API函数修改PB自带toolbar的字体

关键字: pb api toolbar 字体

改变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"

 

修改代码

long ll_null, ll_hwndToolBar, ll_hwnd, ll_pToolbar
string ls_windowName

SetNull(ls_windowName)
SetNull(ll_null)

try
    ll_hwnd = Handle(awin)
    ll_hwndToolBar = FindWindowEXA(ll_hwnd, ll_NULL, IS_TOOLBARCLASSNAME, ls_WindowName )
   
    if ll_hwndToolBar > 0 then
        ll_pToolbar = GetWindowLongA(ll_hwndToolBar,0)
        FN_ToolBarSetFont(ll_pToolbar, aFontName, aFontSize, 0, space(aTextSize))
    end if
catch(throwable ex)
    SignalError(-1, "Call API function to set toolbar font failed.")
    return -1
end try


如果是pb9的话IS_TOOLBARCLASSNAME = "FNFIXEDBAR90"

  • Font.rar (32.1 KB)
  • 描述: PB9.0小例子
  • 下载次数: 2
评论
发表评论

您还没有登录，请登录后发表评论

Ben.Sin
搜索本博客
存档
最新评论