本帖最后由 afan 于 2020-6-10 11:44 编辑
直接用 GUICtrlSetTip 设置工具提示不好吗
Local $sTitle = "ShowBalloonTip", $sText = "Displays a balloon tip associated with an edit control", $sText1 = "Program will exit"
GUICreate("关于气泡的提示示例", 459, 276, 192, 124)
GUISetFont(12, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("鼠标停留弹出气泡", 152, 72, 132, 24)
GUICtrlSetTip(-1, $sText, $sTitle, 0, 1)
GUICtrlCreateButton("关 闭", 176, 144, 75, 25)
GUICtrlSetTip(-1, $sText1, $sTitle, 0, 1)
GUISetState()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
EndSwitch
WEnd
|