tcpuuu 发表于 2011-10-3 19:52:06

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

本帖最后由 tcpuuu 于 2012-2-22 16:01 编辑



上下按紐 按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 发表于 2011-10-4 19:00:07

我只能做成这样的你试试功能大体上是一样的#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 发表于 2011-10-4 20:01:39


這樣不好看


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

jj119120 发表于 2011-10-5 08:34:01

回复 3# tcpuuu


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

tsui 发表于 2011-10-10 22:38:58

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

asdmie01 发表于 2011-10-11 18:31:58

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

txen548 发表于 2012-12-20 19:07:46

支持支持熱烈支持
页: [1]
查看完整版本: [已解決]上下按紐 按1次 +100 -100 要如何做?