[已解決]上下按紐 按1次 +100 -100 要如何做?

tcpuuu

上下按紐 按1次 +100 -100 要如何做?
除了加100 減100之後    再 繼續其他指令 該如何做?

GUICreate('Lron Butterfly',200,180,1,1)      

$input = GUICtrlCreateInput("7200", 10, 10, 80, 22,0x01)
GUICtrlSetFont($input,12)
$updown = GUICtrlCreateUpdown($input)

GUISetState()
While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit

EndSwitch
WEnd

jj119120

我只能做成这样的  你试试  功能大体上是一样的

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 661, 361)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 177, 65)
GUICtrlSetData(-1, "7201")
$Button1 = GUICtrlCreateButton("+100", 192, 8, 121, 25)
$Button2 = GUICtrlCreateButton("-100", 192, 40, 121, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $jia, $jian
$duqu = GUICtrlRead($Edit1)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        _jia()
                Case $Button2
                        _jian()
        EndSwitch
WEnd

Func _jia()
        $jia = $duqu + 100
        GUICtrlSetData($Edit1, $jia)
        $duqu = GUICtrlRead($Edit1)
EndFunc

Func _jian()
        $jian = $duqu - 100
        GUICtrlSetData($Edit1, $jian)
        $duqu = GUICtrlRead($Edit1)
EndFunc

tcpuuu

這樣不好看


如果要這樣  寫成底下這樣  不是更簡單
------------------------------------------------
Case $1Button
GUICtrlSetData($S1,GUICtrlRead($S1)+100)

jj119120

回复 3# tcpuuu


    我很菜的   对我来说   美观不是主要的    能实现功能就OK了

tsui

用GUIRegisterMsg 可不可以？定位+捕捉

asdmie01

学习下，实用就行，界面不是问题

txen548

支持支持熱烈支持