Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249227 (10663)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Tabcontrol
Martin Klinks
| Datum:17.01.02 16:38 (boskut@gmx.net) |
hallöchen Profanis. Ich hab mit create so ein tabconrol (reiter) erzeugt und würde daruf gern einen button erzeugen,wie geht das? Ich hab schon probiert den wert den mir create zurückgegeben hat,als übergeordntes handle des buttons zu nutzen aber das klappte net?!? gruss Martin
Uwe ''Pascal'' Niemeier
| Datum:22.01.02 10:29 (Pascalxd@owl-online.de) |
Hallo Martin! Am Besten ist es, wenn du für jede "Registerkarte" einen rahmenlosen Dialog auf dem TabControl erzeugst, auf dem dann die Bedienungselemente platziert werden. Je nach gewähltem Reiter wird der aktuell gewählte Dialog ein - und der vorher aktive ausgeblendet (mit ShowWindow + EnableWindow):
    window 50,50-500,400
    usefont "MS Sans Serif",15,0,0,0,0
    setdialogfont 1
    declare Tabcontrol&,AktivesTab&,dlg%,Tab1&,Tab2&,Tab3&

    dlg%=createdialog(%hwnd,"Demo",100,100,420,320)
    Tabcontrol&=create("Tabctrl",dlg%,"Tab 1",7,10,400,200)
    inserttab(Tabcontrol&,1,"Tab 2")
    inserttab(TabControl&,2,"Tab 3")

    Tab1&=control("Dialog","",$50000003,3,25,385,155,Tabcontrol&,1,%hinstance)'Sichtbar
    Tab2&=control("Dialog","",$48000003,3,25,385,155,Tabcontrol&,1,%hinstance)'Verborgen
    Tab3&=control("Dialog","",$48000003,3,25,385,155,Tabcontrol&,1,%hinstance)'Verborgen
    ' Zur Positionierung Stil auf $50800003 setzen (erzeugt Rahmen)

    create("edit",Tab1&,"Edit auf Tab1",110,10,100,20)
    create("edit",Tab2&,"Edit auf Tab2",110,40,100,20)
    create("edit",Tab3&,"Edit auf Tab3",110,70,100,20)

    while 1
      waitinput
      if tabchanged(TabControl&)
        AktivesTab&= GetActiveTab(Tabcontrol&)

        showwindow(Tab1&,0)'--Alle verbergen
        enablewindow Tab1&,0
        showwindow(Tab2&,0)
        enablewindow Tab2&,0
        showwindow(Tab3&,0)
        enablewindow Tab3&,0

        if AktivesTab&=0'--Aktives Tab zeigen
            showwindow(Tab1&,1)
            enablewindow Tab1&,1
        elseif AktivesTab&=1
            showwindow(Tab2&,1)
            enablewindow Tab2&,1
        elseif AktivesTab&=2
            showwindow(Tab3&,1)
            enablewindow Tab3&,1
        endif

        Settext %hwnd,"Aktives Tab: "+str$(AktivesTab&)
      endif
    endwhile
HTH Pascal
Martin Klinks
| Datum: 24.01.02 21:54 (boskut@gmx.net) |
Supi,hab isch ja doch noch ne Antwort gekriegt. Werd ich morgen gleich mal ausprobieren,danke Uwe ! gruss Martin

| Zurück zur Übersicht