Ok das Problem liegt an der Umstellung von GUICtrlCreateButton nach _GUICtrlButton_Create weil nun GUIGetCursorInfo() keine Controler-ID mehr liefert. Eine Umstellung zurück auf GUICtrlCreateButton geht aber leider nicht weil ich dann ja keine Buttons mehr auf einer speziellen GUI erzeugen kann.
Beiträge von chip
-
-
Hat mir leider doch nicht weiter geholfen. Mit _GUICtrlButton_Create bekommen ich den Handle den ich in einen Array speichere. Beim einem klick mit der mittleren Maustaste hole ich mir dann mit GUIGetCursorInfo, unter anderem, die ID des Buttons. Nun möchte ich in dem Array den dazu passenden eintrag finden. Sprich ich muss entweder die ID die ich von GUIGetCursorInfo bekomme in den passenden Handle oder den Handle der beim erstellen _GUICtrlButton_Create erzeugt wird in eine ID umwandeln.
Mit ControlGetHandle bekomme ich zwar dann einen Handle erzeugt aber dieser stimmt nicht mit dem überein den _GUICtrlButton_Create zurückgegeben hat.
-
-
Hi,
wie kann bei bei GUICtrlCreateButton veranlassen das es nicht auf der letzten mit GUICreate erzeugten GUI erscheint sondern z.b. auf der vorletzten? Oder anders gefragt, wie kann ich an GUICtrlCreateButton den Handle einer GUI übergeben damit der Button auf dieser erstellt wird?
-
Hi,
wie kann ich eine Control-ID in den dazugehörigen Handler umwandeln bzw. umgekehrt?
-
Habs auch grade gesehen, ist ja mein Thread dort hehe ;).
Und ja der letzte Post dort ist die Lösung: http://www.autoitscript.com/forum/index.php?showtopic=110628&st=0&p=777355&#entry777355
-
Hier gibts extranen Bereich im Forum: https://autoit.de/index.php?page=Board&boardID=32
-
ICQ kann auch etwas Facebook: http://www.icq.com/download/icq/features/
@SchrotterCh du braucht entweder _IE.au3 oder _FF.au3.
-
@SchrotterCh ließ lieber erstmal was Facebook dir dann an Pflichten aufdrückt und überleg dann ob das wirklich willst hehe.
Spoiler anzeigen
# Besondere Bestimmungen für Entwickler/Betreiber von Anwendungen und Webseiten
Falls du ein Entwickler oder Betreiber einer Plattform-Anwendung oder einer Webseite sein solltest, welche Connect („Anwendung") oder die Plattform auf eine andere Weise verwendet (und nach deutschem Recht kein Verbraucher bist), dann gelten die folgenden Bedingungen für dich:
1. Du bist für deine Anwendung, dessen Inhalte und jegliche Verwendung der Plattform verantwortlich. Dies bedeutet auch, dass deine Anwendung sowie deine Nutzung der Plattform unseren Plattform-Richtlinien und Werberichtlinien Folge leisten muss.
2. Dein Zugriff auf Daten, die du von Facebook erhältst, sowie deren Verwendung ist auf Folgendes beschränkt:
1. Du wirst nur Daten anfordern, die du zum Betrieb deiner Anwendung benötigst.
2. Du wirst die erhaltenen Daten nur für deine Anwendung und ausschließlich in Verbindung mit Facebook verwenden.
3. Du hast Datenschutzrichtlinien oder wirst für Nutzer auf andere Weise kenntlich machen, welche Nutzerdaten du verwenden wirst und auf welche Weise diese verwendet, angezeigt oder weitergegeben werden.
4. Du wirst die Daten von Nutzern nicht auf eine Weise verwenden, darstellen oder weitergeben, die mit den Privatsphäre-Einstellungen des Nutzers unvereinbar ist.
5. Du wirst alle Daten löschen, die du von uns bezüglich jeglicher Nutzer erhalten hast, die deine Anwendung entfernen, abschalten oder sich auf andere Weise von dieser trennen, es sei denn dies ist in unseren Plattform-Richtlinien anders geregelt.
6. Du wirst sämtliche Daten löschen, die du von Facebook erhalten hast, wenn wir deine Anwendung sperren oder dich dazu auffordern.
7. Wir können von dir die Aktualisierung sämtlicher Daten, die du von uns erhalten hast, verlangen.
8. Wir können deinen Zugriff auf Daten einschränken.
9. Du wirst ohne unsere vorherige Zustimmung keine Daten, die du von uns erhältst, weiterleiten (oder die Weiterleitung dieser Daten ermöglichen).
3. Du wirst uns keine Informationen übergeben, die du eigenständig von einem Nutzer oder dessen Inhalten erfasst hast, ohne dessen Einwilligung eingeholt zu haben.
4. Du wirst es den Nutzern leicht machen deine Anwendung zu entfernen oder die Verbindung dazu aufzuheben.
5. Du wirst den Nutzern die Kontaktaufnahme mit dir leicht machen. Wir dürfen außerdem deine E-Mail-Adresse an Nutzer weitergeben.
6. Du wirst für deine Anwendung eine Kundenbetreuung anbieten.
7. Du wirst weder Werbeanzeigen dritter Parteien noch Internetsuchfelder in Facebook-Profilen oder auf Facebook-Seiten anzeigen.
8. Wir erteilen dir alle erforderlichen Rechte zur Verwendung des Codes, der APIs (zusammen mit allen erhaltenen Daten) oder der Hilfsmittel, die wir dir bereitstellen, jedoch nur in Verbindung mit deiner Anwendung.
9. Du wirst unseren Code, unsere APIs oder Hilfsmittel an niemanden verkaufen, übertragen oder eine Unterlizenz dafür erteilen.
10. Du wirst deine Beziehung zu Facebook anderen gegenüber nicht falsch darstellen.
11. Du kannst die Logos, die wir für Entwickler zur Verfügung stellen, verwenden oder eine Pressemitteilung sowie andere öffentliche Stellungnahmen herausgeben solange du unsere Plattform-Richtlinien befolgst.
12. Wir können eine Pressemitteilung veröffentlichen, in der wir unsere Beziehung zu dir beschreiben.
13. Du wirst alle geltenden Gesetze einhalten. Insbesondere wirst du (falls zutreffend) Folgendes tun:
1. eine Richtlinie für das Entfernen von verletzenden Inhalten und die Kündigung der Konten von Wiederholungstätern aufstellen, die dem „Digital Millennium Copyright Act“ entspricht.
2. den Video Privacy Protection Act (US-Gesetz zum Videodatenschutz, „VPPA“) befolgen und die ausdrückliche aktive Einwilligung von Nutzern einholen, bevor du Nutzerdaten, die dem VPPA unterliegen, an Facebook weitergibst. Du bestätigst, dass Facebook gemäß dem VPPA keinerlei Verpflichtungen hat.
14. Wir garantieren nicht, dass die Facebook-Plattform stets kostenlos sein wird.
15. Du gibst uns alle notwendigen Rechte, damit deine Anwendung auf Facebook funktionieren kann, einschließlich des Rechts, die uns von dir zur Verfügung gestellten Inhalte in Nachrichtenflüsse, Profile und Meldungen über Handlungen von Nutzern zu integrieren
16. Du gibst uns das Recht Links zu deiner Anwendung zur Verfügung zu stellen, deine Anwendung einzurahmen sowie andere Inhalte, einschließlich Werbeanzeigen, zusammen mit deiner Anwendung anzuzeigen.
17. Wir können deine Anwendung, Inhalte und Daten zu jeglichem Zweck, einschließlich kommerziellen Zwecken (wie die Bereitstellung von Werbung für bestimmte Zielgruppen und die Indexierung von Inhalten für die Suche), analysieren.
18. Um zu gewährleisten, dass deine Anwendung sicher für die Nutzer ist, können wir sie überprüfen.
19. Wir können Anwendungen erstellen, die über ähnliche Funktionen und Dienstleistungen wie deine Anwendung verfügen oder anderweitig mit deiner Anwendung konkurrieren.Und wenn es dann doch noch wilst gibt es hier die API: http://developers.facebook.com/
-
Ich werde das heute abend nochmal alles druchgehen udn ausprobieren, gab ja paar gute Ideen :).
-
ok dann ist die Sufu unnormal *lach*. Kenne kein Forum bei dem das so eingestellt ist.
-
Siehe meinen Startpost ;).
-
Also im Grunde sind es zwei Werte, einmal einen Wert "place" in der steht auf welcher Gui (sind mehrere) sich der Button befinden und als zweites einen Wert "action" indem die auszuführende Aktion angegebn ist.
-
Ich habe eben grade glaube ich das gefunden was BugFix meinte: http://www.autoitscript.com/forum/index.php?showtopic=21048
-
Hier mal kleine Verbesserung. Jetzt werden wirklich nur die Kinos angezeigt von der Stadt die man gesucht hat. Und das ganez geht auch bei Postleitzahlen das z.b. wenn man von München nur eine eingibt man trotzdem alle andere Kinos die sich auch in München befinden, aber anderen Postleitzahl haben, angezeigt werden, ohne noch alle möglichen anderen Kinos drum herrum :).
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]#cs
[/autoit] [autoit][/autoit] [autoit]
|---------------Definition---------------|
| -=Cinema=- |
|---------------Autor--------------------|
|Name : nefas |
|Datum : 23.02.2010 |
|Last Edit : 23.02.2010 |
|---------------Version------------------|
|ALPHA : / |
|BETA : 3.4 |
|RC : / |
|FINAL : / |
|----------------------------------------|
#ce
#Region ### Includes #############################################################################
#include <GuiListView.au3>
#include <IE.au3>
#include <Inet.au3>
#include <String.au3>
#include <GuiTab.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#EndRegion ### Includes ##############################################################################Region ### Variablen #############################################################################
[/autoit] [autoit][/autoit] [autoit]
Dim $Array_Cinema[10][100]
Dim $frmWait
#EndRegion ### Variablen ##############################################################################Region ### GUI MainForm ##########################################################################
[/autoit] [autoit][/autoit] [autoit]
$MainForm = GUICreate("Cinema Programm", 840, 370, 193, 115)
$Label1 = GUICtrlCreateLabel("Stadt:", 8, 8, 55, 17)
$txtCity = GUICtrlCreateInput("", 8, 25, 185, 21)
$cmdGo = GUICtrlCreateButton("Go", 194, 25, 27, 21, $WS_GROUP)
$lbl_2 = GUICtrlCreateLabel("Tag:: ", 220, 8, 40, 17)
$radio_Heute = GUICtrlCreateRadio("Heute", 250, 8, 50, 17)
$radio_Morgen = GUICtrlCreateRadio("", 350, 8, 80, 17)
$radio_UeberMorgen = GUICtrlCreateRadio("", 450, 8, 80, 17)
$radio_UeberUeberMorgen = GUICtrlCreateRadio("", 550, 8, 80, 17)
$hTab = GUICtrlCreateTab(8, 56, 825, 313)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem(" ")
$Label3 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_0 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label20 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_0 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView0 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView0, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView0, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView0, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView0, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView0, "Start Zeit", 180, 2)
$TabSheet2 = GUICtrlCreateTabItem(" ")
$Label4 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_1 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label22 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label23 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_1 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView1 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView1, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView1, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView1, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView1, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView1, "Start Zeit", 180, 2)
$TabSheet3 = GUICtrlCreateTabItem(" ")
$Label5 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_2 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label24 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label25 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_2 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView2 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView2, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView2, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView2, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView2, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView2, "Start Zeit", 180, 2)
$TabSheet4 = GUICtrlCreateTabItem(" ")
$Label6 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_3 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label26 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label27 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_3 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView3 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView3, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView3, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView3, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView3, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView3, "Start Zeit", 180, 2)
$TabSheet5 = GUICtrlCreateTabItem(" ")
$Label7 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_4 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label28 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label29 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_4 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView4 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView4, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView4, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView4, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView4, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView4, "Start Zeit", 180, 2)
$TabSheet6 = GUICtrlCreateTabItem(" ")
$Label8 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_5 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label30 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label31 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_5 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView5 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView5, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView5, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView5, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView5, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView5, "Start Zeit", 180, 2)
$TabSheet7 = GUICtrlCreateTabItem(" ")
$Label9 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_6 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label32 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label33 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_6 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView6 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView6, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView6, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView6, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView6, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView6, "Start Zeit", 180, 2)
$TabSheet8 = GUICtrlCreateTabItem(" ")
$Label10 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_7 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label34 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label35 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_7 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView7 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView7, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView7, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView7, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView7, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView7, "Start Zeit", 180, 2)
$TabSheet9 = GUICtrlCreateTabItem(" ")
$Label11 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_8 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label36 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label37 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_8 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView8 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView8, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView8, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView8, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView8, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView8, "Start Zeit", 180, 2)
$TabSheet10 = GUICtrlCreateTabItem(" ")
$Label12 = GUICtrlCreateLabel("Adresse:", 16, 96, 45, 17)
$lblAdresse_9 = GUICtrlCreateLabel("", 64, 96, 378, 17)
$Label38 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$Label39 = GUICtrlCreateLabel("Tel.:", 16, 112, 25, 17)
$lblTel_9 = GUICtrlCreateLabel("", 64, 112, 378, 17)
$ListView9 = GUICtrlCreateListView("", 16, 136, 810, 222)
_GUICtrlListView_AddColumn($ListView9, "Titel", 200, 2)
_GUICtrlListView_AddColumn($ListView9, "Laufzeit", 75, 2)
_GUICtrlListView_AddColumn($ListView9, "FSK", 200, 2)
_GUICtrlListView_AddColumn($ListView9, "Genre", 150, 2)
_GUICtrlListView_AddColumn($ListView9, "Start Zeit", 180, 2)
GUICtrlCreateTabItem("")
GUICtrlSetState($radio_Heute, $GUI_CHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### GUI MainForm ##########################################################################GUICtrlSetState($radio_Heute, $GUI_CHECKED)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $cmdGo
getSource()
Case $nMsg = $radio_Heute And BitAND(GUICtrlRead($radio_Heute), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_Morgen And BitAND(GUICtrlRead($radio_Morgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_UeberMorgen And BitAND(GUICtrlRead($radio_UeberMorgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
Case $nMsg = $radio_UeberUeberMorgen And BitAND(GUICtrlRead($radio_UeberUeberMorgen), $GUI_CHECKED) = $GUI_CHECKED
getSource()
EndSelect
WEnd#Region ### Func _Wait ############################################################################
[/autoit] [autoit][/autoit] [autoit]
Func _Wait()
GUISetState(@SW_DISABLE, $MainForm)
$frmWait = GUICreate("", 161, 34, 510, 391, BitOR($WS_MINIMIZEBOX, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Bitte warten...", 0, 0, 160, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUISetState()
EndFunc ;==>_Wait
#EndRegion ### Func _Wait #############################################################################Region ### Func getSource ########################################################################
[/autoit] [autoit][/autoit] [autoit]
Func getSource()
_Wait()
If GUICtrlRead($txtCity) = "" Then
MsgBox(0, "Warnung", "Bitte geben Sie einen Stadtnamen oder ein Plz. ein!")
Else
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView0))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView2))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView3))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView4))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView5))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView6))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView7))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView8))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView9))Dim $CityName = GUICtrlRead($txtCity)
[/autoit] [autoit][/autoit] [autoit]
Dim $i = 0
Dim $urlIf GUICtrlRead($radio_Morgen) = $GUI_CHECKED Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=1'
ElseIf GUICtrlRead($radio_UeberMorgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=2'
ElseIf GUICtrlRead($radio_UeberUeberMorgen) = $GUI_CHECKED Then
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=3'
Else
$url = 'http://www.google.de/movies?hl=de&near=' & $CityName & '&date=0'
EndIfDim $oIE = _IECreate($url, 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$sHTML = _IEBodyReadHTML($oIE)
Dim $temp_array
Dim $Array_Movie
Dim $html = _INetGetSource($oIE)
;~ Dim $html_Output = FileOpen("TEMP_HTML.txt", 10) ;for debug only
Dim $ii = 0
Dim $j = 0
_IEQuit($oIE)For $i = 0 To UBound($Array_Cinema, 1) - 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
For $ii = 0 To UBound($Array_Cinema, 2) - 1
$Array_Cinema[$i][$ii] = ""
Next
Next;~ FileWrite($html_Output, $sHTML) ;for debug only
[/autoit] [autoit][/autoit] [autoit]
$aArray1 = StringSplit($sHTML, @CRLF, 1)
;~ FileOpen("Temp_Array.txt", 10) ;for debug only
$ii = -1
For $i = 0 To UBound($aArray1) - 1
If $aArray1[$i] = "<DIV class=theater>" Then
$j = 0
$i += 2
$ii += 1
$temp_array = _StringBetween($aArray1[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf$i += 1
[/autoit] [autoit][/autoit] [autoit]
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<DIV class=info>", "<A class=")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIfElseIf $aArray1[$i] = "<DIV class=movie>" Then
[/autoit] [autoit][/autoit] [autoit]
$i += 1
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<SPAN dir=ltr>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
$j += 1
$temp_array = _StringBetween($aArray1[$i], "</NOBR>", "</SPAN>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
$i += 1
$j += 1
$temp_array = _StringBetween($aArray1[$i], "<DIV class=times>", "</DIV>")
If @error = 0 Then
$Array_Cinema[$ii][$j] = $temp_array[0]
EndIf
ElseIf StringInStr($aArray1[$i], 'date=1">') Then
$temp_array = _StringBetween($aArray1[$i], 'date=1">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_Morgen, $temp_array[0])
EndIfElseIf StringInStr($aArray1[$i], 'date=2">') Then
[/autoit] [autoit][/autoit] [autoit]
$temp_array = _StringBetween($aArray1[$i], 'date=2">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_UeberMorgen, $temp_array[0])
EndIfElseIf StringInStr($aArray1[$i], 'date=3">') Then
[/autoit] [autoit][/autoit] [autoit]
$temp_array = _StringBetween($aArray1[$i], 'date=3">', "</A></DIV>")
If @error = 0 Then
GUICtrlSetData($radio_UeberUeberMorgen, $temp_array[0])
EndIfEndIf
[/autoit] [autoit][/autoit] [autoit]
Next
Find_Cinema()
EndIf
GUIDelete($frmWait)
GUISetState(@SW_ENABLE, $MainForm)
EndFunc ;==>getSource
#EndRegion ### Func getSource #########################################################################Region ### Func Find_Cinema ######################################################################
[/autoit] [autoit][/autoit] [autoit]
Func Find_Cinema()
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView0))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView1))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView2))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView3))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView4))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView5))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView6))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView7))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView8))
_GUICtrlListView_BeginUpdate(GUICtrlGetHandle($ListView9))Dim $i_ListView = 0
[/autoit] [autoit][/autoit] [autoit]
Dim $Tab_Count = 0
Dim $String_Seperated
Dim $Temp
Dim $TempArray
Dim $j = 0
For $li = UBound($Array_Cinema, 1) - 1 To 0 Step -1
$pruef = StringInStr($Array_Cinema[$li][1], GUICtrlRead($txtCity))
If $pruef = 0 Then
_ArrayDelete($Array_Cinema, $li)
EndIf
Next
For $i = 0 To UBound($Array_Cinema, 1) - 1
$j = 0
$i_ListView = 0
_GUICtrlTab_SetItem($hTab, $Tab_Count, $Array_Cinema[$i][$j])
$j += 1
$String_Seperated = StringSplit($Array_Cinema[$i][$j], " - ", 1)
Switch $Tab_Count
Case 0
GUICtrlSetData($lblAdresse_0, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_0, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView0, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView0, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 1
GUICtrlSetData($lblAdresse_1, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_1, $String_Seperated[2])
EndIfFor $j = 2 To UBound($Array_Cinema, 2) - 1
[/autoit] [autoit][/autoit] [autoit]
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView1, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView1, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 2
GUICtrlSetData($lblAdresse_2, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_2, $String_Seperated[2])
EndIfFor $j = 2 To UBound($Array_Cinema, 2) - 1
[/autoit] [autoit][/autoit] [autoit]
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView2, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView2, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 3
GUICtrlSetData($lblAdresse_3, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_3, $String_Seperated[2])
EndIfFor $j = 2 To UBound($Array_Cinema, 2) - 1
[/autoit]
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView3, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView3, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 4
GUICtrlSetData($lblAdresse_4, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_4, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView4, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView4, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 5
GUICtrlSetData($lblAdresse_5, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_5, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView5, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView5, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 6
GUICtrlSetData($lblAdresse_6, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_6, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView6, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView6, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 7
GUICtrlSetData($lblAdresse_7, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_7, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView7, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView7, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 8
GUICtrlSetData($lblAdresse_8, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_8, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView8, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView8, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
Case 9
GUICtrlSetData($lblAdresse_9, $String_Seperated[1])
If $String_Seperated[0] = 2 Then
GUICtrlSetData($lblTel_9, $String_Seperated[2])
EndIf
For $j = 2 To UBound($Array_Cinema, 2) - 1
If Not $Array_Cinema[$i][$j] = "" Then
_GUICtrlListView_AddItem($ListView9, $Array_Cinema[$i][$j])
$j += 1
$Temp = StringTrimLeft($Array_Cinema[$i][$j], 10)
If Not $Temp = "" Then
$TempArray = StringSplit($Temp, "- ", 1)
If $TempArray[0] = 1 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[1], 1)
ElseIf $TempArray[0] = 2 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[2], 2)
ElseIf $TempArray[0] = 3 Then
$TempArray[1] = StringTrimRight($TempArray[1], 3)
$TempArray[2] = StringTrimRight($TempArray[2], 3)
$TempArray[2] = StringTrimLeft($TempArray[2], 5)
$TempArray[3] = StringTrimRight($TempArray[3], 1)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[1], 1)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[2], 2)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $TempArray[3], 3)
EndIf
EndIf
$j += 1
$Temp = StringReplace($Array_Cinema[$i][$j], " ", ";", 0)
_GUICtrlListView_AddSubItem($ListView9, $i_ListView, $Temp, 4)
$i_ListView += 1
EndIf
Next
EndSwitch
$Tab_Count = $Tab_Count + 1
Next
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView0))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView1))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView2))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView3))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView4))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView5))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView6))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView7))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView8))
_GUICtrlListView_EndUpdate(GUICtrlGetHandle($ListView9))
EndFunc ;==>Find_Cinema
#EndRegion ### Func Find_Cinema ###################################################################### -
Naja wenn garnichts Hilft muss ich halt vom Child weg kommen. Schade eigentlich.
-
qon sehr gut, hab immer mit "default" probiert hehe.
Schnitzel Wie gesagt ist es unbekannt wieviele Buttons erzeugt werden von daher kann ich die Funktionen die man für Oneventmode braucht nicht vorher festlegen. Nur mal so nebenfrage kann man bei GUICtrlSetOnEvent auch Werte an die aufgerufene Funktion übergeben?
-
Hilft mir dahingehend nicht weiter, das das Windows Startmenü ja dann trotzdem aufgeht.
-
So ist das Fenster aber leider nichtmehr als Child.
-
Hi,
ich habe folgenden Code zur überprüfung ob eine Even eingetreten ist:
Spoiler anzeigen
[autoit]While 1
[/autoit]
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUIDelete($nMsg[1])
Case $Beenden
Exit
Case $Start
_Startmenu()
EndSwitch
WendDurch ausführen der Funktion _button() wird immer ein neuer Button generiert. Den Handler des neu erstellen Buttons speichere ich mit einer Beschreibung in einem mehrdimensonalen Array:
Spoiler anzeigen
[autoit]Func _button($pfad, $name, $typ)
[/autoit]
$icon = GUICtrlCreateButton("", 100, 80, 60, 60, BitOR($BS_NOTIFY, $BS_ICON, $WS_GROUP, $WS_TABSTOP, $WS_VISIBLE, $BS_FLAT))
GUICtrlSetImage(-1, @ScriptDir & "\Icons\Ico\" & $pfad, -1)
_Array2DAdd($button, $icon & "|" & $typ & "#" & $name)
EndFunc ;==>_buttonDa die Buttons also dynamisch wären der Laufzeit erzeugt werden weiß ich nun nicht wie ich dise bei GUIGetMsg(1) abfangen soll so dass ich mir mit $nMsg[2] dann den Handler bzw. mit $nMsg[0] die Control-ID holen kann und so mir dann im Array die entsprechende aktion raussuchen kann. Ich bräuchte also eine defaultaktion die immer dann ausgeführt wird wenn
1. $nMsg[0] > 0 ist und
2. keine der Case im Select bereits positiv war.