菜单的Toolbar的问题
我在Menu里的Toolbar的Text属性里设置好 中文内容的时候,在韩文操作系统下不能正常显示,请问Toolbar里的Text如何设置字体
[解决办法]
在窗体的OPEN事件里写这段代码.
然后你是不是菜单挂在窗体里啊.正常的代码应该是这样写的
下面给你写函数:
1声明外部函数:
FUNCTION ulong FindWindow(ref string lpClassName,ref string lpWindowName) &
LIBRARY "user32.dll" ALIAS FOR "FindWindowA"
2函数:of_gettoolbarhandle
函数名:of_gettoolbarhandle
返回值:LONG
参数:aw_frame 类型:WINDOW
longll_NULL, ll_hwndToolBar
stringls_ClassName, ls_WindowName
EnvironmentlEnv
IF IsValid( aw_Frame ) AND (GetEnvironment(lEnv) = 1) THEN
CHOOSE CASE lEnv.PBMajorRevision
CASE 6
ls_ClassName = "FNFIXEDBAR60"
case 8
ls_ClassName = "FNFIXEDBAR80"
case 7
ls_ClassName = "FNFIXEDBAR70"
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
3函数of_settoolbarfont
函数名:of_settoolbarfont
返回值:无
参数1:aw_frame 类型:WINDOW
参数2:as_fontname SRING
参数3:ai_fontsize INTEGER
参数4:as_extent string
longll_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
累死了.请仔细看一下.
调用部分
application theapp
theApp = GetApplication()
theApp.toolbartext = true
//修改工具条字体
of_settoolbarfont(this, "宋体", -12, "12345678900")
说明:of_settoolbarfont,字体和参数自己任意定.
