1. Gui findet 2. Gui doof! - Oder: 2. GUI lässt 1. GUI einschlafen

dunno

Hi zusammen,

ich hab keine AHnung, wie banal meine Fragen sind, ich verbring jedenfalls viel Zeit, um sie selbst zu lösen :-/

Also, folgendes Problem: Ich hab ein GUI [$windowmain = GuiCreate("Titel", 220, 405,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_GROUP))], die eine zweite GUI[$windowpopup = GUICreate("abIM08 - Name", 542, 366, 221, 107, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_SIZEBOX, $WS_POPUP, $DS_SETFOREGROUND))] über eine Funktion öffnet. Wenn nun das zweite GUI öffne, reagiert das erste GUI nicht mehr. DH. es öffnet führt keine Aktion mehr durch. Warum ? Weil die Whileschleife nicht weiterläuft ? Wenn ja, wie kann ich das ändern ?

Erste GUI:

Code

#include <open_chat.func.au3>


[...]


	$msg = GuiGetMsg()
	Select
	Case $msg = $list_online
		If GUICtrlRead($list_online) Then
			_OpenChat(GUICtrlRead($list_online))
		EndIf
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop


	Case Else
		;;;
	EndSelect
WEnd

Alles anzeigen

Zweite GUI - open_chat.func.au3:

Code

Func _OpenChat($cPartner)


[...]

	$windowpopup = GUICreate("test2", 542, 366, 221, 107, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_SIZEBOX, $WS_POPUP, $DS_SETFOREGROUND))


[...]


Select
		Case $msg = $Send_Button
			_Send($cPartner, $Input_1)
			_Data2Array($output, 2, $cPartner)
			GUICtrlSetData($Edit_1, $output)
		Case $msg = $GUI_EVENT_CLOSE
			GUIDelete($windowpopup)
		Case Else
			;;;
		EndSelect
	WEnd

Alles anzeigen

Gruß,
Chris

**peethebee**

Hallo!

Naja, die erste GUI ist halt aus ihrer Message-Schleife raus, bis die Funktion zu Ende ist, die die zweite GUI aufruft. Wenn du beide laufen haben willst, müsstest du die Messageverarbeitung in ein und der selben Wihle-Schileife unterbringen. Dazu musst du die Gliederung in zweei Dateien aufgeben, die meist mehr schadet als hilft.

Ich habe mir den Quelltext nur ganz kurz angesehen, kann alsoa uch falsch sein.

peethebee

dunno

Danke für die schnelle Antwort! Aber ich kann mir irgendwie nichts darunter forstellen (liegt vielleicht auch daran, dass ich verdammt müde bin)...

BTW.: Ich will eine Funktion mit Parametern öffnen, wenn ich ein Hotkey verwende, oder einen Button drücke... geht das?

**peethebee**

Nein.
Zur NO)t eine Zwischefunktion, die dann eine andere mit Pram aufruft. Kann morgen Edit: heute (hatte mich extra beeilt ;-)) früh noch was dazu schreiben.

peethebee

**bernd670**

Hallo,

Du könntest z.B. mit Opt("GUIOnEventMode", 1) in den OnEvent-Modus schalten, dann bist du unabhängig von der Wihle-Schleife.

Das ganze sieht dann in etwa so aus:

Erste GUI:

C

Opt("GUIOnEventMode", 1)  ; Wechsle in den OnEvent Modus


#include <open_chat.func.au3>


$windowmain = GuiCreate("Titel", 220, 405,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_GROUP))
[...]


GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClickedMain")
GUICtrlSetOnEvent($list_online, "ListOnlineClicked")


[...]


While 1
    Sleep(200) ; Mache nichts
Wend




Func CloseClickedMain()
    Exit
EndFunc


Func ListOnlineClicked()    
    If GUICtrlRead($list_online) Then
        _OpenChat(GUICtrlRead($list_online))
    EndIf
EndFunc

Alles anzeigen

Zweite GUI - open_chat.func.au3:

Code

Func _OpenChat($cPartner)


[...]

	$windowpopup = GUICreate("test2", 542, 366, 221, 107, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_SIZEBOX, $WS_POPUP, $DS_SETFOREGROUND))
[...]


GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClickedPopup")
GUICtrlSetOnEvent($Send_Button,"SendButtonClicked")


[...]


Func CloseClickedPopup()
    GUIDelete($windowpopup)
EndFunc


Func SendButtonClicked()
    _Send($cPartner, $Input_1)
    _Data2Array($output, 2, $cPartner)
    GUICtrlSetData($Edit_1, $output)
EndFunc

Alles anzeigen

Du mußt also für jede Message eine Funktion schreiben, Info findest du in der Hilfe unter GUI-Referenz.

@1: Fehler behoben!

**Xenobiologist**

HI,

macht es nicht unnötig kompliziert. Mach eine While-Schleife, in der du beide GUIs abhandelst. Am Anfang baust du beide GUIs und schaltest die zweite das einfach auf show wenn du sie brauchst.

So long,

Mega

PS: Wenn du ein Bsp brauchst, dann melde dich nochmal.

**bernd670**

Zitat

