OVH Cloud OVH Cloud

Controle SSTAB

5 réponses
Avatar
boujidriss
Bonjour
J'ai un certain nombre de fichier "RTF" dans un dossier.
A l'aide du controle "Richtextbox", je voudrais afficher sur chacun des
onglets d'un controle "SSTAB" le contenu de chacun des fichiers "RTF".
Pour cela j'ai collé un controle "Richtextbox" sur chaque onglet d'un
controle "SSTAB".
Par les commandes qui suivent, je charge le contenu de chaque fichier "RTF"
dans chaque controle "Richtextbox".

TheFichier = FilList.List(Itab)
Form.SSTab1.Tab = Itab
SSTab1.TabCaption(Itab) = TheFichier(Itab)
Richtextbox1(Itab).LOADFILE TheFichier, rtfText
Richtextbox1(Itab).Visible = True

Le premier "Richtextbox" s'affiche bien sur le premier onglet mais les
onglets suivant restent vides.

Merci pour votre aide.

5 réponses

Avatar
Josselin JOUANNET
Bonjour,
Tu pourrait instancier dynamiquement un seul rich text box, en passant le
fichier en parametre, sur l'evenement de changement de tab.
--
Cordialement
Joss


"boujidriss" a écrit :

Bonjour
J'ai un certain nombre de fichier "RTF" dans un dossier.
A l'aide du controle "Richtextbox", je voudrais afficher sur chacun des
onglets d'un controle "SSTAB" le contenu de chacun des fichiers "RTF".
Pour cela j'ai collé un controle "Richtextbox" sur chaque onglet d'un
controle "SSTAB".
Par les commandes qui suivent, je charge le contenu de chaque fichier "RTF"
dans chaque controle "Richtextbox".

TheFichier = FilList.List(Itab)
Form.SSTab1.Tab = Itab
SSTab1.TabCaption(Itab) = TheFichier(Itab)
Richtextbox1(Itab).LOADFILE TheFichier, rtfText
Richtextbox1(Itab).Visible = True

Le premier "Richtextbox" s'affiche bien sur le premier onglet mais les
onglets suivant restent vides.

Merci pour votre aide.


Avatar
Pascal B.
Salut Bouji,

En supponsant qu'on click sur un bouton (Command1) pour remplir les Richtextbox:

Private Command1_Click()
Dim Itab as Integer
Dim TheFichier as String

For Itab=0 to SSTab.Tabs-1
TheFichier = FilList.List(Itab)
SSTab1.TabCaption(Itab) = TheFichier(Itab)
Richtextbox1(Itab).LOADFILE TheFichier, rtfText
Next Itab

End Sub

Amicalement,
Pascal B.

"boujidriss" (sansspam)> wrote in message news:
| Bonjour
| J'ai un certain nombre de fichier "RTF" dans un dossier.
| A l'aide du controle "Richtextbox", je voudrais afficher sur chacun des
| onglets d'un controle "SSTAB" le contenu de chacun des fichiers "RTF".
| Pour cela j'ai collé un controle "Richtextbox" sur chaque onglet d'un
| controle "SSTAB".
| Par les commandes qui suivent, je charge le contenu de chaque fichier "RTF"
| dans chaque controle "Richtextbox".
|
| TheFichier = FilList.List(Itab)
| Form.SSTab1.Tab = Itab
| SSTab1.TabCaption(Itab) = TheFichier(Itab)
| Richtextbox1(Itab).LOADFILE TheFichier, rtfText
| Richtextbox1(Itab).Visible = True
|
| Le premier "Richtextbox" s'affiche bien sur le premier onglet mais les
| onglets suivant restent vides.
|
| Merci pour votre aide.
Avatar
boujidriss
Merci à vous Josselin et Pascal de vous intéresser à mon probléme.
Malheureusement aucune des deux méthodes n'a pu résoudre le probléme.
Je pense qu'il n'est pas nécessaire que vous vous cassiez la téte trop
longtemps, du fait que ce probléme ne rentre pas dans un développement trés
important.
Vous etes vraiment trés sympa.

Merci encore.

"boujidriss" a écrit :

Bonjour
J'ai un certain nombre de fichier "RTF" dans un dossier.
A l'aide du controle "Richtextbox", je voudrais afficher sur chacun des
onglets d'un controle "SSTAB" le contenu de chacun des fichiers "RTF".
Pour cela j'ai collé un controle "Richtextbox" sur chaque onglet d'un
controle "SSTAB".
Par les commandes qui suivent, je charge le contenu de chaque fichier "RTF"
dans chaque controle "Richtextbox".

TheFichier = FilList.List(Itab)
Form.SSTab1.Tab = Itab
SSTab1.TabCaption(Itab) = TheFichier(Itab)
Richtextbox1(Itab).LOADFILE TheFichier, rtfText
Richtextbox1(Itab).Visible = True

Le premier "Richtextbox" s'affiche bien sur le premier onglet mais les
onglets suivant restent vides.

Merci pour votre aide.


Avatar
Jack_II
Salut
Pour info, je te signale qu'il y a un bug connu pour les SSTab :
Il ne faut pas les manipuler dans le Form_Load sinon la gestion d'onglet est
perturbée (manip graphique alors que le composant n'est pas encore affiché).

Si c'est ton cas, il te suffit de déplacer ton code dans une autre Sub

Vala
Jack_II, MVP VB
Avatar
boujidriss
Merci Jack_II
Je manipule mon "SSTAB" dans un "Sub" que j'appelle à l'aide d'un bouton de
commande.
Je laisse tomber.
Merci à tous encore une fois.


"Jack_II" a écrit :

Salut
Pour info, je te signale qu'il y a un bug connu pour les SSTab :
Il ne faut pas les manipuler dans le Form_Load sinon la gestion d'onglet est
perturbée (manip graphique alors que le composant n'est pas encore affiché).

Si c'est ton cas, il te suffit de déplacer ton code dans une autre Sub

Vala
Jack_II, MVP VB