Discussion :

[enibris]

Bonjour,

Quelle est la syntaxe exacte ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim tmp As TextBox
Set tmp = "toto"
MsgBox tmp.text

Merci

[jmfmarques]

si tmp se réfère à une textbox (donc un controle textbox)
tmp n'est pas un texte !
en admettant donc que tu aies une textbox text1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim tmp As TextBox
Set tmp = Text1
MsgBox tmp.Text

te renverra ce qu'il y a ecrit dans la textbox text1

[enibris]

Bonjour,

Je recupere le nom de mon textbox grace a un checkbox
cbA->txtA

Le nom du textbox-> "txt" & Right(cbA, Len(cbA) - 2)
Merci

[jmfmarques]

C'est une question ?

Je ne crois pas
Il nous tient au courant... et dit merci, c'est tout semble-t-il, ma foi !

Je devine en plus (sa 1ère et seule question jusqu'à présent) qu'il passe par des chemins détournés ! (il ne doit pas aimer les routes directes !)

[AlainTech]

Je pense que la question est la suite de ce sujet
http://www.developpez.net/forums/viewtopic.php?t=488194

Sujet d'ailleurs pas marqué comme résolu, non plus.

[AlainTech]

De toute manière, la syntaxe pour mettre du texte dans une Textbox est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
tmp = "toto" 
MsgBox tmp.text

Donc ni Dim (la Textbox existe) ni Set (on ne travaille pas sur on objet mais bien sur une propriété)

[enibris]

Bonjour,

@ouskel'n'or
Desole pas resolu don c pas de tag resolu

@AlainTech
pas resolu ->http://www.developpez.net/forums/viewtopic.php?t=488194

@ all
Est-ce que je me suis mal exprimer ?

"Donc ni Dim (la Textbox existe) ni Set (on ne travaille pas sur on objet mais bien sur une propriété)"
Je sais tres bien, c'est pour vous expliquer mon idée.
Avez vous une prosposition ou une methode a me proposer, une piste a suivre :

Merci de votre aide.

[jmfmarques]

Est-ce que je me suis mal exprimer ?

Oui ! et c'est encore le cas !
Poses donc ta question clairement :
Une question se présente de la façon suivante :
J'ai(clairement et complètement) ceci et veux faire celà (clairement et complètement). Comment dois-je procéder ?

PS : Ce n'est pas par hasard qu'OusKel'n'or te repond exactement ce que je t'ai répondu : c'est en raison de la forme même de ta question !
Si ta pensée est claire, tu dois savoir et pouvoir l'exprimer clairement et avec précision.
Le développement lui même est subordonné à ces 2 impératifs : pensée claire, puis syntaxe claire pour exprimer sa pensée. Et aucune syntaxe n'est possible si l'expression de sa pensée, hors syntaxe, ne l'est pas !

[enibris]

Bonjour,

Je recupere le nom de mon textbox grace a une checkbox
cbA->txtA

Le nom du textbox-> "txt" & Right(cbA, Len(cbA) - 2) ->txtA

Maintenant je voudrais afficher le contenu de cette textbox

Est-ce suffisant comme explication?
Merci

[SfJ5Rpw8]

Est-ce suffisant comme explication?
Merci

ben non ... cette syntaxe c'est pas du VB?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cbA->txtA

[jmfmarques]

Je crois tout simplement qu'enibris a cru qu'il lui suffisait d'étaler une symbolisation provenant directement de l'énoncé d'un exercice !
Je crois deviner que son exercice est/était le suivant :
à partir d'une une checkbox dont le caption est composé ainsi :
"xx" & nom_d'une_textbox_existante (chexbox1.caption = "xxnom_d'une_textbox_existante" par exemple)
atteindre ou pointer vers la textbox dont le nom est nom_d'une_textbox_existante (donc tous les caractères à droite en partant du 3ème)
Alors ! pour enibris :
1) Si c'est/était cela, pourquoi ne pas l'avoir exprimé comme moi sur ce forum francophone et non "symbolophone"
2) La syntaxe attendue est/était (à condition qu'existe, bien évidemment, une textbox nommée txtA sur ta "Form") et que le caption de cbA soit, par exemple : xytxtA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Command1_Click()
  MsgBox Controls(Right(cbA.Caption, Len(cbA.Caption) - 2)).Text 's'il  tenait vraiment à son right maladroit
 ' ou plus simplement
  MsgBox Controls(Mid(cbA.Caption, 3)).Text   'qui revient au même
  'ou, pour écrire dans la textbox en cause
  Controls(Mid(cbA.Caption, 3)).Text = "ben voilà ! c'était tout !"
End Sub

Il lui aurait par ailleurs suffi de fouiller un peu pour trouver cette syntaxe, directement issue et adaptée d'une réponse faite par Silky Road à propos d'un autre sujet sur ce forum.