von th.meger
HI,

macht es nicht unnötig kompliziert. Mach eine While-Schleife, in der du beide GUIs abhandelst. Am Anfang baust du beide GUIs und schaltest die zweite das einfach auf show wenn du sie brauchst.

So long,

Mega

Dann sollte er aber auch nur mit einer Datei arbeiten!

**peethebee**

Ja, th.meger und ich sind uns einig

Ja, jonk, das sollte er tun (siehe meinen Post oben).

peethebee

dunno

Danke für eure schnellen Antworten, Jungs! Das schätze ich so an diesem Board

Das Problem ist, dass dieses Fenster mehrmals geöffnet werden soll (deswegen soll die erste GUI ja auch weiterlaufen), nur mit dem Unterschied, dass es andere Daten handelt. Kann ich nicht einfach sämtliche Variablen per ByRef an die erste Whileschleife zurückgeben ? BZW. einfach das GUICreate über die Funktion aufrufen und dann mit einer Hilfvariable und einer IF-Abfrage die Komponenten aktivieren... ok, das wird auch wieder zu kompliziert

BTW. das soll ein Instant Messenger werden Aber nur für einen kleinen, ausgewählten Kreis (meine Stufe )

LG,
Chris

**Gun-Food**

Und ?? Guis einmal bauen und dann ein- bzw ausblenden, wies gebraucht wird. Die geänderten Daten mittels

Code

GUICtrlSetData (List und ComboBoxen)
GUICtrlSetStatus (Check und Radio Boxen)

setzen und dann anzeigen.
Wo ist dann noch ein Problem?

dunno

Zitat

Original von bernd670
Hallo,

Du könntest z.B. mit Opt("GUIOnEventMode", 1) in den OnEvent-Modus schalten, dann bist du unabhängig von der Wihle-Schleife.

Das ganze sieht dann in etwa so aus:

Erste GUI:

C

Opt("GUIOnEventMode", 1)  ; Wechsle in den OnEvent Modus


#include <open_chat.func.au3>


$windowmain = GuiCreate("Titel", 220, 405,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_GROUP))
[...]


GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClickedMain")
GUISetOnEvent($list_online, "ListOnlineClicked")


[...]


While 1
    Sleep(200) ; Mache nichts
Wend




Func CloseClickedMain()
    Exit
EndFunc


Func ListOnlineClicked()    
    If GUICtrlRead($list_online) Then
        _OpenChat(GUICtrlRead($list_online))
    EndIf
EndFunc

Alles anzeigen

Zweite GUI - open_chat.func.au3:

Code

Func _OpenChat($cPartner)


[...]

	$windowpopup = GUICreate("test2", 542, 366, 221, 107, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_SIZEBOX, $WS_POPUP, $DS_SETFOREGROUND))
[...]


GUISetOnEvent($GUI_EVENT_CLOSE, "CloseClickedPopup")
GUISetOnEvent($Send_Button,"SendButtonClicked")


[...]


Func CloseClickedPopup()
    GUIDelete($windowpopup)
EndFunc


Func SendButtonClicked()
    _Send($cPartner, $Input_1)
    _Data2Array($output, 2, $cPartner)
    GUICtrlSetData($Edit_1, $output)
EndFunc

Alles anzeigen

Du mußt also für jede Message eine Funktion schreiben, Info findest du in der Hilfe unter GUI-Referenz.

Alles anzeigen

Mein Code in der ersten GUI sieht jetzt so aus:

Spoiler anzeigen

C

#include-once
#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)




$windowmain = GuiCreate("abIM08 - [URL]www.abi-08.com[/URL]", 220, 405,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_GROUP))


[...]

GUISetBkColor (0xe9e6d9)	

GUISetOnEvent($list_online, "_OpenChatClicked")
GUISetOnEvent($dropdown_status, "_ChangeStatus")
GUISetOnEvent($GUI_EVENT_CLOSE, "close")


GUISetState(@SW_SHOW)


While 1
	If $status_time = $status_time_end Then
		$status_time = _TimeToTicks(@HOUR,@MIN,@SEC)
		$status_time_end = $status_time + 0.1 * 60 * 1000

                [...]


	EndIf
	$status_time = _TimeToTicks(@HOUR,@MIN,@SEC)
WEnd


Func _OpenChatClicked()
	If GUICtrlRead($list_online) Then
        _OpenChat(GUICtrlRead($list_online))
    EndIf
	MsgBox(0, "Status", "geklickt")
EndFunc


Func _ChangeStatus()
	If GUICtrlRead($dropdown_status) <> $status_mom Then
		$status_mom = GUICtrlRead($dropdown_status)
		$row_data = _Query($mysql_connect, "UPDATE `status` SET `status` = '" & $status_mom & "' WHERE `name` = '" & $own_name & "'")
	EndIf
EndFunc


Func close()
	Exit
EndFunc


_MySQLEnd($mysql_connect)

Alles anzeigen

Das Problem ist, dass er die Funktionen nicht einmal aufruft, bis auf die close Funktion. Noch nicht mal ein Button hat ihn dazu bewegt, irgendwas zu machen... Wo liegt der Fehler ?

