论坛 › 已解决问题区 › 如何来表示连续的控件ID[已解决]

p7749 发表于 2018-8-31 11:41:22

如何来表示连续的控件ID[已解决]

本帖最后由 p7749 于 2018-9-3 17:57 编辑

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=d:\autoit3\ppp\form1检测.kxf
$Form1 = GUICreate("检测预警", 313, 442, 376, 123)
$Label1 = GUICtrlCreateLabel("列", 0, 0, 16, 17)
$Label2 = GUICtrlCreateLabel("行", 32, 0, 16, 17)
$Label3 = GUICtrlCreateLabel("说明", 64, 0, 28, 17)
$Label4 = GUICtrlCreateLabel("值", 192, 0, 40, 17)
$Label5 = GUICtrlCreateLabel("差值", 248, 0, 52, 17)
$Input1 = GUICtrlCreateInput("", 0, 16, 25, 21)
$Input2 = GUICtrlCreateInput("", 32, 16, 25, 21)
$Input3 = GUICtrlCreateInput("", 64, 16, 121, 21)
$Input4 = GUICtrlCreateInput("", 192, 16, 41, 21)
$Input5 = GUICtrlCreateInput("", 248, 16, 49, 21)
$Input6 = GUICtrlCreateInput("", 0, 41, 25, 21)
$Input7 = GUICtrlCreateInput("", 32, 41, 25, 21)
$Input8 = GUICtrlCreateInput("", 64, 41, 121, 21)
$Input9 = GUICtrlCreateInput("", 192, 41, 41, 21)
$Input10 = GUICtrlCreateInput("", 248, 41, 49, 21)
$Input11 = GUICtrlCreateInput("", 0, 66, 25, 21)
$Input12 = GUICtrlCreateInput("", 32, 66, 25, 21)
$Input13 = GUICtrlCreateInput("", 64, 66, 121, 21)
$Input14 = GUICtrlCreateInput("", 192, 66, 41, 21)
$Input15 = GUICtrlCreateInput("", 248, 66, 49, 21)
$Input16 = GUICtrlCreateInput("", 0, 91, 25, 21)
$Input17 = GUICtrlCreateInput("", 32, 91, 25, 21)
$Input18 = GUICtrlCreateInput("", 64, 91, 121, 21)
$Input19 = GUICtrlCreateInput("", 192, 91, 41, 21)
$Input20 = GUICtrlCreateInput("", 248, 91, 49, 21)
$Input21 = GUICtrlCreateInput("", 0, 117, 25, 21)
$Input22 = GUICtrlCreateInput("", 32, 117, 25, 21)
$Input23 = GUICtrlCreateInput("", 64, 117, 121, 21)
$Input24 = GUICtrlCreateInput("", 192, 117, 41, 21)
$Input25 = GUICtrlCreateInput("", 248, 117, 49, 21)
$Input26 = GUICtrlCreateInput("", 0, 142, 25, 21)
$Input27 = GUICtrlCreateInput("", 32, 142, 25, 21)
$Input28 = GUICtrlCreateInput("", 64, 142, 121, 21)
$Input29 = GUICtrlCreateInput("", 192, 142, 41, 21)
$Input30 = GUICtrlCreateInput("", 248, 142, 49, 21)
$Input31 = GUICtrlCreateInput("", 0, 167, 25, 21)
$Input32 = GUICtrlCreateInput("", 32, 167, 25, 21)
$Input33 = GUICtrlCreateInput("", 64, 167, 121, 21)
$Input34 = GUICtrlCreateInput("", 192, 167, 41, 21)
$Input35 = GUICtrlCreateInput("", 248, 167, 49, 21)
$Input36 = GUICtrlCreateInput("", 0, 192, 25, 21)
$Input37 = GUICtrlCreateInput("", 32, 192, 25, 21)
$Input38 = GUICtrlCreateInput("", 64, 192, 121, 21)
$Input39 = GUICtrlCreateInput("", 192, 192, 41, 21)
$Input40 = GUICtrlCreateInput("", 248, 192, 49, 21)
$Input41 = GUICtrlCreateInput("", 0, 218, 25, 21)
$Input42 = GUICtrlCreateInput("", 32, 218, 25, 21)
$Input43 = GUICtrlCreateInput("", 64, 218, 121, 21)
$Input44 = GUICtrlCreateInput("", 192, 218, 41, 21)
$Input45 = GUICtrlCreateInput("", 248, 218, 49, 21)
$Input46 = GUICtrlCreateInput("", 0, 243, 25, 21)
$Input47 = GUICtrlCreateInput("", 32, 243, 25, 21)
$Input48 = GUICtrlCreateInput("", 64, 243, 121, 21)
$Input49 = GUICtrlCreateInput("", 192, 243, 41, 21)
$Input50 = GUICtrlCreateInput("", 248, 243, 49, 21)
$Input51 = GUICtrlCreateInput("", 0, 268, 25, 21)
$Input52 = GUICtrlCreateInput("", 32, 268, 25, 21)
$Input53 = GUICtrlCreateInput("", 64, 268, 121, 21)
$Input54 = GUICtrlCreateInput("", 192, 268, 41, 21)
$Input55 = GUICtrlCreateInput("", 248, 268, 49, 21)
$Input56 = GUICtrlCreateInput("", 0, 293, 25, 21)
$Input57 = GUICtrlCreateInput("", 32, 293, 25, 21)
$Input58 = GUICtrlCreateInput("", 64, 293, 121, 21)
$Input59 = GUICtrlCreateInput("", 192, 293, 41, 21)
$Input60 = GUICtrlCreateInput("", 248, 293, 49, 21)
$Input61 = GUICtrlCreateInput("", 0, 319, 25, 21)
$Input62 = GUICtrlCreateInput("", 32, 319, 25, 21)
$Input63 = GUICtrlCreateInput("", 64, 319, 121, 21)
$Input64 = GUICtrlCreateInput("", 192, 319, 41, 21)
$Input65 = GUICtrlCreateInput("", 248, 319, 49, 21)
$Input66 = GUICtrlCreateInput("", 0, 344, 25, 21)
$Input67 = GUICtrlCreateInput("", 32, 344, 25, 21)
$Input68 = GUICtrlCreateInput("", 64, 344, 121, 21)
$Input69 = GUICtrlCreateInput("", 192, 344, 41, 21)
$Input70 = GUICtrlCreateInput("", 248, 344, 49, 21)
$Input71 = GUICtrlCreateInput("", 0, 369, 25, 21)
$Input72 = GUICtrlCreateInput("", 32, 369, 25, 21)
$Input73 = GUICtrlCreateInput("", 64, 369, 121, 21)
$Input74 = GUICtrlCreateInput("", 192, 369, 41, 21)
$Input75 = GUICtrlCreateInput("", 248, 369, 49, 21)
$Input76 = GUICtrlCreateInput("", 0, 394, 25, 21)
$Input77 = GUICtrlCreateInput("", 32, 394, 25, 21)
$Input78 = GUICtrlCreateInput("", 64, 394, 121, 21)
$Input79 = GUICtrlCreateInput("", 192, 394, 41, 21)
$Input80 = GUICtrlCreateInput("", 248, 394, 49, 21)
$Button1 = GUICtrlCreateButton("保存", 248, 424, 49, 17)
GUISetState(@SW_SHOW)
;GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


