(947)  Registro

Español
Fuente/ Codesnippets

Besserer Tabcontrol Umgang

 
- Página 1 -



ByteAttack
In el HTML-Ayuda de XProfan voluntad en una Tabwechsel cada einzelne Element en una Tabwechsel ausgeblendet. Lo va aber auch viel eleganter encima una Diálogo.
Ejemplo:
KompilierenMarcaSeparación
 $P*
USERMESSAGES 16
Declare ende%,Tab&,TabLinks%,TabRechts%,TabOben%,TabUnten%
Declare Tab1Dialog&,Tab2Dialog&,Tab3Dialog&
Declare Wechsel0&,Wechsel1&,Wechsel2&
Def GetSysColor(1) !USER32,GetSysColor
Def Setactivetab(2) Sendmessage(&(1),$0130C,&(2),0)

Proc Tabgross   by iF (www.xprofan.com)

    Parameters Reiter%
    STRUCT RECT=LEFT&,TOP&,RIGHT&,BOTTOM&
    DECLARE MEINREC#
    DIM MEINREC#,RECT
    SENDMESSAGE(TAB&,$1300+10,Reiter%,ADDR(MEINREC#))
    TabLinks%=MEINREC#.LEFT&
    TabRechts%=MEINREC#.RIGHT&
    TabOben%=MEINREC#.TOP&
    TabUnten%=MEINREC#.BOTTOM&
    DISPOSE MEINREC#

EndProc

Proc Elemente  Irgendwelche Element zum Testen

    Create(Edit,Tab1Dialog&,Eingabe 1,10,10,100,24)
    Create(Edit,Tab1Dialog&,Eingabe 2,10,40,100,24)
    Create(Edit,Tab1Dialog&,Eingabe 3,10,70,100,24)
    Create(Button,Tab1Dialog&,Button 1,120,10,100,24)
    Create(Button,Tab1Dialog&,Button 2,120,40,100,24)
    Create(Button,Tab1Dialog&,Button 3,120,70,100,24)
    Create(Edit,Tab2Dialog&,Eingabe 4,100,10,100,24)
    Create(Edit,Tab2Dialog&,Eingabe 5,100,40,100,24)
    Create(Edit,Tab2Dialog&,Eingabe 6,100,70,100,24)
    Create(Button,Tab2Dialog&,Button 4,210,10,100,24)
    Create(Button,Tab2Dialog&,Button 5,210,40,100,24)
    Create(Button,Tab2Dialog&,Button 6,210,70,100,24)
    Create(Edit,Tab3Dialog&,Eingabe 7,200,10,100,24)
    Create(Edit,Tab3Dialog&,Eingabe 8,200,40,100,24)
    Create(Edit,Tab3Dialog&,Eingabe 9,200,70,100,24)
    Create(Button,Tab3Dialog&,Button 7,310,10,100,24)
    Create(Button,Tab3Dialog&,Button 8,310,40,100,24)
    Create(Button,Tab3Dialog&,Button 9,310,70,100,24)

EndProc

Proc MakeTab  Erstellt Tabs & Controls

    Tab&=Create(TabCtrl,%hwnd,Reiter 1,5,5,700,500)
    InsertTab(Tab&,1,Reiter 2)
    InsertTab(Tab&,2,Reiter 3)
    Tabgross 0
    Tab1Dialog&=Control(DIALOG,,$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hinstance)
    Tab2Dialog&=Control(DIALOG,,$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hinstance)
    Tab3Dialog&=Control(DIALOG,,$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hinstance)
    ShowWindow(Tab2Dialog&,0)
    ShowWindow(Tab3Dialog&,0)
    Elemente

EndProc

Proc TabWechsel

    ShowWindow(Tab1Dialog&,GetActiveTab(Tab&)=0)
    ShowWindow(Tab2Dialog&,GetActiveTab(Tab&)=1)
    ShowWindow(Tab3Dialog&,GetActiveTab(Tab&)=2)

EndProc

SetTrueColor 1
WindowStyle 24
WindowTitle Tab´s
Window ((%maxX/2)-400),((%maxY/2)-300)-800,600
UseFont Verdana,16,0,1,0,0
SetDialogFont 1
CLS GetSysColor(15)
MakeTab
Wechsel0&=Create(Button,%hwnd,Reiter 1,10,530,100,24)
Wechsel1&=Create(Button,%hwnd,Reiter 2,120,530,100,24)
Wechsel2&=Create(Button,%hwnd,Reiter 3,230,530,100,24)

WhileNot ende%

    WaitInput

    If %Umessage=16  X

        ende%=1

    ElseIf TabChanged(Tab&)  TabClicked

        Tabwechsel

    ElseIf Clicked(Wechsel0&)  Programmierbarer Wechsel

        Setactivetab(Tab&,0)
        Tabwechsel

    ElseIf Clicked(Wechsel1&)

        Setactivetab(Tab&,1)
        Tabwechsel

    ElseIf Clicked(Wechsel2&)

        Setactivetab(Tab&,2)
        Tabwechsel

    EndIf

Wend
 
Website:  [...] 
Facebook:  [...] 
21.11.2007  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



« Dieser Contribución wurde como Solución gekennzeichnet. »


Jörg
Sellmeyer

KompilierenMarcaSeparación
 $P*
USERMESSAGES 16
Declarar ende%,Tab&,TabLinks%,TabRechts%,TabOben%,TabUnten%
Declarar Tab1Dialog&,Tab2Dialog&,Tab3Dialog&
Declarar Wechsel0&,Wechsel1&,Wechsel2&
Def GetSysColor(1) !"USER32","GetSysColor"
Def Setactivetab(2) SendMessage(&(1),$0130C,&(2),0)

Proc Tabgross'by IF (www.XProfan.com)

    Parámetros Reiter%
    STRUCT RECT=LEFT&,TOP&,RIGHT&,BOTTOM&
    DECLARE MEINREC#
    DIM MEINREC#,RECT
    SENDMESSAGE(TAB&,$1300+10,Reiter%,ADDR(MEINREC#))
    TabLinks%=MEINREC#.LEFT&
    TabRechts%=MEINREC#.RIGHT&
    TabOben%=MEINREC#.TOP&
    TabUnten%=MEINREC#.BOTTOM&
    DISPOSE MEINREC#

ENDPROC

Proc Elemente' Irgendwelche Element para Testen

    Crear("Edit",Tab1Dialog&,"Eingabe 1",10,10,100,24)
    Crear("Edit",Tab1Dialog&,"Eingabe 2",10,40,100,24)
    Crear("Edit",Tab1Dialog&,"Eingabe 3",10,70,100,24)
    Crear("Button",Tab1Dialog&,"Button 1",120,10,100,24)
    Crear("Button",Tab1Dialog&,"Button 2",120,40,100,24)
    Crear("Button",Tab1Dialog&,"Button 3",120,70,100,24)
    Crear("Edit",Tab2Dialog&,"Eingabe 4",100,10,100,24)
    Crear("Edit",Tab2Dialog&,"Eingabe 5",100,40,100,24)
    Crear("Edit",Tab2Dialog&,"Eingabe 6",100,70,100,24)
    Crear("Button",Tab2Dialog&,"Button 4",210,10,100,24)
    Crear("Button",Tab2Dialog&,"Button 5",210,40,100,24)
    Crear("Button",Tab2Dialog&,"Button 6",210,70,100,24)
    Crear("Edit",Tab3Dialog&,"Eingabe 7",200,10,100,24)
    Crear("Edit",Tab3Dialog&,"Eingabe 8",200,40,100,24)
    Crear("Edit",Tab3Dialog&,"Eingabe 9",200,70,100,24)
    Crear("Button",Tab3Dialog&,"Button 7",310,10,100,24)
    Crear("Button",Tab3Dialog&,"Button 8",310,40,100,24)
    Crear("Button",Tab3Dialog&,"Button 9",310,70,100,24)

ENDPROC

Proc MakeTab' Erstellt Tabs & Controls

    Tab&=Crear("TabCtrl",%hwnd,"Reiter 1",5,5,700,500)
    InsertTab(Tab&,1,"Reiter 2")
    InsertTab(Tab&,2,"Reiter 3")
    Tabgross 0
    Tab1Dialog&=Control("DIÁLOGO","",$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hInstance)
    Tab2Dialog&=Control("DIÁLOGO","",$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hInstance)
    Tab3Dialog&=Control("DIÁLOGO","",$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hInstance)
    ShowWindow(Tab2Dialog&,0)
    ShowWindow(Tab3Dialog&,0)
    Elemente

ENDPROC

Proc TabWechsel

    ShowWindow(Tab1Dialog&,GetActiveTab(Tab&)=0)
    ShowWindow(Tab2Dialog&,GetActiveTab(Tab&)=1)
    ShowWindow(Tab3Dialog&,GetActiveTab(Tab&)=2)

ENDPROC

SetTrueColor 1
Ventana de Estilo 24
Título de la ventana "Tabs"
Ventana ((%maxX/2)-400),((%maxY/2)-300)-800,600
UseFont "Verdana",16,0,1,0,0
SetDialogFont 1
CLS GetSysColor(15)
MakeTab
Wechsel0&=Crear("Button",%hwnd,"Reiter 1",10,530,100,24)
Wechsel1&=Crear("Button",%hwnd,"Reiter 2",120,530,100,24)
Wechsel2&=Crear("Button",%hwnd,"Reiter 3",230,530,100,24)

Sinestar encargado ende%

    WaitInput

    If %Umessage=16'X

        ende%=1

    ElseIf TabChanged(Tab&)'TabClicked

        Tabwechsel

    ElseIf Clicked(Wechsel0&)'Programmierbarer Wechsel

        Setactivetab(Tab&,0)
        Tabwechsel

    ElseIf Clicked(Wechsel1&)

        Setactivetab(Tab&,1)
        Tabwechsel

    ElseIf Clicked(Wechsel2&)

        Setactivetab(Tab&,2)
        Tabwechsel

    EndIf

Wend
 
XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
23.06.2018  ▲
 




Jörg
Sellmeyer
Usted puede Usted todavía unos pocos Zeilen sparen:
KompilierenMarcaSeparación
Proc TabWechsel

    ShowWindow(Tab1Dialog&,GetActiveTab(Tab&)=0)
    ShowWindow(Tab2Dialog&,GetActiveTab(Tab&)=1)
    ShowWindow(Tab3Dialog&,GetActiveTab(Tab&)=2)

EndP
>

Dann braucht el en el Ifstruktur nada mehr aufzutauchen.
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
21.11.2007  ▲
 




Jörg
Sellmeyer

KompilierenMarcaSeparación
 $P*
USERMESSAGES 16
Declarar ende%,Tab&,TabLinks%,TabRechts%,TabOben%,TabUnten%
Declarar Tab1Dialog&,Tab2Dialog&,Tab3Dialog&
Declarar Wechsel0&,Wechsel1&,Wechsel2&
Def GetSysColor(1) !"USER32","GetSysColor"
Def Setactivetab(2) SendMessage(&(1),$0130C,&(2),0)

Proc Tabgross'by IF (www.XProfan.com)

    Parámetros Reiter%
    STRUCT RECT=LEFT&,TOP&,RIGHT&,BOTTOM&
    DECLARE MEINREC#
    DIM MEINREC#,RECT
    SENDMESSAGE(TAB&,$1300+10,Reiter%,ADDR(MEINREC#))
    TabLinks%=MEINREC#.LEFT&
    TabRechts%=MEINREC#.RIGHT&
    TabOben%=MEINREC#.TOP&
    TabUnten%=MEINREC#.BOTTOM&
    DISPOSE MEINREC#

ENDPROC

Proc Elemente' Irgendwelche Element para Testen

    Crear("Edit",Tab1Dialog&,"Eingabe 1",10,10,100,24)
    Crear("Edit",Tab1Dialog&,"Eingabe 2",10,40,100,24)
    Crear("Edit",Tab1Dialog&,"Eingabe 3",10,70,100,24)
    Crear("Button",Tab1Dialog&,"Button 1",120,10,100,24)
    Crear("Button",Tab1Dialog&,"Button 2",120,40,100,24)
    Crear("Button",Tab1Dialog&,"Button 3",120,70,100,24)
    Crear("Edit",Tab2Dialog&,"Eingabe 4",100,10,100,24)
    Crear("Edit",Tab2Dialog&,"Eingabe 5",100,40,100,24)
    Crear("Edit",Tab2Dialog&,"Eingabe 6",100,70,100,24)
    Crear("Button",Tab2Dialog&,"Button 4",210,10,100,24)
    Crear("Button",Tab2Dialog&,"Button 5",210,40,100,24)
    Crear("Button",Tab2Dialog&,"Button 6",210,70,100,24)
    Crear("Edit",Tab3Dialog&,"Eingabe 7",200,10,100,24)
    Crear("Edit",Tab3Dialog&,"Eingabe 8",200,40,100,24)
    Crear("Edit",Tab3Dialog&,"Eingabe 9",200,70,100,24)
    Crear("Button",Tab3Dialog&,"Button 7",310,10,100,24)
    Crear("Button",Tab3Dialog&,"Button 8",310,40,100,24)
    Crear("Button",Tab3Dialog&,"Button 9",310,70,100,24)

ENDPROC

Proc MakeTab' Erstellt Tabs & Controls

    Tab&=Crear("TabCtrl",%hwnd,"Reiter 1",5,5,700,500)
    InsertTab(Tab&,1,"Reiter 2")
    InsertTab(Tab&,2,"Reiter 3")
    Tabgross 0
    Tab1Dialog&=Control("DIÁLOGO","",$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hInstance)
    Tab2Dialog&=Control("DIÁLOGO","",$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hInstance)
    Tab3Dialog&=Control("DIÁLOGO","",$54000000,TabLinks%,TabOben%+TabUnten%,width(Tab&)-(TabLinks%*3),height(Tab&)-(TabUnten%+(TabOben%*3)),Tab&,2000,%hInstance)
    ShowWindow(Tab2Dialog&,0)
    ShowWindow(Tab3Dialog&,0)
    Elemente

ENDPROC

Proc TabWechsel

    ShowWindow(Tab1Dialog&,GetActiveTab(Tab&)=0)
    ShowWindow(Tab2Dialog&,GetActiveTab(Tab&)=1)
    ShowWindow(Tab3Dialog&,GetActiveTab(Tab&)=2)

ENDPROC

SetTrueColor 1
Ventana de Estilo 24
Título de la ventana "Tabs"
Ventana ((%maxX/2)-400),((%maxY/2)-300)-800,600
UseFont "Verdana",16,0,1,0,0
SetDialogFont 1
CLS GetSysColor(15)
MakeTab
Wechsel0&=Crear("Button",%hwnd,"Reiter 1",10,530,100,24)
Wechsel1&=Crear("Button",%hwnd,"Reiter 2",120,530,100,24)
Wechsel2&=Crear("Button",%hwnd,"Reiter 3",230,530,100,24)

Sinestar encargado ende%

    WaitInput

    If %Umessage=16'X

        ende%=1

    ElseIf TabChanged(Tab&)'TabClicked

        Tabwechsel

    ElseIf Clicked(Wechsel0&)'Programmierbarer Wechsel

        Setactivetab(Tab&,0)
        Tabwechsel

    ElseIf Clicked(Wechsel1&)

        Setactivetab(Tab&,1)
        Tabwechsel

    ElseIf Clicked(Wechsel2&)

        Setactivetab(Tab&,2)
        Tabwechsel

    EndIf

Wend
 
XProfan X4
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
23.06.2018  ▲
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

7.210 Views

Untitledvor 0 min.
Axel Berse08.11.2023
Sven Bader14.03.2023
Normann Strübli04.02.2023
RudiB.02.10.2022
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

Jörg Sellmeyer (2x)
ByteAttack (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie