[Элементы GUI] Вывод кнопок из массива и чтение нажатий

merycoolz · 22 Июн 2016

Всем доброго времени суток.
Имеем массив к примеру из цифр 1,2,3.
Нужно исходя из количества элементов массива сделать кнопку со значением каждой из низ.
Например кнопка "1", "2","3"
По нажатию на определенную из кнопой выполняется одинаковое условие, переменной выступает лишь надпись на кнопке.
Уже пробовал через массивы и циклы, затем использую switch сделать, но до конца не работает никак.

Попробовал сделать вариант на индийском коде - т.е. проверяя через IF каждый элемент создавать ему отдельную кнопку, но тогда switch ругается если какая то из кнопок отсутствует.

Прошу Вашей помощи.

InnI · 22 Июн 2016

Код:

Global $aData[] = [15,22,08,101]

Global $aBtn[UBound($aData)]
GUICreate("Example")
For $i = 0 To UBound($aData) - 1
  $aBtn[$i] = GUICtrlCreateButton($aData[$i], 10, $i * 50 + 10, 50, 30)
Next
GUISetState()

Do
  $msg = GUIGetMsg()
  Switch $msg
    Case -3
      Exit
    Case $aBtn[0] To $aBtn[UBound($aData) - 1]
      MsgBox(0, "", GUICtrlRead($msg))
  EndSwitch
Until 0

ildar · 23 Июн 2016

Делал подобное, вот готовый скрипт

Код:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GUIListBox.au3>
#Region ### START Koda GUI section ### Form=d:\autoit\koda_1.7.2.8_b247_2010-04-15\forms\kolodka.kxf


$aArray = IniReadSection(@ScriptDir & "\Key.ini", "PK")
If @error Then
    MsgBox(4096, "", "Произошла ошибка, отсутствует INI-файл.")
	Exit
Else
EndIf

$aSectionName = IniReadSectionNames(@ScriptDir & "\Tel.ini")
If @error Then
    MsgBox(4096, "", "Произошла ошибка, возможно отсутствует INI-файл.")
	Exit
Else
EndIf

Dim $iID[10]
Dim $aTel[250]
$k = 0
For $i = 1 To $aSectionName[0]
   $aSection = IniReadSection(@ScriptDir & "\Tel.ini", $aSectionName[$i])
   For $j = 0 To $aSection[0][0] - 1
	  $aTel[$k + $j] = $aSection[$j + 1][1]
   Next
   $k += $j
Next
ReDim $aTel[$k]

$aSpravka = IniReadSection(@ScriptDir & "\spravka.ini", "Tel")
If @error Then
    MsgBox(4096, "", "Произошла ошибка, отсутствует INI-файл.")
	Exit
Else
EndIf

;_ArrayDisplay($aSpravka)

;_SearchTel('3081')




$Form1_1 = GUICreate("Схема расположения телефонных номеров", 1077, 651, 169, 5)

$PK20 = GUICtrlCreateGroup("PK2.0 (каб.114 - Техники)", 24, 16, 209, 65)
For $i = 1 To $aArray[0][0]
	  $a = StringSplit($aArray[$i][1], ',')
        GUICtrlCreateButton($a[1], $a[2], $a[3], $a[4], $a[5])
