Beiträge von Conan10

  • Bild als Button

    Hier mal ein kompletter Beispielcode. Kann sein, dass es an dem Style liegt. Habe noch nie verstanden wofür manche gut sind

    Spoiler anzeigen
    [autoit]

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

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

    #Region
    $Form1 = GUICreate("Form1", 625, 445, 192, 124)
    $Pic1 = GUICtrlCreatePic("FilePath", 40, 152, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    #EndRegion

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic1
    MsgBox(0,"","Hi")
    EndSwitch
    WEnd

    [/autoit]

  • Bild als Button

    Einfach dann die Deklarationsvariable in die Switch-Abfrage mitreinschreiben.
    Also so sollte es irgendwie aussehen :

    [autoit]

    $Bildbutton=GUICtrlCreatePic(...)
    ...
    While 1
    $MsG=GuiGetMsg()
    Switch $MsG
    Case $Bildbutton
    MsgBox(0,"","Bild wurde geklickt")
    EndSwitch
    WEnd

    [/autoit]

    Edit: 1 Hinzugefügt für Hulle

  • IM

    Könnte es sein, dass da einfach zu viele TCPStartUp´s sind. Da eine Verbindung ja meine ich immer erst geschlossen werden muss oder so.

    Vielleicht hilft es mal ein TCPShutdown einzufügen

  • RichEdit - Scroll To Last Line

    Guten Abend alle zusammen

    Bräuchte mal ein bisschen Hilfe bei progandy´s richedit-udf.
    Ich kriege es einfach nicht hin, dass der richedite zur letzten zeile scrollt.
    Vielleicht hat einer eine Idee.
    Auch wäre es schon, wenn mir einer erklären könnte, wie man mit Linkautodetected auch den Link öffenen kann.

    Danke schonmal ;)

  • Infos zum Umzug

    Ich freue mich schon drauf. Seit ich mit Autoit arbeite, bin ich hier und wie schon immer gesagt: Es ist die wohl beste Community im deutschen Bereich. Wahrscheinlich schlagen wir sogar Gullí:Board in der Schnelligkeit und Zuverlässigkeit.

    Ein herzlichen Dank an das Team und vorallem auch die Mitglieder, die Autoit.de und Autoit allgemein zu dem gemacht haben, was es heute ist. Aber auch an die Spender (kann leider noch nichts spenden), die dieses Forum weiter bringen.

    Es kann eigentlich nicht besser werden ;)


    Auf weitere Jahre, kann ich nur sagen. ;)

  • Wort abgleichn und Information widergeben

    Eine Möglichkeit:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GUIListBox.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\GUI\GUI'S\SceneLexicon.kxf
    $SceneLexicon = GUICreate("Lexicon", 381, 104, 192, 124, BitOR($WS_POPUP,$WS_CLIPSIBLINGS))
    GUISetBkColor(0x000000)
    $wort = GUICtrlCreateInput("Lexicon by Brokolie", 16, 8, 145, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
    GUICtrlSetColor(-1, 0x0080FF)
    $Start = GUICtrlCreateButton("Start", 216, 8, 113, 33, 0)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0080FF)
    GUICtrlSetBkColor(-1, 0x646464)
    $Close = GUICtrlCreateButton("Close", 216, 48, 113, 33, 0)
    GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0080FF)
    GUICtrlSetBkColor(-1, 0x696969)
    GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0080FF)
    $Icon1 = GUICtrlCreateIcon("C:\Users\Brokolie\Desktop\verschiedenes\AutoIt\icons\Toolbox.ico", 0, 128, 32, 64, 64, BitOR($SS_NOTIFY,$WS_GROUP))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $Close
    Exit
    Case $Start
    _Check()
    EndSwitch
    WEnd

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

    Func _Check()
    $file=FileRead("datei.txt")
    $lines=StringSplit($file,@CRLF)
    For $i = 1 to $lines[0]
    $Split=StringSplit($lines[$i],"|")
    If $Split[1] = GUICtrlRead($wort) Then
    MsgBox(0,"Ergebnis",$Split[2])
    ExitLoop
    Else
    MsgBox(0,"","Ende")
    ExitLoop
    EndIf
    Next
    EndFunc

    [/autoit]

    Die Datei müsste dann so aussehen:
    Suchwort|Erklärung
    Suchwort2|Erklärung2
    ...

    ;)

  • [Suche] Bestimmte Songs

    Hi zusammen,

    Ich suche etwas und zwar für unseren Englischunterricht einen Song, der einem etwas über die englische Grammatik lehrt.

    Also z.b. einen Song, wo jemand If-Clauses, das Future, ... verwendet


    Bräuchte es bis Morgen. Ich weiß es ist knapp, aber vielleicht gibt es ja doch einen dem ein Lied einfällt.