Bild erscheint nicht in dem GUI

1. offizieller Beitrag

    Hey,
    habe grade ein wenig mein Radio Streamer erweitert. Nun wollte ich ein BIld in einem GUI erstellen..Aber es passiert nicht? Woran könnte das liegen?

    Hier das Script

    Spoiler anzeigen
    [autoit]


    #include <IE.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #NoTrayIcon
    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=..\Eigene Dateien\Downloads\Windows-media-player.ico
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    FileInstall("C:\Dokumente und Einstellungen\Dominik Schubert\Desktop\beispiel1.jpg", @TempDir & "beispiel1.jpg")
    FileInstall("C:\Dokumente und Einstellungen\Dominik Schubert\Desktop\beispiel2.jpg", @TempDir & "beispiel2.jpg")
    FileInstall("C:\Dokumente und Einstellungen\Dominik Schubert\Desktop\beispiel3.jpg", @TempDir & "beispiel3.jpg")
    Opt("TrayMenuMode", 1)
    #region ### START Koda GUI section ### Form=
    If WinExists("Radio Streamer") Then
    MsgBox(48, "Achtung", "Radio Streamer läuft bereits!")
    Exit
    Else
    $Form1 = GUICreate("Radio Streamer", 424, 112, @DesktopHeight / 2 - 100, @DesktopWidth / 2 - 250)
    $zeigen = TrayCreateItem("Zeigen")
    $hidden = TrayCreateItem("Verstecken")
    TrayCreateItem("")
    $exit = TrayCreateItem("Exit")
    GUISetBkColor(0xC0C0C0)
    $List1 = GUICtrlCreateList("", 0, 14, 125, 97)
    _IEErrorHandlerRegister()
    $oIE = _IECreateEmbedded()
    GUICtrlSetData(-1, "HardBase.fm|HouseTime.fm|TechnoBase.fm|TranceBase.fm")
    $Label1 = GUICtrlCreateLabel("Wähle ein Radio aus.", 10, 0, 106, 13)
    $Group1 = GUICtrlCreateObj($oIE, 126, 0, 297, 65)
    $Home = GUICtrlCreateButton("Hinz.", 130, 84, 47, 21, 0)
    $Spielen = GUICtrlCreateButton("Spielen", 184, 84, 47, 21, 0)
    $Stop = GUICtrlCreateButton("Save", 238, 84, 47, 21, 0)
    $Save = GUICtrlCreateButton("Credits", 292, 84, 47, 21, 0)
    $slider = GUICtrlCreateSlider(350, 84, 70, 20)
    GUICtrlSetLimit(-1, 100, 0)
    GUISetState(@SW_SHOW)
    $Form2 = GUICreate("Hinzufügen", 136, 69, @DesktopWidth / 2 - 50, 0, $WS_POPUP)
    $Label1 = GUICtrlCreateLabel("Name", 0, 0, 32, 17)
    $Label2 = GUICtrlCreateLabel("Url", 0, 22, 17, 17)
    $neuseite = GUICtrlCreateInput("", 32, 0, 101, 21)
    $neuurl = GUICtrlCreateInput("", 32, 20, 101, 21)
    $OK = GUICtrlCreateButton("OK", 2, 44, 53, 21, 0)
    $Beispiel = GUICtrlCreateButton("Beispiel", 70, 44, 53, 21, 0)
    GUISetState(@SW_HIDE)
    $Form3 = GUICreate("Beispiel1", 116, 66, @DesktopWidth / 2 - 50, 0, $WS_POPUP)
    GUICtrlCreatePic(@TempDir & "\beispiel1.jpg", 0, 0, 120, 90)
    $ok1 = GUICtrlCreateButton("Ok", 2, 46, 53, 19, 0)
    $weiter1 = GUICtrlCreateButton("------>", 60, 46, 53, 19, 0)
    GUISetState(@SW_HIDE)
    EndIf
    #endregion ### START Koda GUI section ### Form=
    TraySetState()
    GUICtrlSetData($slider, 100)

    [/autoit] [autoit][/autoit] [autoit]

    If FileExists(@TempDir & "\settings.ini") Then
    $ini = IniReadSection(@TempDir & "\settings.ini", "Radio Streamer")
    If $ini[0][0] = 0 Then
    Else
    For $i = 1 To $ini[0][0]
    GUICtrlSetData($List1, $ini[$i][0])
    Next
    EndIf
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $musik = GUICtrlRead($slider)
    SoundSetWaveVolume($musik)
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $ok1
    GUISetState(@SW_HIDE, $Form3)
    GUISetState(@SW_SHOW, $Form2)
    Case $Home
    GUISetState(@SW_HIDE, $Form1)
    GUISetState(@SW_SHOW, $Form2)
    Case $Beispiel
    GUISetState(@SW_HIDE, $Form2)
    GUISetState(@SW_SHOW, $Form3)
    Case $Spielen
    $seite = GUICtrlRead($List1)
    If $seite = "TechnoBase.fm" Then
    _IENavigate($oIE, "http://www.technobase.fm/wmplayer.php?Stream=http://DSL.TechnoBase.eu/listen-dsl.asx")
    ElseIf $seite = "HardBase.fm" Then
    _IENavigate($oIE, "http://www.hardbase.fm/wmplayer.php?Stream=http://mp3.hardbase.fm/listen.asx")
    ElseIf $seite = "HouseTime.fm" Then
    _IENavigate($oIE, "http://www.surfmusik.de/radio/housetime-fm,10832.html")
    ElseIf $seite = "TranceBase.fm" Then
    _IENavigate($oIE, "http://www.trancebase.fm/wmplayer.php?Stream=http://mp3.TranceBase.fm/listen.asx")
    Else
    _IENavigate($oIE, IniRead(@TempDir & "\settings.ini", "Radio Streamer", $seite, 0))
    EndIf
    Case $Stop
    WinSetState("Radio Streamer", "", @SW_HIDE)
    $msgbox = MsgBox(52, "Achtung", "Diese Datei kann man meines Wissens nur mit dem VLC Media Player öffnen!" & @CRLF & "Möchtest du fortfahren?")
    If $msgbox = 6 Then
    _IEAction($oIE, "saveas")
    WinSetState("Radio Streamer", "", @SW_SHOW)
    Else
    GUISetState(@SW_SHOW)
    EndIf
    Case $Save
    WinSetState("Radio Streamer", "", @SW_HIDE)
    MsgBox(48, "Credits", "Credits gehen an r1fLeX von autoit.de")
    WinSetState("Radio Streamer", "", @SW_SHOW)
    Case $OK
    GUISetState(@SW_SHOW, $Form1)
    $neueseite = GUICtrlRead($neuseite)
    $neueurl = GUICtrlRead($neuurl)
    IniWrite(@TempDir & "\settings.ini", "Radio Streamer", "Seite1", $neueseite & " | " & $neueurl)
    WinSetState("Hinzufügen", "", @SW_HIDE)
    EndSwitch
    $msg = TrayGetMsg()
    Switch $msg
    Case $exit
    ExitLoop
    Case $zeigen
    WinSetState("Radio Streamer", "", @SW_SHOW)
    WinActivate("Radio Streamer")
    Case $hidden
    WinSetState("Radio Streamer", "", @SW_HIDE)
    EndSwitch
    WEnd
    GUIDelete()
    Exit

    [/autoit]
    • Offizieller Beitrag

    Also bei mir funzt des.Überprüf mal ob des bild auch im richtigen Pfad ist.

    blubbstar stimmt.

    • Offizieller Beitrag

    Is des so schwer ? du hast des \ vergessen.

    Shit, schon wieder zu langsam .

    pee , das versuche ich natürlich auch , finde aber meist die Lösung nicht...
    Meistens sind es Kleinigkeiten die ich meist übersehe!

    • Offizieller Beitrag

    Hi!

    Ich sage nur, dass zum Programmieren auch das Suchen nach Bugs gehört. Ich und jeder hier, der die Sache ernsthaft betreibt, hat schon Stunden und Tage mit "komischen" Bugs verbracht. Man lernt aber nur, wenn man ihn selbst findet, weil man ihn dann auch versteht und in Zukunft vermeidet. Wenn dir jemand den Quelltext fixt, lernst du nichts (auch nicht, wenn du ihn vergleichst).
    Man muss halt wissen, wie ernst man es meint. Programmieren lernen ohne Aufwand und Rückschläge gibt es nicht (wie so vieles im Leben).

    peethebee

    Stimmt. Wie schon im anderen Thread gesagt : Ich werde jetzt mein Post-Verhalten ändern.
    Werde u.a. versuchen selber Bugs zufinden.