Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249160 (10596)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Tab-Control und Reiter
Frank Abbing
| Datum:22.02.02 22:24 (frankabbing@12move.de) |
Hallo, hab' einige Fragen zu den Reitern eines Tab-Control. Wie entferne ich einen Reiter wieder ? Wie kann ich feststellen, wieviele Reiter noch existieren ? Wie kann ich einen Reiter umbenennen ? Weiß jemand, ob das geht ? Gruß, Frank
Uwe Beisler
| Datum:23.02.02 00:47 (uwe.beisler@t-online.de) |
Hallo, ich habe zwar noch keine Erfahrungen mit TabControls aber auf der Hompage von mein Namesvetter (der mir auch schon oft weitergeholfen hat) http://members.aol.com/pascalxd gibt es eine unter - Profan -Infos-Krimskrams-Routinen.zip. Die würde ich mir mal anschauen. Der Link lohnt sich auf jeden Fall. Uwe
Uwe ''Pascal'' Niemeier
| Datum:23.02.02 09:21 (Pascalxd@owl-online.de) |
Hallo Leute! Danke für die Werbung ;-) ,aber die Beipiele stammen noch aus der Zeit, als TabControls noch nicht von Profan direkt unterstützt wurden. Alles, was Profan bei TabControls nicht selbst kann, lässt sich mit Messages erreichen (siehe Win32.hlp unter TabCotrols). Beispiel:
    window 50,50-400,400
    declare Tab#,Tab&

    struct Tab = Mask&,Res1&,Res2&,Text&,TextMax&,Ico&,Text$(100)
    dim Tab#,Tab
    Tab#.Mask&   =1'--------TCIF_TEXT
    Tab#.Text&   =Tab#+24'--Offset zum Textpuffer
    Tab#.TextMax&=100

    Tab&=Create("Tabctrl",%hwnd,"Hoppe",50,50,200,200)'--Control + 1.Reiter
    inserttab(Tab&,1,"Hoppe")'---------------------------2.Reiter

    waitkey

    Tab#.Text$="Reiter"'------------neuer Text für 1. Reiter (Index 0)
    sendmessage(Tab&,4870,0,Tab#)'--TCM_SETITEM -> 3. Parameter Index

    sendmessage(Tab&,4872,1,Tab#)'--TCM_DELETEITEM -> 3. Parameter Index

    dispose Tab#
    waitkey
HTH Pascal
Frank Abbing
| Datum: 23.02.02 11:04 (frankabbing@12move.de) |
Hallo, danke, mal wieder... Die Anzahl der Reiter kann ich dann mit... anzahl&=SendMessage(Tab&,$1304,0,0) ...ermitteln. Ich glaub', jetzt hab' ich's kapiert... Gruß und schönes Wochenende, Frank

| Zurück zur Übersicht