[已解决]GUI中批量设置case按钮的问题
本帖最后由 3131210 于 2017-5-23 08:28 编辑麻烦大神帮看看149行-150行，149设置的case是有效的，但是150不能读出相应位置的按钮，只能一直读一个$Tab1HKI的，有没有办法解决呢？#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <StaticConstants.au3>
#include <HotKeyInput.au3>
#include <HotKey_21b.au3>
#NoTrayIcon
Opt('SendCapslockMode', 0)
Opt('TrayMenuMode', 3)
;输入法-Start
Dim $var, $ime, $imee = '', $SFile = @ScriptDir & '\Setting.ini'
For $i = 1 To 100
$var[$i] = RegRead('HKEY_CURRENT_USER\keyboard layout\preload', $i)
If Not $var[$i] Then
$var = $i - 1
ExitLoop
EndIf
Next
For $i = 1 To $var
$ime[$i] = RegRead('HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Keyboard Layouts\' & $var[$i], 'Layout Text')
If $ime[$i] Then $imee = $imee & $ime[$i] & '|'
Next
If StringRight($imee, 1) = '|' Then $imee = StringTrimRight($imee, 1)
#Region ### START Koda GUI section ### Form=
$Exists = 'LP快捷辅助 - By Alex' ;判断是否只运行一个程序
If WinExists($Exists) Then
WinSetState('', '', @SW_RESTORE)
Exit
EndIf
AutoItWinSetTitle($Exists) ;修改程序窗口的标题名
$MyForm = GUICreate($Exists, 385, 370, 233, 139)
$Save = GUICtrlCreateButton('保存配置', 8, 330, 70, 30)
$Reset = GUICtrlCreateButton('重置配置', 108, 330, 70, 30)
$Tab = GUICtrlCreateTab(0, 0, 370, 20)
$TabSheet1 = GUICtrlCreateTabItem('LP快捷') ;标签1====================================================================================================
GUICtrlSetState(-1, $GUI_SHOW) ;优先显示
$LabelEN = GUICtrlCreateLabel('英文输入法', 8, 30, 64, 17)
$LabelCN = GUICtrlCreateLabel('中文输入法', 8, 62, 64, 17)
$Tab1Label1 = GUICtrlCreateLabel('热键(按Backspace删除)', 25, 92, 130, 17)
$Tab1Label2 = GUICtrlCreateLabel('生效', 175, 92, 28, 17)
$Tab1Label3 = GUICtrlCreateLabel('快捷(发送的内容)', 240, 92, 100, 17)
$Language1 = GUICtrlCreateCombo('None', 73, 26, 297, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
$Language2 = GUICtrlCreateCombo('None', 73, 58, 297, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
GUICtrlSetData($Language1, $imee, $ime)
GUICtrlSetData($Language2, $imee, $ime)
Local $Num = 9, $Tab1HKI[$Num], $Tab1CheckboxNum[$Num] ;总数
For $i = 0 To $Num - 1
$Tab1HKI[$i] = _GUICtrlHKI_Create(0, 10, 110 + $i * 24, 150, 17) ;热键框
GUICtrlSetStyle($Tab1HKI[$i], $ES_CENTER)
$Tab1CheckboxNum[$i] = GUICtrlCreateCheckbox($i, 180, 110 + $i * 24, 190, 17) ;复选框
Next
GUICtrlSetData($Tab1CheckboxNum, ' 欢迎语，还没有说明问题')
GUICtrlSetData($Tab1CheckboxNum, ' 索取账号')
GUICtrlSetData($Tab1CheckboxNum, ' 欢迎语，玩家已经说明问题')
GUICtrlSetData($Tab1CheckboxNum, ' 上传截图')
GUICtrlSetData($Tab1CheckboxNum, ' 长时间没回复')
GUICtrlSetData($Tab1CheckboxNum, ' 结束语')
GUICtrlSetData($Tab1CheckboxNum, ' 玩家满意度')
GUICtrlSetData($Tab1CheckboxNum, ' 稍等')
GUICtrlSetData($Tab1CheckboxNum, ' 再次服务')
$TabSheet2 = GUICtrlCreateTabItem('自定义快捷') ;标签2====================================================================================================
$Tab2Label1 = GUICtrlCreateLabel('热键(按Backspace删除)', 25, 25, 130, 17)
$Tab2Label2 = GUICtrlCreateLabel('生效', 175, 25, 28, 17)
$Tab2Label3 = GUICtrlCreateLabel('快捷(发送的内容)', 240, 25, 100, 17)
Local $Num = 12, $Tab2HKI[$Num], $Tab2CheckboxNum[$Num], $Tab2Input[$Num] ;总数
For $i = 0 To $Num - 1
$Tab2HKI[$i] = _GUICtrlHKI_Create(0, 10, 45 + $i * 24, 150, 17) ;热键框
GUICtrlSetStyle($Tab2HKI[$i], $ES_CENTER)
$Tab2CheckboxNum[$i] = GUICtrlCreateCheckbox('', 180, 45 + $i * 24, 17, 17) ;复选框
$Tab2Input[$i] = GUICtrlCreateInput('None', 210, 45 + $i * 24, 165, 17) ;输入框
Next
$TabSheet3 = GUICtrlCreateTabItem('杂项') ;标签3====================================================================================================
$SpecialCheckbox1 = GUICtrlCreateCheckbox('【F1】特殊功能', 25, 150, 110, 17) ;F1特殊功能
$SpecialCheckbox2 = GUICtrlCreateCheckbox('【F6】窗口置顶', 25, 180, 110, 17) ;F1特殊功能
GUICtrlCreateGroup("LP快捷延迟", 15, 35, 150, 100)
$Tab3Label1 = GUICtrlCreateLabel("切换输入法延迟", 25, 55, 85, 17, $SS_RIGHT)
$Tab3Label2 = GUICtrlCreateLabel("A 延迟", 25, 75, 85, 17, $SS_RIGHT)
$Tab3Label3 = GUICtrlCreateLabel("→ 延迟", 25, 95, 85, 17, $SS_RIGHT)
$Tab3Label4 = GUICtrlCreateLabel("选择项目延迟", 25, 115, 85, 17, $SS_RIGHT)
$WSleep1 = GUICtrlCreateInput("1", 120, 53, 30, 17)
$WSleep2 = GUICtrlCreateInput("1", 120, 73, 30, 17)
$WSleep3 = GUICtrlCreateInput("1", 120, 93, 30, 17)
$WSleep4 = GUICtrlCreateInput("1", 120, 113, 30, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;关闭组框控件
GUICtrlCreateGroup("自定义快捷延迟", 215, 35, 150, 100)
$Tab3Label5 = GUICtrlCreateLabel("切换输入法延迟", 225, 55, 85, 17, $SS_RIGHT)
$Tab3Label6 = GUICtrlCreateLabel("A 延迟", 225, 75, 85, 17, $SS_RIGHT)
$Tab3Label7 = GUICtrlCreateLabel("→ 延迟", 225, 95, 85, 17, $SS_RIGHT)
$Tab3Label8 = GUICtrlCreateLabel("选择项目延迟", 225, 115, 85, 17, $SS_RIGHT)
$WSleep5 = GUICtrlCreateInput("1", 320, 53, 30, 17)
$WSleep6 = GUICtrlCreateInput("1", 320, 73, 30, 17)
$WSleep7 = GUICtrlCreateInput("1", 320, 93, 30, 17)
$WSleep8 = GUICtrlCreateInput("1", 320, 113, 30, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1) ;关闭组框控件
GUICtrlCreateTabItem('') ;关闭标签功能
;标签切换热键-Start
Local $sBtn = , $TabSheet = [$TabSheet1, $TabSheet2, $TabSheet3]
Local $sHk = [['^{Tab}', $sBtn], ['^+{Tab}', $sBtn]]
GUISetAccelerators($sHk)
;标签切换热键-End
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Save
MsgBox(0, 0, 0)
Case $sBtn
If GUICtrlRead($Tab) < UBound($TabSheet) - 1 Then
Local $i = GUICtrlRead($Tab) + 1
Else
Local $i = 0
EndIf
GUICtrlSetState($TabSheet[$i], 16)
Case $sBtn
If GUICtrlRead($Tab) = 0 Then
Local $i = 2
Else
Local $i = GUICtrlRead($Tab) - 1
EndIf
GUICtrlSetState($TabSheet[$i], 16)
Case $Tab1CheckboxNum To $Tab1CheckboxNum
MsgBox(0, 0, GUICtrlRead($Tab1HKI))
EndSwitch
WEnd
Func ShowMessage()
MsgBox($MB_SYSTEMMODAL, "", "这是一条消息.")
EndFunc ;==>ShowMessage
MsgBox(0, 0, GUICtrlRead($nMsg-1)
页:
[1]