请教哈 鼠标停留控件上气泡怎么不显示?【已解决】
本帖最后由 cqboyqx 于 2020-6-10 14:01 编辑RT,请教哈大佬们,当鼠标停留在一个控件上 ,怎么不弹出呢 ?是哪里的问题?
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
Local $hEdit, $sTitle = "ShowBalloonTip", $sText = "Displays a balloon tip associated with an edit control",$sText1 = "Program will exit"
#Region ### START Koda GUI section ### Form=
$Hgui = GUICreate("关于气泡的提示示例", 459, 276, 192, 124)
GUISetFont(12, 400, 0, "MS Sans Serif")
$hEdit = GUICtrlCreateLabel("鼠标停留弹出气泡", 152, 72, 132, 24)
$Button = GUICtrlCreateButton("关闭", 176, 144, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$Cursor = GUIGetCursorInfo($Hgui)
If (Not @error) And $Cursor = $hEdit Then
_GUICtrlEdit_ShowBalloonTip($hEdit, $sTitle, $sText, $TTI_INFO)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
_GUICtrlEdit_ShowBalloonTip($Button, $sTitle, $sText1, $TTI_INFO)
EndSwitch
WEnd
本帖最后由 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 afan 发表于 2020-6-10 11:38
直接用 GUICtrlSetTip 设置工具提示不好吗
谢谢谢谢A大威武这种气泡看着舒服 应该是控件的原因
_GUICtrlEdit_ShowBalloonTip,控件必须是edit,lable控件应该不适用………………
第11行更改为: $hEdit = GUICtrlCreateEdit("鼠标停留弹出气泡", 2, 2, 394, 268)
能出效果,但是很闪。。。。。。。。。。很晕。。。。。。。。。。闪到怀疑人生。。。。。。
A大的 GUICtrlSetTip 是正解
floor6ggg 发表于 2020-6-10 12:58
应该是控件的原因
_GUICtrlEdit_ShowBalloonTip,控件必须是edit,lable控件应该不适用………………
对 如果按照你这样改了后是闪如果把20行的_GUICtrlEdit_ShowBalloonTip($hEdit, $sTitle, $sText, $TTI_INFO)放到11行的后面就正常了 cqboyqx 发表于 2020-6-10 13:59
对 如果按照你这样改了后是闪如果把20行的_GUICtrlEdit_ShowBalloonTip($hEdit, $sTitle, $sText,...
_GUICtrlEdit_ShowBalloonTip 不是用于鼠标悬停提示,而是立即提示的。一般用于对当下输入的字符做出的即时提示,类似于“只能输入数字”之类。 afan 发表于 2020-6-11 14:59
_GUICtrlEdit_ShowBalloonTip 不是用于鼠标悬停提示,而是立即提示的。一般用于对当下输入的字符做出的即 ...
谢谢A大的帮忙 afan 发表于 2020-6-10 11:38
直接用 GUICtrlSetTip 设置工具提示不好吗
GUICtrlSetTip ,A大不知道这个时间是否可以延长的,我发现没有几秒就消失掉了, 本帖最后由 afan 于 2020-6-12 14:32 编辑
ttmv2019sx 发表于 2020-6-12 07:09
GUICtrlSetTip ,A大不知道这个时间是否可以延长的,我发现没有几秒就消失掉了,
这个跟系统的一样,都是5秒。要改变延时就用 _GUIToolTip_Create() 方式,或者直接用 Tooltip() 控制显示与关闭 afan 发表于 2020-6-12 13:29
这个跟系统的一样,都是5秒。要改变延时就用 _GUIToolTip_Create() 方式,或者直接用 Tooltip() 控制显示 ...
好的,谢谢A大 测试了下效果,好东西。
页:
[1]