_xieru()
Sleep(3000)
Exit


Func _xieru();数据写入文件
      For $i=1 To 80
                iniWrite(@AppDataDir & "\" & "configjw.ini", "检测", $i,GUICtrlRead($i, 0));控件ID怎么表示呢; $i+7 可以但没有什么道理
                ;设置一个变量 $a="$input"&$i   来代替不管用       直接用数组变量代替$input1 $input 感觉麻烦
      Next
EndFunc

afan 发表于 2018-8-31 11:52:08

本帖最后由 afan 于 2018-8-31 12:26 编辑

      For $i = $Input1 To $Label80
                iniWrite(@AppDataDir & "\configjw.ini", "检测", $i - $Input1 + 1, GUICtrlRead($i, 0));
不用数组还真是不习惯，上面的复制错误，改为 For $i = $Input1 To $Input80

skyfree 发表于 2018-8-31 11:55:34

用数组存放控件创建后的ID

志艺风云 发表于 2018-8-31 12:21:58

afan 发表于 2018-8-31 11:52
For $i = $Input1 To $Label80
                iniWrite(@AppDataDir & "\configjw.ini", "检测" ...

你打错了 TO 值
        For $i = $Input1 To $Input80
                IniWrite(@DesktopDir & "\configjw.ini", "检测", "$Input" & $i - $Input1 + 1, GUICtrlRead($i, 0))
        Next

chamlien 发表于 2018-8-31 15:39:17

$i = $Input1 这种用法这么精辟，学习了，比数组简单了点

顽固不化 发表于 2018-8-31 16:23:30

不知管用不管用。来一段试试。

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=d:\autoit3\ppp\form1检测.kxf
$Form1 = GUICreate("检测预警", 313, 442, 376, 123)
$Label1 = GUICtrlCreateLabel("列", 0, 0, 16, 17)
$Label2 = GUICtrlCreateLabel("行", 32, 0, 16, 17)
$Label3 = GUICtrlCreateLabel("说明", 64, 0, 28, 17)
$Label4 = GUICtrlCreateLabel("值", 192, 0, 40, 17)
$Label5 = GUICtrlCreateLabel("差值", 248, 0, 52, 17)

$iy=0
$iH=0
For $i=1 To 16
        Assign('input'&($ih+1),GUICtrlCreateInput("", 0, 16+25*$iy, 25, 21))
        Assign('input'&($ih+2),GUICtrlCreateInput("", 32, 16+25*$iy, 25, 21))
        Assign('input'&($ih+3),GUICtrlCreateInput("", 64, 16+25*$iy, 121, 21))
        Assign('input'&($ih+4),GUICtrlCreateInput("", 192, 16+25*$iy, 41, 21))
        Assign('input'&($ih+5),GUICtrlCreateInput("", 248, 16+25*$iy, 49, 21))
        $iH+=5
        $iy+=1
Next       

$Button1 = GUICtrlCreateButton("保存", 248, 424, 49, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ##

_xieru()
Sleep(3000)
Exit


Func _xieru();数据写入文件
      For $i=1 To 80
                iniWrite(@AppDataDir & "\configjw.ini", "检测", $i,GUICtrlRead(Eval('input'&$i)));控件ID怎么表示呢; $i+7 可以但没有什么道理
                ;设置一个变量 $a="$input"&$i   来代替不管用       直接用数组变量代替$input1 $input 感觉麻烦
      Next
EndFunc

afan 发表于 2018-8-31 19:16:22

顽固不化 发表于 2018-8-31 16:23
不知管用不管用。来一段试试。

少用这种方式，弊端不少~

顽固不化 发表于 2018-8-31 19:42:10

afan 发表于 2018-8-31 19:16
少用这种方式，弊端不少~

很早以前，我记得我编写啥程序来，用这个方式减少不少代码

afan 发表于 2018-8-31 19:44:57

顽固不化 发表于 2018-8-31 19:42
很早以前，我记得我编写啥程序来，用这个方式减少不少代码

我也用过，不过早弃用了。代码长一点弊端就明显了。
最好的方式，一定是数组。

kk_lee69 发表于 2018-8-31 20:55:43

afan 发表于 2018-8-31 11:52
For $i = $Input1 To $Label80
                iniWrite(@AppDataDir & "\configjw.ini", "检测" ...

老大 如果想解決的是   $Input1 ~$Input80這80個變數的話

有簡短的寫法嗎??

afan 发表于 2018-8-31 21:00:37

kk_lee69 发表于 2018-8-31 20:55
老大 如果想解決的是   $Input1 ~$Input80這80個變數的話

有簡短的寫法嗎??

用数组就好了啊，其元素下标比 变量名的序号更方便也更精准

顽固不化 发表于 2018-8-31 21:19:07

afan 发表于 2018-8-31 19:44
我也用过，不过早弃用了。代码长一点弊端就明显了。
最好的方式，一定是数组。

嗯嗯，说的有道理

志艺风云 发表于 2018-9-3 11:14:32

afan 发表于 2018-8-31 19:16
少用这种方式，弊端不少~

老大是少用 Assign 还是少用Eval啊？

afan 发表于 2018-9-3 11:18:53

志艺风云 发表于 2018-9-3 11:14
老大是少用 Assign 还是少用Eval啊？

常规声明(如 Dim $input1) 与 Assign、Eval 使用&混用(如 Assign("input" & "1"))

afan 发表于 2018-9-3 11:22:39

BTW, 楼主3日内不结贴将扣分并移至无意义区。此类扔下不管的贴，相关版主应该有所为。

查看完整版本: 如何来表示连续的控件ID[已解决]