Français
Source/ Codesnippets

Erstellen Tabcontrol

 

KompilierenMarqueSéparation
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
TabControl erstellen
seterrorlevel 2
window 50,50-400,300
declare a%,a$,End%,color&,color%,füllen%,Tab%[9],Tab%,Tab#
def @GetColor(1) !USER32,GetSysColor
def @DrawEdge(4) !USER32,DrawEdge
settruecolor 1

proc SetTab

    parameters Xpos%,Ypos%,Breite%,Höhe%,Namen$,Vorgabe%,Mode%
    windowstyle 512
    Tab%[0]=createwindow(%hwnd,Setup-Test,Xpos%,Ypos%,Breite%,Höhe%)

    if Mode%

        Tab%[9]=@control(SysTabControl32,,$50010200,7,11,sub(Breite%,20),sub(Höhe%,80),Tab%[0],999,%HInstance)

    else

        Tab%[9]=@control(SysTabControl32,,$50010000,7,11,sub(Breite%,20),sub(Höhe%,80),Tab%[0],999,%HInstance)

    endif

    dim Tab#,250
    long Tab#,200=1
    a%=0
    a$=@substr$(Namen$,1,,)

    while len(a$)

        string Tab#,mul(a%,20)=a$
        long Tab#,212=add(mul(a%,20),Tab#)
        sendmessage(Tab%[9],4871,a%,add(Tab#,200))
        inc a%
        a$=@substr$(Namen$,add(a%,1),,)

        if Mode%

            Tab%[a%]=control(Dialog,,$50001003,1,42,sub(Breite%,24),sub(Höhe%,125),Tab%[9],1001,%hinstance)

        else

            Tab%[a%]=control(Dialog,,$50001003,1,21,sub(Breite%,24),sub(Höhe%,105),Tab%[9],1001,%hinstance)

        endif

        @showwindow(Tab%[a%],0)

    endwhile

    sendmessage(Tab%[9],4874,sub(sendmessage(Tab%[9],4868,0,0),1),add(Tab#,230))
    startpaint Tab%[9]
    Color%=4
    füllen%=1
    case @lt(Color%,30):Color&=@GetColor(color%)
    case @equ(Color%,30):Color&=@rgb(255,0,0)
    case @equ(Color%,31):Color&=@rgb(0,255,0)
    case @equ(Color%,32):Color&=@rgb(0,0,255)
    usebrush füllen%,color&
    usepen 0,1,color&
    rectangle long(Tab#,238),long(Tab#,242)-Breite%,0
    endpaint
    sendmessage(Tab%[9],4876,sub(Vorgabe%,1),0)
    Tab%=Vorgabe%
    showwindow(Tab%[Tab%],5)
    dispose Tab#

endproc

proc GetTab

    casenot equ(%message,78):return

    ifnot equ(add(sendmessage(Tab%[9],4875,0,0),1),Tab%)

        showwindow(Tab%[Tab%],0)
        Tab%=add(sendmessage(Tab%[9],4875,0,0),1)
        showwindow(Tab%[Tab%],5)

    endif

endproc

proc karte_1

    createbutton(Tab%[1],Karte1,10,50,50,20)

endproc

proc karte_2

    createbutton(Tab%[2],Karte2,110,50,50,20)

endproc

proc karte_3

    createbutton(Tab%[3],Karte3,210,50,50,20)

endproc

proc karte_4

    createbutton(Tab%[4],Karte4,10,30,50,40)

endproc

proc karte_5

    createbutton(Tab%[5],Karte5,110,30,50,40)

endproc

proc karte_6

    createbutton(Tab%[6],Karte6,210,30,50,40)

endproc

usefont ms sans serif,15,7,0,0,0
setdialogfont 1
SetTab 150,150,300,200,Test 1,Test 2,Nochn Test,Test 4,Und noch einer,Test 6,1,1
settext Tab%[0],Setup
a%=createbutton(Tab%[0],Ende,50,150,50,20)
karte_1
karte_2
karte_3
karte_4
karte_5
karte_6

whilenot End%

    getmessage
    GetTab
    locate 1,1
    print Aktuelle Karte:,Tab%

    if getfocus(a%)

        destroywindow(Tab%[0])
        End%=1

    endif

endwhile

Print
a class=s4 href='./../../funktionsreferenzen/XProfan/ende/'>Ende waitkey
 
15.07.2007  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

1.749 Views

Untitledvor 0 min.
Georg Teles26.04.2023
Sven Bader13.03.2023
Normann Strübli04.02.2023
Peter Max Müller07.10.2017
plus...

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie