Deutsch
Quelltexte/ Codesnippets

5 Funktionen Button

 

RudiB.
Hallo zusammen,

hier ein 5 Funktionen-Button....in Abhängigkeit von der Stelle/Postion an welcher der Button geklickt wird.

Links oben, rechts oben, links unten, rechts unten oder Mitte.
Windowstyle 24
Windowtitle "5 Funktionen Button"
Window 300,200-450,350
Declare bs#,posx%,posa%,posy%,posb%,half_b%,half_h%,neutral_b%,neutral_h%
Dim bs#,16'
Def @GetWindowRect(2) !"USER32", "GetWindowRect"
Def @ScreenToClient(2) !"USER32","ScreenToClient"
cls External("USER32","GetSysColor",15)
Var test7&=Control("BUTTON","+",$54410000,150,70,200,100,%hwnd,0,%hinstance,$0)
Var text&=Create("Text",%hwnd,"5 Funktionen-Button",140,173,140,22)

While 1

    Waitinput

    If getfocus(test7&)

        posx%=%mousex
        posy%=%mousey
        @GetWindowRect(test7&,bs#)
        @ScreenToClient(%hwnd,bs#)
        @ScreenToClient(%hwnd,bs#+8)
        half_b%=((LONG(bs#,8)-LONG(bs#,0))/2)
        half_h%=((LONG(bs#,12)-LONG(bs#,4))/2)
        neutral_b%=((LONG(bs#,8)-LONG(bs#,0))/5)
        neutral_h%=((LONG(bs#,12)-LONG(bs#,4))/5)
        posa%=Long(bs#,0)+half_b%
        posb%=Long(bs#,4)+half_h%
        setfocus(%Hwnd)
        locate 1,1

        IfNot (posx%>posa%-neutral_b%) and (posx%<posa%+neutral_b%) and (posy%>posb%-neutral_h%) and (posy%<posb%+neutral_h%)

            If (posx%<posa%) and (posy%<posb%)

                print "letzter Click auf links oben  "

            Endif

            If (posx%>posa%) and (posy%<posb%)

                print "letzter Click auf  rechts oben  "

            Endif

            If (posx%>posa%) and (posy%>posb%)

                Print "letzter Click auf rechts unten  "

            Endif

            If (posx%<posa%) and (posy%>posb%)

                Print "letzter Click auf links unten  "

            EndIf

        Else

            Print "letzter Click auf Mitte        "

        EndIf

    Endif

Endwhile

Waitinput
 
Xprofan X4

Rudolf Beske / München
vor 8 Tagen  
 




Michael
W.
Gut für Bewegungskreuze a la "Map View" oder "Google Earth". Leicht transparent und ein paar Pfeilchen dazu.
 
Alle Sprachen
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.
vor 4 Tagen  
 



Zum Quelltext


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

84 Betrachtungen

Unbenanntvor 0 min.
Manfred Bareivor 2 min.
Peter Max MüllerHeute (06:42)
Roland SchäfferGestern (07:00)
RudiB.Gestern (04:39)
Mehr...

Themeninformationen

Dieses Thema hat 2 Teilnehmer:

Michael W. (1x)
RudiB. (1x)


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


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