Karierte Gui

    Vllt braucht es ja einer!

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.4.0
    Author: Alizame

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

    Script Function:
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here

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

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    $hBrush = _GDIPlus_BrushCreateSolid(0xFF999999)

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("AutoItRob", 801, 601, 0,0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    GUIRegisterMsg(0x000F,"Draw")
    Sleep(100)
    Draw ()

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

    Func Draw ()
    _GDIPlus_Startup()
    $hWnd =_GDIPlus_GraphicsCreateFromHWND($Form1)
    ;###oben linien##############
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,50,750,50,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,100,750,100,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,150,750,150,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,200,750,200,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,250,750,250,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,300,750,300,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,350,750,350,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,400,750,400,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,450,750,450,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,500,750,500,$hBrush)
    ;###oben linien ende##########

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

    ;###seiten linien#############
    _GDIPlus_GraphicsDrawLine( $hWnd ,50,50,50,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,100,50,100,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,150,50,150,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,200,50,200,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,250,50,250,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,300,50,300,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,350,50,350,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,400,50,400,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,450,50,450,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,500,50,500,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,550,50,550,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,600,50,600,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,650,50,650,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,700,50,700,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,750,50,750,550,$hBrush)
    _GDIPlus_GraphicsDrawLine( $hWnd ,750, 550,50,550)
    ;###seiten linien ende########

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

    _GDIPlus_Shutdown()
    Sleep(1)
    EndFunc

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    Sleep(1)
    WEnd

    [/autoit]

    Ist nichts weltbewegendes!
    Edit\\ SIEH MEIN AVATAR AN! :D

    MfG
    Alizame

    Also,
    du hast vergessen die Ressourcen aufzuräumen.
    Und für

    [autoit]

    _GDIPlus_GraphicsDrawLine()

    [/autoit]

    benutzt man keinen Brush, sondern einen Pen

    [autoit]

    _GDIPlus_PenCreate()

    [/autoit]


    wobei man in deinem Fall gar keinen bräuchte.
    Und die Sleeps kannst du auch noch rausnehmen, weil die bringen nichts.

    Ansonsten ist es gut, so hab ich auch angefangen.(du könntest die linien ja noch etwas transparent machen)

    Schleifen sind doch was feines, oder?

    [autoit]

    Func Draw()
    _GDIPlus_Startup()
    $hWnd = _GDIPlus_GraphicsCreateFromHWND($Form1)
    For $i = 50 To 750 Step 50
    If $i <= 550 Then _GDIPlus_GraphicsDrawLine($hWnd, 50, $i, 750, $i, $hBrush)
    _GDIPlus_GraphicsDrawLine($hWnd, $i, 50, $i, 550, $hBrush)
    Next
    _GDIPlus_Shutdown()
    EndFunc ;==>Draw

    [/autoit]

    so sieht die Draw-Funktion viel cooler aus.

    Schade übrigens, dass dein Script nicht "dynamisch" kariert.

    A propos kariert!
    Ich find das klasse: