[Ошибки] Ошибка в button и дочернем окне, медленный отклик

[vanekzver]

Чтобы нажать button или закрыть дочернее окно нужно нажать много раз, иногда 2, иногда 4, в чем может быть проблема?

 

[Medic84]

Re: [Ошибки] Ошибка button и дочернего окна

vanekzver
Присутствует либо Sleep() либо громоздкая функция в главном цикле

While 1 

WEnd

Где код? Мы гадать будем?
и еще:

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Ошибки] Ошибка button и дочернего окна" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Администратор.

 

[vanekzver]

Re: [Ошибки] Ошибка button и дочернего окна

Спойлер

While 1
    $msg = GUIGetMsg(1)
    Select
        case $msg[0] = $Obj2
            GUISetState(@SW_SHOW, $Form2)
        Case $msg[0] = $GUI_EVENT_CLOSE
            If $msg[1] = $Form2 Then
                GUISetState(@SW_HIDE, $Form2)
            ElseIf $msg[1] = $Form1 Then
                Exit
            EndIf
	EndSelect
	$msg2 = GUIGetMsg(1)
    Select
        case $msg2[0] = $Obj3
            GUISetState(@SW_SHOW, $Form3)
        Case $msg2[0] = $GUI_EVENT_CLOSE
            If $msg2[1] = $Form3 Then
                GUISetState(@SW_HIDE, $Form3)
            ElseIf $msg2[1] = $Form1 Then
                Exit
            EndIf
		EndSelect
		    Switch GUIGetMsg()
        Case -3
            Exit
        Case $Obj4
            Send('{F5}')
    EndSwitch
WEnd

Добавлено:

Сообщение автоматически объединено: 28 Фев 2012

Вот код

 

[CreatoR]

vanekzver [?]

Вот код

Ну а зачем 3 раза опрашивать события? :blink:

While 1
	$msg = GUIGetMsg(1)
	
	Select
		Case $msg[0] = $Obj2 Or $msg[0] = $Obj3
			GUISetState(@SW_SHOW, $msg[1])
		Case $msg[0] = $Obj4
			Send('{F5}')
		Case $msg[0] = $GUI_EVENT_CLOSE
			If $msg[1] = $Form1 Then
				Exit
			Else
				GUISetState(@SW_HIDE, $msg[1])
			EndIf
	EndSelect
WEnd

 

[vanekzver]

Перестали все 3 функции работать

 

[CreatoR]

vanekzver [?]

Перестали все 3 функции работать

Рабочий код в студию!

 

[vanekzver]

Case $msg[0] = $Obj4
            Send('{F5}')

Не относиться к отрывку связанному с $msg


Добавлено:

Сообщение автоматически объединено: 28 Фев 2012

Аааа я понял, каждая функция, и obj2 и obj3 открывает разные формы, form2 и form3 , куда их вписать? поэтому не работает походу


Добавлено:

Сообщение автоматически объединено: 28 Фев 2012

Спойлер

While 1
    $msg = GUIGetMsg(1)
    Select
		Case $msg[0] = $Obj2 Or $msg[0] = $Obj3
			GUISetState(@SW_SHOW, $msg[1])
		If $msg [0] = $Obj2 Then
			GUISetState(@SW_SHOW, $Form2)
		ElseIf $msg[0] = $Obj3 Then
            GUISetState(@SW_SHOW, $Form3)
		EndIf
        Case $msg[0] = $GUI_EVENT_CLOSE
            If $msg[1] = $Form2 Then
                GUISetState(@SW_HIDE, $Form2)
            ElseIf $msg[1] = $Form3 Then
                GUISetState(@SW_HIDE, $Form3)
			ElseIf $msg[1] = $Form1 Then
				Exit
            EndIf
	EndSelect
WEnd

Готово))) Спасибо

 

[CreatoR]

Лишний код detected! :Typing:
Ну раз уж полного кода нет (или хотя бы похожего-рабочего), то пусть будет так.