木头人 发表于 2011-5-17 12:16:48

GUICtrlCreateLabel 能否添加点击动作？就像按钮那样的。《已解决》

本帖最后由 木头人 于 2011-5-17 16:39 编辑

麻烦给个示列，谢谢。

netegg 发表于 2011-5-17 12:48:17

动作是你自己加的，不是规定有没有

飘云 发表于 2011-5-17 12:49:42

本帖最后由 飘云 于 2011-5-17 12:53 编辑

能，Label作为一个控件，可以和button一样来响应事件，如果是事件模式，就用GUICtrlSetOnEvent函数给那label指定一个响应函数即可
....算了，给你个例子吧。。。。。看下面代码中的$Label2控件即可

#NoTrayIcon

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <Process.au3>
Opt("GUIOnEventMode", 1)

Dim $a=1;链接按钮指标

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 525, 421, -1, -1)
$Edit1 = GUICtrlCreateEdit('', 12, 8, 505, 249, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$WS_VSCROLL,$ES_READONLY))
GUICtrlSetFont(-1,10,800)
GUICtrlSetBkColor(-1,0xffffff)
$Button1 = GUICtrlCreateButton("执行汉化", 64, 300, 137, 57)
$Button2 = GUICtrlCreateButton("退出", 344, 300, 137, 57)
$Group1 = GUICtrlCreateGroup("", -8, -8, 537, 401)
$Label2 = GUICtrlCreateLabel("3DM鸾霄汉化组", 0, 384, 87, 17)
GUICtrlSetFont($Label2, 8, 400, -1, "MS Sans Serif")
GUICtrlSetColor($Label2,0x3F3FE2)
GUICtrlSetCursor($Label2,0)
$Label1 = GUICtrlCreateLabel("正在汉化游戏，请稍候...", 128, 278, 270, 70)
GUICtrlSetFont(-1, 12)
GUICtrlSetState($Label1,$GUI_HIDE)
$jindu = GUICtrlCreateProgress(52, 338, 462, 20, $PBS_SMOOTH)
GUICtrlSetState($jindu,$GUI_HIDE)
GUISetState(@SW_SHOW,$Form1)
#EndRegion ### END Koda GUI section ###

GUISetOnEvent($GUI_EVENT_CLOSE, "main")
GUICtrlSetOnEvent($Label2,"main")
GUICtrlSetOnEvent($Button1,"main")
GUICtrlSetOnEvent($Button2,"main")
       
While 1
        $mouse = GUIGetCursorInfo($Form1)
        If $mouse = $Label2 And $a=1 Then
                GUICtrlSetFont($Label2, 8, 400, 4, "MS Sans Serif")
                GUICtrlSetColor($Label2,0x5D5DE6)
                $a=0
        ElseIf $mouse <> $Label2 And $a=0 Then
                GUICtrlSetFont($Label2, 8, 400, -1, "MS Sans Serif")
                GUICtrlSetColor($Label2,0x3F3FE2)
                $a=1
        EndIf
        Sleep(100)
WEnd

Func main()
        Switch @GUI_CtrlId
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Label2
                        _RunDos("start www.3dmgame.com")
                Case $Button1
                       
                Case $Button2
                        Exit
        EndSwitch
EndFunc

飘云 发表于 2011-5-17 12:56:33

当然不止这一种方式，也可以用GUIGetCursorInfo函数，通过不断的监视鼠标动作，当鼠标点下左键，并且在指定控件上方悬停时，怎么怎么样之类的

木头人 发表于 2011-5-17 16:38:37

谢谢，已解决。
页: [1]
查看完整版本: GUICtrlCreateLabel 能否添加点击动作？就像按钮那样的。《已解决》