提示信息问题（提交为“已解决”后就没再看，傻了！2种方法！）

pcbar

原帖由 powerofos 于 2008-7-9 18:47 发表
没加判断的话，比 顽固不化 提供的方法还要闪~

帮你改了

#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[0]
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        GUICtrlSetData($Edit1, "干'按钮1'的事去吧")
                Case $Button2
                        GUICtrlSetData($Edit1, "干'按钮2'的事去吧")
        EndSwitch
        $mousepos = GUIGetCursorInfo($Form1)
        Switch $mousepos[4]
                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

powerofos

为什么送完10分了，就不能再送呢？

powerofos

帖子被提交成（已解决），现在才发现~我猛敲了自己的头3下~分送完了不能送~

powerofos

感谢 顽固不化 帮忙送分~不过超版，是不在乎这个吧~

powerofos

没看懂哪个自定义函数，难怪我搞一晚上搞不出来：
Func setinfo($ctrlid,$txt)
    if GUICtrlRead($ctrlid)<>$txt Then
        GUICtrlSetData($ctrlid,$txt)
    EndIf
EndFunc

这个$txt的变量，不需要先定义，就能等于发出的信息“鼠标在第一个按钮上”？他不会是函数来的吧，先去找找帮助看看~

检测$edit并向$edit再次发送一次信息，就能不闪？看来我连造成闪的原因都没懂 - -!

[ 本帖最后由 powerofos 于 2008-7-10 15:07 编辑 ]