Propriété ".Caption" des objets des Forms

Question

Bonjour le forum, 

J'ai con&#231;u un projet constitu&#233; de plusieurs formes qui comportent chacune plusieurs objets (ComboBox, ListBox, CheckBox, ScrolBar...) 

Je souhaiterais nommer ces objets par l'interm&#233;diaire d'un tableau. 

Exemple -> 
Form1.CommandButton.caption=Tab(i,j) 
avec i l'indice de langue et j, le nom de l'objet. 

Imaginons : 
- Tab(1,53)="continuer" en fran&#231;ais 
- Tab(2,53)="continuar" en Espagnol 
- Tab(3,53)="continu" en Anglais 
etc.. 

Mon code ne fonctionne pas et le fichier log m'indique le message suivant : 
"La propri&#233;t&#233; caption dans CommandButton doit &#234;tre une chaine entre guillemets" 

Dois je comprendre que je dois n&#233;cessairement tapper en dur le texte des objets. 
Ou puis je m'en sortir autrement ? 

Bien cordialement 

Philippe

Sniper_Vgaerr · Answer

Salut,

Essaye de faire comme &#231;&#224; :
Dim Valeur as string
Valeur = Tab(i,j)
Form1.CommandButton.Caption = Valeur

@+

PCPT · Answer

salut,
plus rapidement qu'en passant par une variable, je te propose plut&#244;t :
Form1.CommandButton.Caption=CStr(Tablo(i,j))

en effet, d'abord enregistrer en String, mais surtout, ne pas utiliser un tableau nomm&#233; TAB qui est un mot r&#233;serv&#233; 
PCPT

PhilippeROB · Answer

Je vous remercie de bien avoir voulu me répondre. J'avais envisagé vos deux réponses avant de soumettre une question si banale mais aucune ne débloque le programme.

Il semble, d'après le message du fichier Log, que je sois obligé d'écrire le texte entre deux guillemets et que je ne puisse ni passer par une variable intermédiaire, ni forcer la chaine de caractères par la fonction convert string. Pour tout dire, cela m'étonne beaucoup.

Philippe

PCPT · Answer

salut [VB6] pas d'erreur chez moi. essai ce code, s'il fonctionne, c'est que ton erreur vient d'ailleurs. peut-être la déclaration de ton type de tableau.... 'ma Form1 contient 6 CommandBoutton1 indexés de 0 à 5 Dim TabLangues(1, 2) As String ' ' Private Sub Form_Load() 'init tab TabLangues(0, 0) = "boutton1" TabLangues(0, 1) = "boutton2" TabLangues(0, 2) = "fermer" TabLangues(1, 0) = "chk 1" TabLangues(1, 1) = "hello" TabLangues(1, 2) = Me.Caption 'nomme Dim i As Integer For i = 0 To 5 If i < 3 Then If i <> 0 Then Command1(i).Caption = TabLangues(0, Int (i / 2) + 1) Else: Command1(i).Caption = TabLangues(0, 0): End If Else If i <> 5 Then Command1(i).Caption = TabLangues(1, Int (i / 2) - 1) Else: Command1(i).Caption = TabLangues(1, 2): End If End If Next i End Sub Coloration syntaxique automatique [AFCK] PCPT

acecel · Answer

essaye peut &#234;tre ca : 

Form1.CommandButton.caption=chr(34) & Tab(i,j)  & chr(34)

Propriété ".Caption" des objets des Forms

5 réponses

Discussions similaires