当鼠标点击相关按钮怎么出现一些说明性信息呢（已解决）
本帖最后由 asura 于 2012-1-4 13:05 编辑#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 462, 294, 267, 212)
$Group1 = GUICtrlCreateGroup("总体大概", 40, 32, 393, 209)
$Radio1 = GUICtrlCreateRadio("Radio1", 88, 96, 73, 33)
$Radio2 = GUICtrlCreateRadio("Radio2", 264, 96, 73, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
代码如上，如果我点击Radio1 后出现一个就像类似气球似的的提示信息呢？请各位大大，出手相助下，谢谢 函数参考
ToolTip
--------------------------------------------------------------------------------
在屏幕的任意位置显示一个工具提示.
ToolTip ( "文本" [, X坐标 [, Y坐标 [, "标题" [, 图标 [, 选项]]]]] )
参数
文本 工具提示的文本(如果是空字符串则清除现有的工具提示).
X坐标 [可选参数] 工具提示出现位置的 X 坐标.
Y坐标 [可选参数] 工具提示出现位置的 Y 坐标.
标题 [可选参数] 工具提示的标题, 需要 IE5+支持
图标 [可选参数] 需要显示在标题的预定义图标: 需要设置一个标题.
0 = 没有图标, 1 = 信息图标, 2 = 警告图标, 3 = 错误图标
选项 [可选参数] 为不同的显示类型设置不同的显示选项(可以多个值相加):
1 = 显示气泡提示 需要 IE5+支持
2 = 在X,Y坐标中,居中显示提示.而不是在左上角显示.
4 = 如果有必要,强制显示工具提示总是可见,如果有多个显示器并且工具提示显示于屏幕边界,那么在另外的显示器上面也会显示.
返回值
成功: 返回 1.
失败: 返回 0 ,当标题长度大于 99.
注意/说明
要跳过可选参数设置,请使用 Default 关键字.
如果X,Y坐标没有设置,提示将显示于鼠标的坐标.
工具提示不能出现于脚本终止或者 ToolTip("") 以后.
你可以使用 @CR 或者 @LF 来创建多行的工具提示.
要显示一个图标, 您必须设置一个非空标题. 要使图标和标题在同一行,则必须使用一个标题.
如果使用居中标志, 工具提示会根据指定的坐标的相对位置进行显示.如果在气泡提示上使用居中标志,将会指向指定坐标点 回复 2# 80ren
楼上正解！ 回复 1# asura #include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 462, 294, 267, 212)
$Group1 = GUICtrlCreateGroup("总体大概", 40, 32, 393, 209)
$Radio1 = GUICtrlCreateRadio("Radio1", 88, 96, 73, 33)
$Radio2 = GUICtrlCreateRadio("Radio2", 264, 96, 73, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio1
ToolTip("这是一个提示", 1, 1)
Sleep(1000)
ToolTip("")
EndSwitch
WEnd #include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
Local $WinTtle = 'Test Win'
$Form1 = GUICreate($WinTtle, 462, 294, 267, 212)
$Group1 = GUICtrlCreateGroup("总体大概", 40, 32, 393, 209)
$Radio1 = GUICtrlCreateRadio("Radio1", 88, 96, 73, 33)
$Radio2 = GUICtrlCreateRadio("Radio2", 264, 96, 73, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
If GUIGetMsg() = -3 Then Exit
Local $mPos = GUIGetCursorInfo(WinGetHandle($WinTtle))
If Not @error Then
If $mPos = $Radio1 Then
ToolTip('This is Radio1...')
ElseIf $mPos = $Radio2 Then
ToolTip('This is Radio2...')
Else
ToolTip('')
EndIf
EndIf
WEnd 回复 5# user3000
你这个是移动到控件上面出现提示，而楼主是要求点击后出现提示！
我觉得楼主的意思表达错误！ 回复user3000
你这个是移动到控件上面出现提示，而楼主是要求点击后出现提示！
我觉得楼主 ...
hzxymkb 发表于 2011-12-31 22:51 http://www.autoitx.com/images/common/back.gif
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
Opt('guioneventmode', 1)
Local $WinTtle = 'Test Win'
$Form1 = GUICreate($WinTtle, 462, 294, 267, 212)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit')
$Group1 = GUICtrlCreateGroup("总体大概", 40, 32, 393, 209)
$Radio1 = GUICtrlCreateRadio("Radio1", 88, 96, 73, 33)
GUICtrlSetOnEvent(-1, '_ClickOn')
$Radio2 = GUICtrlCreateRadio("Radio2", 264, 96, 73, 33)
GUICtrlSetOnEvent(-1, '_ClickOn')
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
Sleep(100)
WEnd
Func _Exit()
Exit
EndFunc
Func _ClickOn()
ToolTip('Click...')
Sleep(500)
ToolTip('')
EndFunc
点击的, 不过这样子....实现什么目的呢? “类似气球似的的提示信息” ToolTip() 需要加选项参数。 Tooltip/Traytip 都能起到类似的作用 回复 5# user3000
{:face (356):}谢谢，兄弟，同时也感谢所有回帖的人，真的谢谢你们的帮助！ 不点也能提出吧
页:
[1]