Next

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("PK2.1 (каб.117 - тамбур Столовая)", 24, 84, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("PK2.2 (каб.106 - напротив под потолком)", 24, 152, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("PK2.3 (каб.105 - тамбур Звукозапись)", 24, 219, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("PK2.4 (потолок пред ПК4, где стенд)", 23, 287, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("PK2.5 (каб.103 - тамбур Сауна)", 240, 16, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("PK2.6 (каб.226 - Системный администратор)", 240, 84, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("PK2.7 (каб.218 - фойе АВМ)", 240, 152, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("PK2.8 (каб.201 - пред Приемная)", 240, 220, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group9 = GUICtrlCreateGroup("PK2.9 (каб.209 - пред Передачники)", 240, 288, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group10 = GUICtrlCreateGroup("IP-ATC", 488, 8, 81, 569)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group11 = GUICtrlCreateGroup("PK3.1 (каб.216 - Бухгалтерия)", 611, 156, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group12 = GUICtrlCreateGroup('PK3.2 (каб.230 - тамбур СИ "ТВ")', 611, 228, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group13 = GUICtrlCreateGroup("PK3.3", 611, 300, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$PK4 = GUICtrlCreateGroup("PK4 (каб.232 - Рекламный отдел)", 232, 490, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$PK76 = GUICtrlCreateGroup("PK76 (Городские номера)", 608, 491, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$PK77 = GUICtrlCreateGroup("PK77 (Городские номера)", 851, 494, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$PK1 = GUICtrlCreateGroup('PK1.0 (ЭА "Кунел")', 613, 11, 209, 65)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Linksys = GUICtrlCreateGroup("Linksys", 32, 352, 81, 281)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$font = "Times New Roman"
$iLabel = GUICtrlCreateLabel('Номер телефона:', 180, 600, 200, 17, $WS_EX_CLIENTEDGE)
GUICtrlSetFont($iLabel, 16, 400, 0, $font)
GUICtrlCreateLabel('', 335, 595, 75, 25, $WS_BORDER, $WS_EX_CLIENTEDGE)   ;$aTel[$nMsg - 4]
GUICtrlSetFont(-1, 16, 400, 0, $font)
$iFind = GUICtrlCreateLabel('Поиск номера:', 680, 600, 200, 17, $WS_EX_CLIENTEDGE)
GUICtrlSetFont($iFind, 12, 700, 0, $font)

$Input = GUICtrlCreateInput('', 790, 600, 100, 17, $WS_BORDER)
GUICtrlSetState($Input, $GUI_FOCUS)
$BtnOk = GUICtrlCreateButton("OK", 900, 600, 50, 17)
GUICtrlSetState($BtnOk, $GUI_DEFBUTTON)

$List = GUICtrlCreateList("", 830, 5, 235, 480, $WS_BORDER+$WS_VSCROLL+$LBS_NOINTEGRALHEIGHT) ;, BitOR($LBS_MULTIPLESEL, $GUI_SS_DEFAULT_LIST))

For $x = 1 To Ubound($aSpravka)-1
       GUICtrlSetData($List, $aSpravka[$x][1] & ' - ' & $aSpravka[$x][0])
Next

GUISetState()
#EndRegion ### END Koda GUI section ###

$iIDold = $iID
$iIDold = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		 Case $GUI_EVENT_CLOSE
			Exit
		 Case 4 To 210
			For $b = 0 To Ubound($iIDold) - 1
				  GUICtrlSetBkColor($iIDold[$b], 0xEFEFEF)
			Next
				  If $aTel[$nMsg - 4] <> 0 Then
					 _SearchTel($aTel[$nMsg - 4])
					 For $d = 0 To Ubound($iID) - 1
						GUICtrlSetBkColor($iID[$d], 0xff0000)
					 Next
					 GUICtrlCreateLabel($aTel[$nMsg - 4], 335, 595, 75, 25, $WS_BORDER, $WS_EX_CLIENTEDGE)   ;
					 GUICtrlSetFont(-1, 16, 400, 0, $font)
				  Else
			EndIf
			$iIDold = $iID
			$nMsgOld = $nMsg
		 Case 249
			GUICtrlSetState($Input, $GUI_FOCUS)
			GUICtrlSetData($Input, '')
		 Case $BtnOk
			$sText = GUICtrlRead($Input)
			;MsgBox(0, "Результат", $sText)
			For $b = 0 To Ubound($iIDold) - 1
				  GUICtrlSetBkColor($iIDold[$b], 0xEFEFEF)
			Next
				  _SearchTel($sText)
				  If Ubound($iID) = 0 Then
					 MsgBox(0, "Результат", 'Нет такого номера')
					 Else
						For $d = 0 To Ubound($iID) - 1
						   GUICtrlSetBkColor($iID[$d], 0xff0000)
						Next
						GUICtrlCreateLabel($sText, 335, 595, 75, 25, $WS_BORDER, $WS_EX_CLIENTEDGE)   ;
						GUICtrlSetFont(-1, 16, 400, 0, $font)
						$iIDold = $iID
						$nMsgOld = $nMsg
					 EndIf
	EndSwitch
WEnd

Func _SearchTel($t)
   $j = 0
   ReDim $iID[10]
   For $i = 0 To UBound($aTel) - 1
	  If $t = $aTel[$i] Then
		 $iID[$j] = $i + 4
		 $j += 1
		 Else
		 EndIf
	  Next
	  ReDim $iID[$j]
	  Return $iID
EndFunc

Key.ini содержит данные о кнопках

merycoolz · 23 Июн 2016

to InnI

Проблема этого кода в том, что если у меня в массиве не будет элементов (в моем случае это бывает),
программа завершается так как не существует $aBtn[0].
А создание этого элемента вручную приводит к тому что условие case выполняется.
Добавлено:
Сообщение автоматически объединено: 23 Июн 2016

Пока проблема решена созданием дополнительного условия - если массив пустой то создаем кнопку кнопку "Значений нет"
и всего делов.
Хорошо было бы обойтись без этого.

InnI · 23 Июн 2016

merycoolz

Проблема этого кода

У этого кода проблем нет. Если вы испытываете проблемы при модернизации, то это не проблемы данного кода.

если у меня в массиве не будет элементов

Не было такого условия. Условие было: "Имеем массив..."

Хорошо было бы обойтись без этого.

Ну, вот опять. Что делать-то? Конкретно. Не создавать кнопки при отсутствии данных?

Код:

Global $aData[] = [15,22,08,101]
;~ Global $aData = 4 ; не массив
;~ Global $aData[0] ; пустой массив
;~ Global $aData[1][1] ; двумерный массив

GUICreate("Example")
GUISetState()

If IsArray($aData) And UBound($aData) And UBound($aData, 0) = 1 Then
  Global $aBtn[UBound($aData)]
  For $i = 0 To UBound($aData) - 1
    $aBtn[$i] = GUICtrlCreateButton($aData[$i], 10, $i * 50 + 10, 50, 30)
  Next
  Global $iFirst = $aBtn[0], $iLast = $aBtn[UBound($aData) - 1]
Else
  Global $iFirst = -1, $iLast = -1
EndIf

Do
  $iMsg = GUIGetMsg()
  Switch $iMsg
    Case -3
      Exit
    Case $iFirst To $iLast
      MsgBox(0, "", GUICtrlRead($iMsg))
  EndSwitch
Until 0

Автор темы	Похожие темы	Форум	Ответы	Дата
	[Элементы GUI] Вывод пути к каталогу в $Input	Общие вопросы по AutoIt	2	12 Апр 2018
T	[Элементы GUI] Можно ли подключится к внешней программе и выводить ее данные в проге на Autoit?	Общие вопросы по AutoIt	2	2 Июн 2015
N	[Элементы GUI] Выбор элемента в ListView мышкой. вывод и сохранение данных	Общие вопросы по AutoIt	1	16 Апр 2015
	Перенесено: [Элементы GUI] Вывод в текстовой строке количество выполненной функции	Общие вопросы по AutoIt	0	13 Июн 2014
G	[Элементы GUI] Вывод в текстовой строке количество выполненной функции	GUI - Графический интерфейс пользователя	1	13 Июн 2014

Поиск

Поиск

[Элементы GUI] Вывод кнопок из массива и чтение нажатий

merycoolz

Новичок

InnI

AutoIT Гуру

ildar

Осваивающий

Вложения

merycoolz

Новичок

InnI

AutoIT Гуру