Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Установка галочки на пункте

Ответить
Настройки темы
[решено] Установка галочки на пункте

Новый участник


Сообщения: 37
Благодарности: 0

Профиль | Отправить PM | Цитировать


Как мне установить галочку на пункте?
Переменную прекрасно понимает, но упорно не хочет ставить галку.

Код: Выделить весь код
Local $hGUI = GUICreate('111', 350, 400)
Local $m000 = GUICtrlCreateContextMenu()
Local $m1 = GUICtrlCreateMenuItem('1', $m000)
Local $m2 = GUICtrlCreateMenuItem('2', $m000)
Local $m3 = GUICtrlCreateMenuItem('3', $m000)
Local $m4 = GUICtrlCreateMenuItem('4', $m000)
Local $m5 = GUICtrlCreateMenuItem('5', $m000)
Local $m6 = GUICtrlCreateMenuItem('6', $m000)
Local $m7 = GUICtrlCreateMenuItem('7', $m000)
$ddd = 6
For $i = 1 To 10
If $i = $ddd Then
$zv = '$m' & $i
; $zv = Eval('$m' & $iz)
; 
; Assign($mz, "data", 2)
;
MsgBox(0, $i & '   ' & $zv, $i)
;
; Execute(GUICtrlSetState($zv, 1))
; GUICtrlSetState($m5, 1)
GUICtrlSetState($zv, 1)
; MsgBox(0, Eval('zv'), '')
EndIf
Next
; GUICtrlSetState($m5, 1)

GUISetState()
While 1
Local $hMsg = GUIGetMsg(1)
Select
Case $hMsg[0] = -3
Exit
EndSelect
WEnd

Отправлено: 13:02, 05-07-2017

 

Новый участник


Сообщения: 37
Благодарности: 0

Профиль | Отправить PM | Цитировать


Вопрос снят.

Отправлено: 13:28, 05-07-2017 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Атос, Вы не могли бы пользовать клавишу Tab для фолдинга? Невозможно код читать.

И не делайте так:
Код: Выделить весь код
While 1
	Local $hMsg = GUIGetMsg(1)
…
WEnd
Делайте так:
Код: Выделить весь код
Local $hMsg
…
…
While 1
	$hMsg = GUIGetMsg(1)
…
WEnd


Цитата Атос:
Переменную прекрасно понимает, но упорно не хочет ставить галку. »
Я Вам уже два раза за последние дни говорил — используйте массивы, а не $m1, $m2, $m3 и до бесконечности. Но Вы упорно продолжаете мучаться.
Это сообщение посчитали полезным следующие участники:

Отправлено: 13:35, 05-07-2017 | #3


Новый участник


Сообщения: 37
Благодарности: 0

Профиль | Отправить PM | Цитировать


Iska, а с помощью какой функции Вы бы посоветовали создавать массив из кнопок?

Код: Выделить весь код
Local $ar1[] = []
_ArrayAdd($ar1)
Такую?

И как я потом мог бы вызывать функции, получая сообщения без идентификаторов, через такую конструкцию?

Код: Выделить весь код
Switch GUIGetMsg()

Case $ar1[]
MsgBox(0, '11', $ar1[])

EndSwitch



Код: Выделить весь код
#include "Array.au3"
$hgui = GUICreate("", 200, 300, -1, -1)
Local $b1 = GUICtrlCreateButton('111', 10, 10, 50, 22, 0x0)
Local $b2 = GUICtrlCreateButton('222', 10, 50, 50, 22, 0x0)
Local $b3 = GUICtrlCreateButton('333', 10, 90, 50, 22, 0x0)
Local $ar1[] = []
_ArrayAdd($ar1, $b1 & '   ' & $b2 & '   ' & $b3 )
GUISetState()
_ArrayDisplay($ar1)
While 1
Switch GUIGetMsg()
Case -3
Exit
; Case $ar1[]
; MsgBox(0, '11', $ar1[])
EndSwitch
Wend

Последний раз редактировалось Атос, 07-07-2017 в 09:25.


Отправлено: 09:11, 07-07-2017 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Установка галочки на пункте

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - Горячая клавиша для галочки (флажок) kosta1170 Microsoft Windows 7 0 10-07-2015 19:49
VBS/WSH/JS - Скрипт с возможность поставить галочки SharkX58 Скриптовые языки администрирования Windows 2 24-04-2015 13:21
BSOD - Не ставятся галочки записать событие в системный журнал Froe Хочу все знать 1 20-11-2014 17:19
HDD - ПК зависает на пункте - "Определение винтчестеров" THEDOGG Накопители (SSD, HDD, USB Flash) 38 04-03-2014 01:52
Интерфейс - вылетает explorer на пункте "отправить" контекстного меню shlef Microsoft Windows 2000/XP 4 10-04-2009 21:20




 
Переход