|
$SS_CENTER样式,帮助中说明如下 "$SS_CENTER 0x01 文本居中, 随输入字符自动扩展宽度. "
而实际上,我们用 GUICtrlCreateLabel 控件加$SS_CENTER 的时候,文字却换行了(设置控件高度无效的,只会导致下面的无法显示)。。我需要的是就如帮助中说明那样,按字符长度自动扩展宽度。
代码如下
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Local $pos = WinGetPos("[class:Shell_TrayWnd]")
Local $w = 750, $h = 40+20
Local $msg = "拜托键盘和鼠标能擦干净点不?每天通宵完之后那键盘和鼠标都脏的恶心,油腻腻的就算了上面还有象泥一样的污垢,建议每天通宵完卫生人员能把键盘和鼠标擦擦干净,特别是鼠标以前的磨沙面的没感觉现在的新鼠标是烤漆面的上面有些脏东西看得很恶心啊。"
$Form1 = GUICreate("Form1", $w, $h, Default, @DesktopHeight - $pos[3] - $h, $WS_POPUP, $WS_EX_TOOLWINDOW, WinGetHandle(AutoItWinGetTitle()))
$Label1 = GUICtrlCreateLabel("", 24, 16, 4, 4)
$Label2 = GUICtrlCreateLabel($msg, 5, 5, Default, $h - 10,$SS_CENTER )
GUICtrlSetFont(-1, 20)
WinSetOnTop($Form1, '', 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd |
|