[已解決]求助(afan 超级版主) 往上退2格,向下進1格該如何?

tcpuuu

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, 0xFFFFFF)
GUICtrlSetFont(-1, 24)

$L3 = GUICtrlCreateLabel("3", 2, 78, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetFont(-1, 24)

$L4 = GUICtrlCreateLabel("4", 2, 116, 62, 36, 0x00800000) ;$WS_BORDER = 0x00800000
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)

$L5 = GUICtrlCreateLabel("5", 2, 154, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)

$L6 = GUICtrlCreateLabel("6", 2, 192, 62, 36, 0x00800000)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 24)
$1Button = GUICtrlCreateButton("往下進1格", 65, 1, 40, 30)
$2Button = GUICtrlCreateButton("往上退2格", 65, 31, 40, 30)
$3Button = GUICtrlCreateButton("原地", 65, 62, 40, 30)
GUISetState()
Dim $bj = $L3
Dim $exe[6] = ["1.exe", "2.exe", "3.exe", "4.exe", "5.exe", "6.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)
                        ;RUN($exe[$bj - 3])

        EndSwitch

WEnd



Func Go($msg)

        If ($msg = $1Button And $bj = $L6) 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)
        ;RUN($exe[$bj - 3])


EndFunc   ;==>Go
======================================================
求助(afan 超级版主) 往上退2格,向下進1格該如何,不循環
如果來到2再退 只能退到1
感謝!

水木子

呵呵！估计afan前辈也要烦了，自己学着思考、自己做吧！

別人始終只能幫你一時，幫不了你一世。(TNND 咋是繁體字，輸入法有問題)

tcpuuu

水木子 超级版主
您好 您可解答嗎?  ---謝謝---

還要如果來到2 再退 只能退到1

水木子

回复 3# tcpuuu

最近忒忙，心情忒郁闷！

tcpuuu

拜託一下 我自己 試2天了 都不會
才跑來求教...

afan

1. GUICreate(" Win ", 110, 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, 0xFFFFFF)
   
9. GUICtrlSetFont(-1, 24)
   
10. 
    
11. $L3 = GUICtrlCreateLabel("3", 2, 78, 62, 36, 0x00800000)
    
12. GUICtrlSetBkColor(-1, 0xFF0000)
    
13. GUICtrlSetFont(-1, 24)
    
14. 
    
15. $L4 = GUICtrlCreateLabel("4", 2, 116, 62, 36, 0x00800000) ;$WS_BORDER = 0x00800000
    
16. GUICtrlSetBkColor(-1, 0xFFFFFF)
    
17. GUICtrlSetFont(-1, 24)
    
18. 
    
19. $L5 = GUICtrlCreateLabel("5", 2, 154, 62, 36, 0x00800000)
    
20. GUICtrlSetBkColor(-1, 0xFFFFFF)
    
21. GUICtrlSetFont(-1, 24)
    
22. 
    
23. $L6 = GUICtrlCreateLabel("6", 2, 192, 62, 36, 0x00800000)
    
24. GUICtrlSetBkColor(-1, 0xFFFFFF)
    
25. GUICtrlSetFont(-1, 24)
    
26. $1Button = GUICtrlCreateButton("往下進1格", 65, 1, 40, 30)
    
27. $2Button = GUICtrlCreateButton("往上退2格", 65, 31, 40, 30)
    
28. $3Button = GUICtrlCreateButton("原地", 65, 62, 40, 30)
    
29. GUISetState()
    
30. Dim $bj = $L3
    
31. Dim $exe[6] = ["1.exe", "2.exe", "3.exe", "4.exe", "5.exe", "6.exe"]
    
32. 
    
33. While 1
    
34.         $msg = GUIGetMsg()
    
35.         Switch $msg
    
36.                 Case -3
    
37.                         Exit
    
38.                 Case $1Button To $2Button
    
39.                         Go($msg)
    
40.                 Case $3Button
    
41.                          MsgBox(0, 0, $exe[$bj - 3], 1)
    
42.                         ;RUN($exe[$bj - 3])
    
43.         EndSwitch
    
44. 
    
45. WEnd
    
46. 
    
47. Func Go($msg)
    
48.         If ($msg = $1Button And $bj = $L6) Or ($msg = $2Button And $bj = $L1) Then Return
    
49.         GUICtrlSetBkColor($bj, 0xFFFFFF)
    
50.         $bj += 1
    
51.         If $msg = $2Button Then $bj -= 3
    
52.         If $bj < $L1 Then $bj = $L1
    
53.         GUICtrlSetBkColor($bj, 0xFF0000)
    
54.         MsgBox(0, 0, $exe[$bj - 3], 1)
    
55.         ;RUN($exe[$bj - 3])
    
56. EndFunc   ;==>Go
    

复制代码

afan

就改了第51行的2改为3，另外增加了第52行。

tcpuuu

感恩 ㄚ!
謝謝afan 超级版主