Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249160 (10596)
  Suchen
 Zurück zur Übersicht
 AutorThema: Tab-Control und Reiter
Frank Abbing
Datum:22.02.02 22:24 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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