【已解决】请问批量创建的case如何给每个case创建新的变量。

7tenlboy

GUICreate('', 220)
Local $Button[9], $i = 1
Local $mmm
Do
        $Button[$i] = GUICtrlCreateButton('Button ' & $i, 50, 5 + 40 * $i, 120, 25)
        $i += 1
Until $i = 9
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                Case $Button[1] To $Button[8]
                        MsgBox(0, '', GUICtrlRead($nMsg))

$mmm =$mmm+1

   MsgBox(0, '', $mmm)

        EndSwitch
WEnd



需求点击不同按钮实现不同变量，

afan

GUICreate('', 220)

Local $Button[9]

Local $mmm

For $i = 1 To 8

        $Button[$i] = GUICtrlCreateButton('Button ' & $i, 50, 5 + 40 * $i, 120, 25)

Next

GUISetState(@SW_SHOW)



While 1

        $nMsg = GUIGetMsg()

        Switch $nMsg

                Case -3

                        Exit

                Case $Button[1] To $Button[8]

                        $mmm = $nMsg - 2

                        MsgBox(0, 'wh2' & $mmm, GUICtrlRead($nMsg))

        EndSwitch

WEnd

7tenlboy

这个是一种方法。但是不是理想的，手动打代码比较麻烦

GUICreate('', 220)
Local $Button[9], $i = 1
Local $mmm
Do
        $Button[$i] = GUICtrlCreateButton('Button ' & $i, 50, 5 + 40 * $i, 120, 25)
        $i += 1
Until $i = 9
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                Case $Button[1]
                        MsgBox(0, '', GUICtrlRead($nMsg))

$mmm =1

   MsgBox(0, '', $mmm)


                   Case $Button[2]
                        MsgBox(0, '', GUICtrlRead($nMsg))

$mmm =2

   MsgBox(0, '', $mmm)

        EndSwitch
WEnd

7tenlboy

这个也是一种方法。$nMsg不是可控的变量，结果也不是理想，






GUICreate('', 220)
Local $Button[9], $i = 1
Local $mmm
Do
        $Button[$i] = GUICtrlCreateButton('Button ' & $i, 50, 5 + 40 * $i, 120, 25)
        $i += 1
Until $i = 9
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                Case $Button[1] To $Button[8]
                        MsgBox(0, '', GUICtrlRead($nMsg))

        EndSwitch
WEnd

7tenlboy

请问 如何根据按钮数量变量以实现点击$Button1 弹窗wh21 $Button2 弹窗 wh22，$Button3  弹窗 wh23，$Button4  弹窗 wh24，以此类推

7tenlboy

afan 发表于 2023-3-18 18:05

很辛苦你来解答。请问还有没有不通过 GUIGetMsg() 的方法来增加变量呀。

zghwelcome

句柄、坐标、控件内容 都可以

afan

7tenlboy 发表于 2023-3-18 18:15
很辛苦你来解答。请问还有没有不通过 GUIGetMsg() 的方法来增加变量呀。

消息模式用 GUIGetMsg() 是最简单的，如果是事件模式则使用 @GUI_CtrlId
还有诸如查表的方法，字典、Map 之类，方法很多，看用途选用最简单合适的~

3131210

1. Global $msgMap[]
   
2. GUICreate('', 220)
   
3. Local $Button[9], $i = 1
   
4. Local $mmm
   
5. Do
   
6.         $Button[$i] = GUICtrlCreateButton('Button ' & $i, 50, 5 + 40 * $i, 120, 25)
   
7.         $msgMap[$Button[$i]] = '我是第' & $i & '个按钮'
   
8.         $i += 1
   
9. Until $i = 9
   
10. GUISetState(@SW_SHOW)
    
11. 
    
12. While 1
    
13.         $nMsg = GUIGetMsg()
    
14.         Switch $nMsg
    
15.                 Case -3
    
16.                         Exit
    
17.                 Case $Button[1] To $Button[8]
    
18.                         MsgBox(0, '', $msgMap[$nMsg])
    
19.         EndSwitch
    
20. WEnd
    

复制代码