TABSTRIP - Notions essentielles

Rédigé par spheris Aucun commentaire
Classé dans : apprentisssage, gambas 2, gambas 3, Tabstrip, Tutoriel Mots clés : aucun
QUELQUES ASTUCES POUR L 'UTILISATION D 'UN TABSTRIP
mytabstrip.png

Bonsoir,
Dans cette petite application à titre d 'exemple je vous propose de découvrir comment :

1)AJOUTER UN ONGLET

Il suffit d 'utiliser d 'ajouter un onglet de plus au nombre existant en saisissant ceci :

Tabstrip1.Count = Tabstrip1.count + 1


2) RENOMMER L 'ONGLET COURANT

par la commande :

Tabstrip[index de l 'onglet courant].text = nouveau texte

Dans l 'exemple , payons-nous le luxe de le modifier au travers d 'une INPUTBOX comme ceci :

DIM mybox AS String
mybox = InputBox( Entrez le nom de l 'onglet. )
TabStrip1[TabStrip1.Index].Text = mybox

3) CHOISIR L 'EMPLACEMENT DE VOS ONGLETS

par la propriété Orientation

2 radioboutons ont été mis pour l 'application.

Je vous laisse découvrir l 'exemple  :

TELECHARGER L 'EXEMPLE ICI

Pour finir, voici le code source de l 'application :

PUBLIC SUB _new()
END

PUBLIC SUB Form_Open()
ME.Center
END

PUBLIC SUB bquit_Click()
ME.Close
END

PUBLIC SUB radiotop_Click()
TabStrip1.Orientation = 0
END

PUBLIC SUB radiobottom_Click()
TabStrip1.Orientation = 1
END

PUBLIC SUB rentab_Click()
DIM mybox AS String
mybox = InputBox( Entrez le nom de l 'onglet. )
TabStrip1[TabStrip1.Index].Text = mybox
END

PUBLIC SUB addtab_Click()
TabStrip1.Count = TabStrip1.Count + 1
END