利用API函数修改PB自带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"

利用API函数修改PB自带toolbar的字体相关推荐

利用API函数实现图像淡入淡出效果(VB)
利用API函数实现图像淡入淡出效果一般传统的实现两个PictureBox之间图像的淡入淡出效果都需要使用大量的API函数并进行复杂的调色板以及绘图设备(Device Context)的操作 ...
利用API函数实现图像淡入淡出效果 (转)
利用API函数实现图像淡入淡出效果 (转)[@more@]利用 api 函数实现图像淡入淡出效果一般传统的实现两个PictureBox之间图像的淡入淡出效果都需要使用大量的API函数并进行复杂的调色 ...
c#调用win32 API函数修改系统时间
一般来说,系统时间的修改可以通过win32 API函数库中的SetLocalTime函数进行设置.对于C#语言来说,虽然win32 API大部分函数都已经封装在了.NET Framework类库中,但 ...
VB.NET弹幕--- 利用API函数AnimateWindow创建Popup提示窗口,窗体的动画效果---章鱼哥
当我们打开电脑上网时,是不是会经常看到桌面的右下角弹出一个小的新闻热点窗体,我们可以实现吗?当然可以,这篇文章就来给您掩饰怎么样来用代码实现.看吧,正写着呢弹出了一个. A,参数设置 hWnd:指定产 ...
利用VB函数Dir()实现递归搜索目录
它没有采用任何的控件形式,也没有调用系统API函数FindFirst,FindNext进行递归调用,和别人有点不同的就是我用的是VB中的Dir()函数.事实上,直接采用Dir()函数是不能进行自身的 ...
通过调用API函数实现的无边框窗体的拖拽，比判断坐标更快捷
在winform程序中,有时会选择边框设计会none,但是这样就不能拖拽窗体移动解决方案有二: 1,判断坐标控制拖拽 2.利用API函数, 下面介绍利用API函数,方便,快捷 #region 移动无 ...
VB中API函数的调用
1.API函数 API的英文全称(Application Programming Interface),WIN32 API也就是MicrosoftWindows32位平台的应用程序编程接口 ...
Python编程语言学习：for循环中常用方法经验技巧(利用enumerate函数对列表实现自带索引等)之详细攻略
Python编程语言学习:for循环中常用方法经验技巧(利用enumerate函数对列表实现自带索引等)之详细攻略目录 for循环中常用方法经验技巧 1.利用enumerate函数对列表实现for循 ...
go语言中利用匿名函数和闭包实现文件名修改
package mainimport ("fmt""strings" )//利用匿名函数和闭包实现文件后缀修改 func makeSuffix(suffix s ...

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

利用API函数修改PB自带toolbar的字体相关推荐

最新文章

热门文章