Gruß,
Chris

**Xenobiologist**

HI,

da sind Syntaxfehler in deinem Skript. Kannst du nicht das gesamte Skript posten mit einem kleinen Wink was es machen soll und was nicht funktioniert.

Edit: Typo

So long,

Mega

**bernd670**

Es wäre hilfreich wenn du zumindest die GUI komplett posten könntest!

dunno

klar, kann ich machen:

Spoiler anzeigen

C

pt("GUIOnEventMode", 1)
#include-once
#include <GuiConstants.au3>






$windowmain = GuiCreate("abIM08 - www.abi-08.com", 220, 405,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_GROUP))


Global $windowmain
Global $own_name = "Chris"
Global $mysql_connect = _MySQLConnect('***', '***', '***', '***') ; connectet zur MySQL Datenbank
Dim $status_time = 0, $status_time_end = 0, $status_mom = 'Online'


#include <mysql.au3>
#include <file.au3>
#include <array.au3>
#include <open_chat.func.au3>
#include <read_line.func.au3>
#include <send.func.au3>
#include <GuiEdit.au3>
#include <Date.au3>








$group_userlist = GuiCtrlCreateGroup("Userlist", 10, 60, 190, 290)
$list_online = GuiCtrlCreateList("", 30, 100, 150, 200)
$label_online = GuiCtrlCreateLabel("Online", 30, 80, 60, 20)
$dropdown_status = GuiCtrlCreateCombo("Online", 30, 370, 150, 21, $CBS_DROPDOWNLIST)
GUICtrlSetData($dropdown_status, "Kurz Abwesend")
GUICtrlSetData($dropdown_status, "Länger Weg")
GUICtrlSetData($dropdown_status, "DND")
GUICtrlSetData($dropdown_status, "Offline")
$Pic_7 = GuiCtrlCreatePic(@ScriptDir & "\header.jpg", 10, 10, 200, 40)






	$row_online = _Query($mysql_connect, "SELECT * FROM `status` WHERE `status` <> 'Offline' ") ; Holt die Daten aus der MySQL Datenbank

GUISetBkColor (0xe9e6d9)	

GUISetOnEvent($list_online, "_OpenChatClicked")
GUISetOnEvent($dropdown_status, "_ChangeStatus")
GUISetOnEvent($GUI_EVENT_CLOSE, "close")
GUISetOnEvent($testbutton, "test")


GUISetState(@SW_SHOW)


; Ab hier fängt die Aktuallisierung der Online-Liste an. Funktioniert aber nicht so richtig. Er soll nach ner halben Minute checken, ob Kontakte online / offline gegangen sind, bzw. soll die neue Liste abrufen
While 1
	If $status_time = $status_time_end Then
		$status_time = _TimeToTicks(@HOUR,@MIN,@SEC)
		$status_time_end = $status_time + 0.1 * 60 * 1000



		With $row_online
			While Not .EOF
				$online_username = .Fields("name").value
				If .Fields("status").value <> "Online" Then
					GUICtrlSetData($list_online, $online_username & ' (' & .Fields("status").value & ')')
				Else
					GUICtrlSetData($list_online, $online_username)
				EndIf


				.MoveNext
			WEnd
		EndWith


	EndIf
	$status_time = _TimeToTicks(@HOUR,@MIN,@SEC)
WEnd


Func _OpenChatClicked()
	If GUICtrlRead($list_online) Then
        _OpenChat(GUICtrlRead($list_online))
    EndIf
EndFunc


Func _ChangeStatus() ; Setzt den eigenen Status
	If GUICtrlRead($dropdown_status) <> $status_mom Then
		$status_mom = GUICtrlRead($dropdown_status)
		$row_data = _Query($mysql_connect, "UPDATE `status` SET `status` = '" & $status_mom & "' WHERE `name` = '" & $own_name & "'")
	EndIf
EndFunc


Func close()
	Exit
EndFunc


_MySQLEnd($mysql_connect)

Alles anzeigen

**bernd670**

Ich habe dir die falschen Funktionen gepostet, sorry! Für Controlelemente heisst die Funktion GuiCtrlSetOnEvent(). :tier:

Code

GUICtrlSetOnEvent($list_online, "_OpenChatClicked")
GUICtrlSetOnEvent($dropdown_status, "_ChangeStatus")
GUISetOnEvent($GUI_EVENT_CLOSE, "close", $windowmain)

dunno

hätte ich auch selbst drauf kommen können :o) danke dir!

Eine Frage: Ich kenn es aus TurboPascal und PHP, das man in einer Funktion auch noch eine Funktion anlegen kann. bei AutoIT ist das nicht der Fall, oder? Wenn das der Fall ist, dann hab ich ein Problem mit den Unterfunktionen, bzw. ich muss die Variablen Global machen, Richtig ?

Gruß,
Chris

**bernd670**

Funktion in einer Funktion geht (leider) nicht! Du kannst aber Variablen auch mit ByRef übergeben (s. Hilfe zu Func) dann kannst du sie innerhalb der Funktion verändern. Wenn du innerhalb von Event-Funktionen auf Variablen zugreifen willst geht es nur über Global.