[已解决]往上不循環(這要如何改阿)

tcpuuu

GUISetState()
Dim $bj = $L1
Dim $exe[3] = ['C:\程式1(aaa).exe', 'C:\程式2(bbb).exe', 'C:\程式3(ccc).exe']
While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit
                Case $1Button To $3Button
                        Go($msg)
        EndSwitch
WEnd
Func Go($msg)
        If ($msg = $1Button And $bj = $L3) Or ($msg = $2Button And $bj = $L1) Then Return
        GUICtrlSetBkColor($bj, 0xFFFFFF)
        $bj += 1
        If $msg = $2Button Then $bj -= 2
        If $msg = $3Button And $bj = $L3 + 1 Then $bj = $L1
        GUICtrlSetBkColor($bj, 0xFF0000)
        MsgBox(0, 0, $exe[$bj - 3], 1)
EndFunc   ;==>Go
-------------------------------------------------------------
請教 板主afan !對不起 又來打擾
第1 上    往上不循環
第2 stop 不上也不下
第3  下     往下跑到3 -再按 - 循環到1
------------------------------------------
要如何修改!  我好久都不會  望請解答

水木子

afan前辈的影响力实在太大了，现在大家有问题都直接点名请他来帮忙了。

尔等需加油哦！

建议楼主修改下标题，目前的标题不方便大家搜索。

水木子

能力有限，不知道你是不是要这样的效果，只做了“下”

1. Dim $exe[3] = ['C:\程式1(aaa).exe', 'C:\程式2(bbb).exe', 'C:\程式3(ccc).exe']
   
2. Local $nLocation = 3
   
3. 
   
4. GUICreate(" Win ", 200, 300)
   
5. 
   
6. $L1 = GUICtrlCreateLabel("1", 2, 2, 62, 36, 0x00800000) ;$WS_BORDER = 0x00800000
   
7. GUICtrlSetBkColor(-1, 0xFF0000)
   
8. GUICtrlSetFont(-1, 24)
   
9. 
   
10. $L2 = GUICtrlCreateLabel("2", 2, 40, 62, 36, 0x00800000)
    
11. GUICtrlSetBkColor(-1, 0xFFFFFF)
    
12. GUICtrlSetFont(-1, 24)
    
13. 
    
14. $L3 = GUICtrlCreateLabel("3", 2, 78, 62, 36, 0x00800000)
    
15. GUICtrlSetBkColor(-1, 0xFFFFFF)
    
16. GUICtrlSetFont(-1, 24)
    
17. 
    
18. $1Button = GUICtrlCreateButton("上", 65, 1, 40, 30)
    
19. $2Button = GUICtrlCreateButton("下", 65, 31, 40, 30)
    
20. $3Button = GUICtrlCreateButton("Cycle", 65, 62, 40, 30)
    
21. GUISetState()
    
22. 
    
23. While 1
    
24.         $nMsg = GUIGetMsg()
    
25.         Switch $nMsg
    
26.                 Case - 3
    
27.                         Exit
    
28.                 Case $2Button
    
29.                         Go()
    
30.         EndSwitch
    
31. WEnd
    
32. 
    
33. Func Go()
    
34.         $nLocation += 1
    
35.         If $nLocation = 6 Then $nLocation = 3
    
36.         For $i = 3 To 5
    
37.                 If $i = $nLocation Then
    
38.                         GUICtrlSetBkColor($i, 0xFF0000)
    
39.                         ContinueLoop
    
40.                 EndIf
    
41.                 GUICtrlSetBkColor($i, 0xFFFFFF)
    
42.         Next
    
43. EndFunc   ;==>Go

复制代码

tcpuuu

謝謝水木子  回應
---------------------------
上不去  而且沒 執行'C:\程式1(aaa).exe', 'C:\程式2(bbb).exe', 'C:\程式3(ccc).exe'
我貼上原本 全文:
-------------------------
GUICreate(" Win ", 110, 302, 800, 2);A1, 8#代? 第4行與第8行調換，第20改為 Dim $bj = $L2 即可。


