在鼠标悬停的时候显示另外一个图片的疑问

s77m72

在GUI里面做个图片按钮,如何在鼠标悬停的时候显示另外一个图片?

顽固不化

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Pic1 = GUICtrlCreatePic("", 64, 104, 281, 89, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetImage(-1,"1.jpg")
$dd=1
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $ID=GUIGetCursorInfo()
        if $ID[4]=$Pic1 Then
                GUICtrlSetImage($Pic1,"2.jpg")
        Else
                GUICtrlSetImage($Pic1,"1.jpg")
        endif

        $nMsg = GUIGetMsg(1)
        Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Pic1
                        MsgBox(0,0,"你点了图形按钮")
        EndSwitch
WEnd

TheBelief

你在论坛的搜索里找一下   看过好几个这方面的

menfan1

呵呵，可以实现。。

a2817288

2楼的代码测试了下,切换到其他程序会自动退出,不知何解

a2817288

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Pic1 = GUICtrlCreatePic("", 64, 104, 281, 89, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetImage(-1,"1.jpg")
$dd=1
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $ID=GUIGetCursorInfo()
        if $ID[4]=$Pic1 Then
                GUICtrlSetImage($Pic1,"2.jpg")
        Else
                GUICtrlSetImage($Pic1,"1.jpg")
        endif

        $nMsg = GUIGetMsg(1)
        Switch $nMsg[0]
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Pic1
                        MsgBox(0,0,"你点了图形按钮")
        EndSwitch
WEnd

这段是顽固不化给出的代码,测试了一下,切换程序和最小化都会自动退出的,本人菜不知何解
请高手们解释下

pcbar

http://www.autoitx.com/forum.php?mod=viewthread&tid=5553
看看这个对你有否帮助

那片叶子

关注中，用来做GUI界面再好不过了

afan

需要改一下吧，不然就算没出错也会比较高的CPU占用

#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 600, 400)
$Pic1 = GUICtrlCreatePic("1.jpg", 64, 104, 281, 89)
$bj = 1
GUISetState()
While 1
        $ID = GUIGetCursorInfo()
        If Not @error Then
                If $ID[4] = $Pic1 And $bj = 1 Then
                        GUICtrlSetImage($Pic1, "2.jpg")
                        $bj = 0
                ElseIf $ID[4] <> $Pic1 And $bj = 0 Then
                        GUICtrlSetImage($Pic1, "1.jpg")
                        $bj = 1
                EndIf
        EndIf
        $nMsg = GUIGetMsg(1)
        Switch $nMsg[0]
                Case -3
                        Exit
                Case $Pic1
                        MsgBox(0, 0, "你点了图形按钮")
        EndSwitch
WEnd

a2817288

感谢AFAN的指点,已经解决了

itljl

收藏。谢谢。

chenronting

感谢。。 这个方法。 很强大

zhenglei

很好的东西啊。。 哈哈

jevonleen

踩踩收藏先

mo_shaojie

很不错的东东,又收下了.又是学到东西了.呵呵