[Элементы GUI] Обработка событий элемента Combobox

edward_freedom · 20 Окт 2010

Приведите пример,так как я нигде не могу найти :shok:

Чтобы из списка Combo1 выбрать элемент и выполнилось определеное действие :whistle:
Пример...в списке Combo1 выбрать Mob1 или Mob2 или Mob3 и мышка переместилась :(
Вот пример
If PixelGetColor(326, 309) = 0xC70000 Then
Sleep(Random(50, 50))
MouseClick("left", 402, 483)
EndIf
Мне надо чтобы MouseClick можно было выбрать из Combo1

Garrett · 20 Окт 2010

Код:

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("", 163, 47, 192, 114)
$Combo1 = GUICtrlCreateCombo("Выберите координаты", 9, 11, 145, 25)
GUICtrlSetData(-1, "402,483")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Combo1
            $aCord = StringSplit(GUICtrlRead($Combo1), ",", 2)
            If PixelGetColor(326, 309) = 0xC70000 Then
                Sleep(Random(50, 50))
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf

    EndSwitch
WEnd

edward_freedom · 20 Окт 2010

Спасибо тебе большое,это именно то что мне надо!!СПАСИБО

madmasles · 20 Окт 2010

edward_freedom
В принципе, почти то же самое, что у Garrett`a:

Код:

#include <GUIConstantsEx.au3>

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate('Test', 200, 80, -1, -1)
$Combo1 = GUICtrlCreateCombo('', 20, 40, 160, 25)
GUICtrlSetData(-1, '100|200|300', '300')
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Combo1
			_MyFunc(GUICtrlRead($Combo1))
	EndSwitch
WEnd

Func _MyFunc($iXY)
	MouseMove($iXY, $iXY)
	MouseMove($iXY * 2, $iXY)
	MouseMove($iXY * 2, $iXY * 2)
	MouseMove($iXY, $iXY * 2)
	MouseMove($iXY, $iXY)
EndFunc   ;==>_MyFunc

edward_freedom · 20 Окт 2010

Код:

Case $Combo1
             $aCord = StringSplit(GUICtrlRead($Combo1), ",", 2)
		If PixelGetColor(514, 750) = 0x7AD249 Then
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf
		   Case $Combo2
             $aCord = StringSplit(GUICtrlRead($Combo2), ",", 2)
		If PixelGetColor(534, 753) = 0x79D238 Then
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf
		Case $Combo3
             $aCord = StringSplit(GUICtrlRead($Combo3), ",", 2)
            If PixelGetColor(553, 751) = 0x8AE157 Then
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf
		Case $Combo4
             $aCord = StringSplit(GUICtrlRead($Combo4), ",", 2)
		If PixelGetColor(573, 752) = 0x559727 Then
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf

Почему выполняеться первый $combo1 а все остальные нет?

Garrett · 21 Окт 2010

Потому что нужно заглядывать в справку! ;)

Код:

Switch GUICtrlRead($Combo1)
    Case "121,235" ; координаты $Combo1
        $aCord = StringSplit(GUICtrlRead($Combo1), ",", 2)
        If PixelGetColor(514, 750) = 0x7AD249 Then
            MouseClick("left", $aCord[0], $aCord[1])
        EndIf
    Case "121,345" ; координаты $Combo1
        $aCord = StringSplit(GUICtrlRead($Combo1), ",", 2)
        If PixelGetColor(534, 753) = 0x79D238 Then
            MouseClick("left", $aCord[0], $aCord[1])
        EndIf
    Case "345,235" ; координаты $Combo1
        $aCord = StringSplit(GUICtrlRead($Combo1), ",", 2)
        If PixelGetColor(553, 751) = 0x8AE157 Then
            MouseClick("left", $aCord[0], $aCord[1])
        EndIf
    Case "23,45" ; координаты $Combo1
        $aCord = StringSplit(GUICtrlRead($Combo1), ",", 2)
        If PixelGetColor(573, 752) = 0x559727 Then
            MouseClick("left", $aCord[0], $aCord[1])
        EndIf
EndSwitch

Добавлено:
Сообщение автоматически объединено: 21 Окт 2010

Или так, если у вас не один Combo:

Код:

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Combo1
            $aCord = StringSplit(GUICtrlRead($Combo1), ",", 2)
            If PixelGetColor(326, 309) = 0xC70000 Then
                Sleep(Random(50, 50))
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf
        Case $Combo2
            $aCord = StringSplit(GUICtrlRead($Combo2), ",", 2)
            If PixelGetColor(326, 309) = 0xC70000 Then
                Sleep(Random(50, 50))
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf
        Case $Combo3
            $aCord = StringSplit(GUICtrlRead($Combo3), ",", 2)
            If PixelGetColor(326, 309) = 0xC70000 Then
                Sleep(Random(50, 50))
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf
        Case $Combo4
            $aCord = StringSplit(GUICtrlRead($Combo4), ",", 2)
            If PixelGetColor(326, 309) = 0xC70000 Then
                Sleep(Random(50, 50))
                MouseClick("left", $aCord[0], $aCord[1])
            EndIf

    EndSwitch
WEnd

alexb · 21 Окт 2010

Как реализовать обработку событий в Combobox, чтобы, например, когда я выбираю элемент списка, отображалось сообщение со значением выбранной строки ?

CreatoR · 21 Окт 2010

Вы что, сговорились: [Элементы GUI] Событие в combo1
:scratch:

madmasles · 21 Окт 2010

alexb
Так попробуйте:

Код:

#include <GUIConstantsEx.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate('Form1', 267, 97, 192, 114)
$Combo1 = GUICtrlCreateCombo('', 24, 16, 185, 25)
GUICtrlSetData(-1, 'Первая строка|Вторая строка|Третья строка', 'Третья строка')
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Combo1
			MsgBox(0, 'Combo1', GUICtrlRead($Combo1))
	EndSwitch
WEnd

alexb · 21 Окт 2010

madmasles сказал(а):
alexb
Так попробуйте:

Код:

#include <GUIConstantsEx.au3> ... Case $Combo1 MsgBox(0, 'Combo1', GUICtrlRead($Combo1)) ... [/quote] :ok: :IL_AutoIt_1:

edward_freedom · 21 Окт 2010

Спасибо вам всем!!!!Мир не без добрвх людей! :IL_AutoIt_1:

Garrett · 21 Окт 2010

OffTopic:
CreatoR [?]

Вы что, сговорились:

;D

edward_freedom · 21 Окт 2010

А можно пример с :blink:$Checkbox1

Garrett · 21 Окт 2010

edward_freedom сказал(а):
А можно пример с :blink:$Checkbox1

Код:

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

$Form1 = GUICreate("MyProg", 113, 35, 192, 114)
$Checkbox1 = GUICtrlCreateCheckbox("100,200", 8, 8, 97, 17)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Checkbox1
        $aCord = StringSplit(ControlGetText ( "MyProg", "", $Checkbox1 ), ",", 2)
        If PixelGetColor(326, 309) = 0xC70000 Then
            Sleep(Random(50, 50))
            MouseClick("left", $aCord[0], $aCord[1])
        EndIf
    EndSwitch
WEnd

edward_freedom · 21 Окт 2010

Garrett Спасибо! 8)

Jotun · 12 Ноя 2014

Никак не могу понять как обрабатывать событие в комбо когда включён Opt ( "GUIOnEventMode", 1 )
Как отслеживать выбор пункта в списке?

Код:

#include <GUIConstantsEx.au3>
#include <GuiComboBox.au3>
#include <GuiListBox.au3>

Opt ( "GUIOnEventMode", 1 )

$Main = GUICreate ( "", 400, 400 )
$Combo = _GUICtrlComboBox_Create ( $Main, "", 100,50,150,200, $GUI_SS_DEFAULT_LIST + BitNOT($LBS_SORT) + $CBS_DROPDOWNLIST)

GUISetOnEvent ( $GUI_EVENT_CLOSE, "_Exit", $Main )
GUICtrlSetOnEvent ( $Combo, "Test")

For $i=1 To 10
	_GUICtrlComboBox_AddString ( $Combo, "Text " & $i )
Next
GUISetState ( @SW_SHOW, $Main )

_GUICtrlComboBox_SetCurSel ( $Combo, 0 )

While 1
	Sleep (1000)
WEnd

Func Test ()
	MsgBox (0,"","TEST")
EndFunc

Func _Exit ()
	Exit
EndFunc

InnI · 12 Ноя 2014

Jotun [?]

обрабатывать событие в комбо когда включён Opt

Этот режим для элементов, созданных штатными средствами AutoIt

Код:

$Combo = GUICtrlCreateCombo( "", 100,50,150,200, $GUI_SS_DEFAULT_LIST + BitNOT($LBS_SORT) + $CBS_DROPDOWNLIST)

Если вы создали combobox при помощи

Код:

_GUICtrlComboBox_Create()

то его нужно обрабатывать через WM_COMMAND (см. пример в справке к этой функции).

Jotun · 12 Ноя 2014

InnI сказал(а):
Этот режим для элементов, созданных штатными средствами. Если вы создали combobox при помощи

Код:

_GUICtrlComboBox_Create()

то его нужно обрабатывать через WM_COMMAND (см. пример в справке к этой функции).

Аааа блин

У меня не получалось выудить текст из ListBox при помощи

Код:

$LB_GETTEXT

- получал крит, тогда я решил использовать

Код:

_GUICtrlListBox_GetText.

С Combo я решил сразу создать его при помощи

Код:

_GUICtrlComboBox_Create()

.

Запара вышла, $CB_GETLBTEXT для обычного Combo созданого

Код:

GUICtrlCreateCombo ()

у меня работает без крита :smile:

Добавлено:
Сообщение автоматически объединено: 12 Ноя 2014

Добавлено:
Сообщение автоматически объединено: 12 Ноя 2014

Поторопился я. Толи функции: $CB_GETLBTEXT, $LB_GETLBTEXT не корректно работают, толи я их не правильно использую. После 2-3 выборов из списка Комбо - всё равно критует.

Использую функции: _GUICtrlComboBox_GetLBText и _GUICtrlListBox_GetText

InnI · 12 Ноя 2014

Jotun [?]

Использую функции

Этого мало. Нужен пример проблемного кода.

Jotun · 12 Ноя 2014

InnI сказал(а):
Этого мало. Нужен пример проблемного кода.

Я имел ввиду что используя функции _GUICtrlComboBox_GetLBText и _GUICtrlListBox_GetText - всё работает.
То что нужен кусок проблемного кода мне понятно, но мне уже трудно выудить из моей каши что-то разумное :smile:

Поэтому пусть так пока будет :smile:

Спасибо.

Автор темы	Похожие темы	Форум	Ответы	Дата
C	[Элементы GUI] Обработка фразы введенной с помошью GUICtrlCreateInput	Общие вопросы по AutoIt	21	1 Май 2014
	[Элементы GUI] HTMLayout. Обработка событий	Общие вопросы по AutoIt	5	21 Сен 2013
R	[Элементы GUI] отображение чекбоксов, в зависимости от записей в ини файле и обработка событий	GUI - Графический интерфейс пользователя	5	31 Янв 2013
	[Элементы GUI] Обработка непечатных символов в Edit	GUI - Графический интерфейс пользователя	3	28 Окт 2011
D	[Элементы GUI] Обработка событий пользовательских кнопок	GUI - Графический интерфейс пользователя	2	25 Апр 2011

[Элементы GUI] Обработка событий элемента Combobox

Осваивающий

Модератор

Осваивающий

Модератор

Осваивающий

Модератор

Новичок

Must AutoIt!

Модератор

Новичок

Осваивающий

Модератор

Осваивающий

Модератор

Осваивающий

Новичок

AutoIT Гуру

Новичок

AutoIT Гуру

Новичок