$L1 = GUICtrlCreateLabel("1", 2, 2, 62, 36, 0x00800000) ;$WS_BORDER = 0x00800000
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)
$L2 = GUICtrlCreateLabel("2", 2, 40, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 24)
$L3 = GUICtrlCreateLabel("3", 2, 78, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)
$1Button = GUICtrlCreateButton("down", 65, 1, 40, 30)
$2Button = GUICtrlCreateButton("up", 65, 31, 40, 30)
$3Button = GUICtrlCreateButton("Cycle", 65, 62, 40, 30)
GUISetState()
Dim $bj = $L2
Dim $exe[3] = ['C:\程式1(aaa).exe', 'C:\程式2(bbb).exe', 'C:\程式3(ccc).exe']
While 1

        $msg = GUIGetMsg()

        Switch $msg

                Case -3

                        Exit

                Case $1Button To $2Button

                        Go($msg)
                Case $3Button

                        MsgBox(0, 0, $exe[$bj - 3], 1)

        EndSwitch

WEnd



Func Go($msg)

        If ($msg = $1Button And $bj = $L3) Or ($msg = $2Button And $bj = $L1) Then Return

        GUICtrlSetBkColor($bj, 0xFFFFFF)

        $bj += 1

        If $msg = $2Button Then $bj -= 2


        
        
        GUICtrlSetBkColor($bj, 0xFF0000)

        MsgBox(0, 0, $exe[$bj - 3], 1)

EndFunc   ;==>Go

---------------------------------------------------------------------------------------
希望以下這樣"
-------------------
第1 鍵  上       往上跑到1 不再循環
第2 鍵  stop      不上也不下
第3  鍵   下     往下跑到3 -再按 - 循環到1
------------------------------------------------------
1個 不循環
1個 可 循環
1個 停在原地 再執行原地 .EXE1次

afan

回复 4# tcpuuu


這些功能好像前面都已經實現過了吧 — — ||

afan

1. GUICreate(" Win ", 150, 302, 800, 2)
   
2. 
   
3. $L1 = GUICtrlCreateLabel("1", 2, 2, 62, 36, 0x00800000) ;$WS_BORDER = 0x00800000
   
4. GUICtrlSetBkColor(-1, 0xFFFFFF)
   
5. GUICtrlSetFont(-1, 24)
   
6. 
   
7. $L2 = GUICtrlCreateLabel("2", 2, 40, 62, 36, 0x00800000)
   
8. GUICtrlSetBkColor(-1, 0xFF0000)
   
9. GUICtrlSetFont(-1, 24)
   
10. 
    
11. $L3 = GUICtrlCreateLabel("3", 2, 78, 62, 36, 0x00800000)
    
12. GUICtrlSetBkColor(-1, 0xFFFFFF)
    
13. GUICtrlSetFont(-1, 24)
    
14. 
    
15. $1Button = GUICtrlCreateButton("往下要循環", 65, 1, 80, 30)
    
16. $2Button = GUICtrlCreateButton("原地執行", 65, 31, 80, 30)
    
17. $3Button = GUICtrlCreateButton("往上不循環", 65, 62, 80, 30)
    
18. GUISetState()
    
19. 
    
20. Dim $bj = $L2
    
21. Dim $exe[3] = ['C:\程式1(aaa).exe', 'C:\程式2(bbb).exe', 'C:\程式3(ccc).exe']
    
22. While 1
    
23.         $msg = GUIGetMsg()
    
24.         Switch $msg
    
25.                 Case -3
    
26.                         Exit
    
27.                 Case $1Button, $3Button
    
28.                         Go($msg)
    
29.                 Case $2Button
    
30.                         MsgBox(0, 0, $exe[$bj - 3], 1)
    
31.         EndSwitch
    
32. WEnd
    
33. 
    
34. Func Go($msg)
    
35.         If ($msg = $3Button And $bj = $L1) Then Return ;Or ($msg = $3Button And $bj = $L1)
    
36.         GUICtrlSetBkColor($bj, 0xFFFFFF)
    
37.         $bj += 1
    
38.         If $msg = $3Button Then $bj -= 2
    
39.         If $msg = $1Button And $bj = $L3 + 1 Then $bj = $L1
    
40.         GUICtrlSetBkColor($bj, 0xFF0000)
    
41.         MsgBox(0, 0, $exe[$bj - 3], 1)
    
42. EndFunc   ;==>Go

复制代码

tcpuuu

afan 超级版主 您好! 非常感謝您的解說 (我的問題已解決)
現在我3種 都有了
("往下要循環")
("原地執行", )
("往上不循環",)
-----------------------
往下不循環
往上不循環
原地停
---------------
往上不循環
往下不循環
往上往下都循環