Msg Editor

  • Ich weis es ist noch nicht so Aufwändig aber ich glaube für Anfänger kann es ganz nützlich Sein

    Info: include Bug Behoben

    Lizenze:

    Spoiler anzeigen

    Freeware
    Ändern und Anbieten ohne mich zu Fragen ist Verboten
    Copyright Simon

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    HotKeySet("{F3}", "_Ok")
    HotKeySet("{F4}", "GUICtrlMakeOut")

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

    GUICreate("SB MsgBox Editor", 400, 230, 5, 5)
    GUISetBkColor(0xCDAD00)

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

    GUICtrlCreateLabel("Hier kannst du eine MsgBox erstellen fülle einfach die Felder aus als Flags gibt es nur 0,1,2,3,4,5,6,16,32,48,64 ", 10, 10, 350, 70)
    GUICtrlSetFont(-1, 16)
    ;-----------------------MsgEditor----------------------------------------------------;;
    GUICtrlCreateLabel("Titel:", 10, 100, 100)
    $b = GUICtrlCreateInput("", 150, 100, 220)
    GUICtrlCreateLabel("Text:", 10, 130, 100)
    $c = GUICtrlCreateInput("", 150, 130, 220)
    GUICtrlCreateLabel("Flag:", 10, 160, 100)
    $a = GUICtrlCreateInput("", 150, 160, 220)
    $show = GUICtrlCreateButton("Anzeigen", 10, 200, 380)
    ;---------------------MsgEditor Ende--------------------------------------------------;

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    If $msg = $show Then _Ok()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

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

    Func GUICtrlCreateMsgBox($flag,$title,$text)
    MsgBox($flag,$title,$text)

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

    EndFunc

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

    Func GUICtrlMakeOut()
    Exit
    EndFunc

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

    Func _Ok()
    $1 = GUICtrlRead($a)
    $2 = GUICtrlREad($b)
    $3 = GUICTrlRead($c)

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

    FileWrite('msgboxentestcode.au3',@CRLF & 'MsgBox('& $1 &',"'& $2 &'","'& $3 &'")')

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

    GUICtrlCreateMsgBox($1,$2,$3)
    EndFunc

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

    Ich hoffe es kann jemand gebrauchen

    Buggs bitte Melden
    Vorschläge bitte Melden

    2 Mal editiert, zuletzt von simon (7. April 2009 um 18:50)