hur.cn - 华软网

 热门搜索

若工具条上的ToolbaritemText的内容太多, 如何内容全部显示?

  作者:未知    来源:网络    更新时间:2018/10/12
http://img185.photo.163.com/chinabjmic/22466698/562744143.jpg

如上图所示, 本来内容是“复制复制复制复制”的,但在工具条上却显示不完,有没有可能让全数的内容都在工具条上显示?
------华软网友回答------
//修改工具条的字体及巨细
uo_toolbarfont luo_toolbarfont
luo_toolbarfont.of_SetToolBarFont(this, "宋体", -12, "123456")

//如果还显示不开,你能够用下面这个
//luo_toolbarfont.of_SetToolBarFont(this, "宋体", -12, "1234567890")

//用户对象代码以下

forward
global type uo_toolbarfont from nonvisualobject
end type
end forward

global type uo_toolbarfont from nonvisualobject autoinstantiate
end type

type prototypes
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"

end prototypes

type variables


end variables

forward prototypes
public function long of_gettoolbarhandle (window aw_frame)
public subroutine of_settoolbarfont (window aw_frame, string as_fontname, integer ai_fontsize, string as_extent)
end prototypes

public function long of_gettoolbarhandle (window aw_frame);//获得Toolbar的HANDLE
long ll_NULL, ll_hwndToolBar
string ls_ClassName, ls_WindowName
Environment lEnv

IF IsValid( aw_Frame ) AND (GetEnvironment(lEnv) = 1) THEN

CHOOSE CASE lEnv.PBMajorRevision
CASE 6
ls_ClassName = "FNFIXEDBAR60"
case 7 
ls_ClassName = "FNFIXEDBAR70"
case 8
ls_ClassName = "FNFIXEDBAR80"
case 9
ls_ClassName = "FNFIXEDBAR90"
END CHOOSE
SetNull(ls_WindowName)
SetNull(ll_NULL)
ll_hwndToolBar = FindWindowEXA( Handle(aw_Frame), ll_NULL, ls_ClassName, ls_WindowName )
END IF

RETURN ll_hwndToolBar
end function

public subroutine of_settoolbarfont (window aw_frame, string as_fontname, integer ai_fontsize, string as_extent);long ll_hwndToolBar,ll_unknown
ll_hwndToolBar = of_GetToolBarHandle( aw_frame) 
if ll_hwndToolBar>0 then
ll_unknown = GetWindowLongA(ll_hwndToolBar,0)
FN_ToolBarSetFont(ll_unknown,as_fontname,ai_fontsize,0,as_extent)
end if

end subroutine
on uo_toolbarfont.create
call super::create
TriggerEvent( this, "constructor" )
end on

on uo_toolbarfont.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on


------华软网友回复------
里面调用了PB自身的几个函数来编写的,能够调整工具栏的字体及巨细,和间隔

如果不行,能够发消息给我,帮你解决
------华软网友回复------
工具栏本来字不宜多,菜单也如此

每一个菜单的字数能相同最好
------华软网友回复------
对啊。。。需要显示那么多字?
------华软网友回复------
upupup!!!      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。