没加判断的话，比 顽固不化 提供的方法还要闪~
帮你改了
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 357, 124, 193, 125)
$Button1 = GUICtrlCreateButton("按钮1", 16, 16, 161, 33, 0)
$Button2 = GUICtrlCreateButton("按钮2", 16, 72, 161, 33, 0)
$Edit1 = GUICtrlCreateEdit("", 200, 16, 145, 89)
GUICtrlSetData(-1, "捕获移动示例，" & @CRLF & "BY 顽固不化")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Edit1, "干'按钮1'的事去吧")
Case $Button2
GUICtrlSetData($Edit1, "干'按钮2'的事去吧")
EndSwitch
$mousepos = GUIGetCursorInfo($Form1)
Switch $mousepos
Case $Button1
setinfo($Edit1, "鼠标在第一个按钮上")
Case $Button2
setinfo($Edit1, "鼠标在第二个按钮上")
Case Else
setinfo($Edit1, "捕获移动示例，" & @CRLF & "BY 顽固不化")
EndSwitch
WEnd
Func setinfo($ctrlid,$txt)
if GUICtrlRead($ctrlid)<>$txt Then
GUICtrlSetData($ctrlid,$txt)
EndIf
EndFunc 为什么送完10分了，就不能再送呢？:face (30): 帖子被提交成（已解决），现在才发现~我猛敲了自己的头3下~分送完了不能送~ 感谢 顽固不化 帮忙送分~不过超版，是不在乎这个吧~ 没看懂哪个自定义函数，难怪我搞一晚上搞不出来：
Func setinfo($ctrlid,$txt)
if GUICtrlRead($ctrlid)<>$txt Then
GUICtrlSetData($ctrlid,$txt)
EndIf
EndFunc
这个$txt的变量，不需要先定义，就能等于发出的信息“鼠标在第一个按钮上”？他不会是函数来的吧，先去找找帮助看看~
检测$edit并向$edit再次发送一次信息，就能不闪？看来我连造成闪的原因都没懂 - -!:face (31):
[ 本帖最后由 powerofos 于 2008-7-10 15:07 编辑 ]
页:
1
[2]