Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

[GUI]Fenster bewegen(29 Zeilen,keine Types)

Uploader:MitgliedWestbeam
Datum/Zeit:07.01.2011 21:03:56

Screen 12
Dim Shared As Integer mx,my,wx,wy,buttons,fenster
wx=100:wy=100
Do
    Getmouse mx,my,,buttons
    Screenlock
        Cls
        If fenster=0 Then
            Line(wx,wy)-(wx+200,wy+80),15,BF
        Elseif fenster=1 Then
            Line(mx,my)-(mx+200,my+80),15,BF
            wx=mx
            wy=my
        End If
    Screenunlock
    If buttons=1 Then
        If mx>wx And my>wy And fenster=0 Then
            fenster=1
            Sleep 100
        ElseIf fenster=1 Then
            fenster=0
            Sleep 100
        End If
    End If
    Draw String(600,10),""&mx
    Draw String(600,26),""&my
    Sleep 1
Loop Until Inkey=Chr(27)
End