Ecrie un texte dans un Textbox en cliquant sur une image ou un boutton.

koje Messages postés 9 Date d'inscription mardi 6 avril 2010 Statut Membre Dernière intervention 13 décembre 2010 - 21 oct. 2006 à 15:58
frederios Messages postés 125 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 décembre 2006 - 29 oct. 2006 à 18:50
Bonjour à tous,

Voila j'aimerai pouvoir créer une aplication capable d'écrire un texte dans une textbox du projet quand je clique sur une image ou un bouton mais je suis un débutant je sais pratiquement rien faire avec VB.
Chaque bouttons ou images contiendra un texte, par exemple le bouton 1 contiendra : miaou! et le bouton 2 : ouaf! et quand je clique sur un de ces boutons le teste qu'ils contiennent se copiera dans une textbox du projet.
Voilà si vous pouvez m'aider cela serai super pour moi .
Merci a tous pour votre compréhension1

THE FIRST KOJE

3 réponses

B0mbJacK Messages postés 141 Date d'inscription lundi 23 février 2004 Statut Membre Dernière intervention 25 octobre 2006 1
21 oct. 2006 à 16:11
lol....tu m'éclates : )

Private Sub Command1_Click() 
   Text1.text = "premier message"
End sub

Private Sub Image1_Click() 
   text1.text = "coucou"
End sub

...mais bon commence par lire un peu les cours de base qu'on retrouve sur pas mal de site
0
Vedlen Messages postés 360 Date d'inscription mardi 14 octobre 2003 Statut Membre Dernière intervention 7 septembre 2009
21 oct. 2006 à 17:02
Private Sub Command1_Click() 
   Text1.text = Command1.Caption
End sub

--> Si tu veux que ce soit le même texte que celui écrit dans le bouton.
0
frederios Messages postés 125 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 9 décembre 2006
29 oct. 2006 à 18:50
sub form_load

   command1.tag="ouaf"
   command2.tag=miow
   picture1.tag="mow"

end sub

Sub Picture1_click

   text1.text=text1.text+Picture1.tag

end sub

Sub command1_click

   text1.text=text1.text+command1.tag

end sub

Sub command2_click

   text1.text=text1.text+command2.tag

end sub

Le tag sert a storrer du texte de facon invisible pour l'utilisateur...
0
Rejoignez-nous