Italia
Fonte/ Codesnippets

Fenster Scrollen

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster scrollen
Def @Scrollwindow(5) !USER32,ScrollWindow
Declare Schließen&,Rect#,Ton&,Scrollinfo#
Windowstyle 31
Windowtitle Fenster scrollen
Window 0,0-400,400
Let Schließen&=@Createbutton(%Hwnd,Fenster dicht!,20,100,120,30)
Let Ton&=@Createbutton(%Hwnd,Beep,20,360,120,30)

While 0=0

    Waitinput

    If %Scankey=39

        Dim Rect#,16
        Long Rect#,0=0
        Long Rect#,4=0
        Long Rect#,8=%Maxx
        Long Rect#,12=%Maxy
        @Scrollwindow(%Hwnd,+10,0,0,Rect#)
        Dispose Rect#

    Elseif %Scankey=37

        Dim Rect#,16
        Long Rect#,0=0
        Long Rect#,4=0
        Long Rect#,8=%Maxx
        Long Rect#,12=%Maxy
        @Scrollwindow(%Hwnd,-10,0,0,Rect#)
        Dispose Rect#

    Elseif %Scankey=40

        Dim Rect#,16
        Long Rect#,0=0
        Long Rect#,4=0
        Long Rect#,8=%Maxx
        Long Rect#,12=%Maxy
        @Scrollwindow(%Hwnd,0,10,0,Rect#)
        Dispose Rect#

    Elseif %Scankey=38

        Dim Rect#,16
        Long Rect#,0=0
        Long Rect#,4=0
        Long Rect#,8=%Maxx
        Long Rect#,12=%Maxy
        @Scrollwindow(%Hwnd,0,-10,0,Rect#)
        Dispose Rect#

    Elseif @Getfocus(Ton&)

        Beep 1

    Elseif @Getfocus(Schließen&)

        End

    Endif

 href='./../../funktionsreferenzen/xprofan/wend/'>Wend

 
15.07.2007  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

3.251 Views

Untitledvor 0 min.
Thomas Zielinski12.11.2021
H.Brill10.02.2018
Langer09.04.2017
Joerg25.04.2016
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie