Relation entre boutton de commande et TextBox (VB)

Alors c'est du Visual basic qui me pose problême.

Schéma :

|Valider|
(______)

------------------------------------------------

Descriptif :

|Valider| : c'est un boutton de commande (Enabled mis sur false)

(______) : c'est une textbox.

---------------------------------------------------

Demande :

Quand l'utilisateur écris quelque chose dans la textbox, le bouton de commande mets Enabled sous true.

Merci pour ceux qui m'aideront, les autres n'ont qu'à aller .... :-D

Salut ,

y'a longtemps que je n'ai pas fait du VB

mais disons que ton bouton se nomme Bout et textbox txt.

dans le code de la textbox dans la subroutine "changed" tu met bout.Enabled = true

je crosi que c'est un truc comme ça

De rien ,

tiens moi au courant

regarde dans les propriétés de la text box

il faut tester ce qui est taper donc
tu utilises :

If IsNumeric(Text1.Text) Then
else
msgbox(....)
endif


avec ça , ça devrait etre bon

msgbox("texte" )

Merci sa va mieux avec les " :-D
-------------------------------------------
gnark maintenat sa marche presque tout seul.

J'ai inséré result = "" afin que quand ce n'et pas un carractère numérique le message d'erreur s'affiche et que le carctère non-admis s'efface.
Mais écris comme ça, il me met 2 fois le message d'erreurs avant d'effacer le carractère.
Moi j'en voudrais qu'un de message d'erreur. Une idéee ? :-(

Zak ,

on a fait comme cela car je sais pas si la fonction

IsNotNumeric existe

donc a fait a fait :

si c'est numéric , alors
(on fait rien )
sinon
message
fin Si

Nan y a pas de problème pour then et Else qui se suivent. Tout simplement que si la condition est vrai et ben y a rien qui se passe.

Je pense qu'il n'y a pas besoin du reste du script. Je ne suis pas programmeur novice (sauf en VB :-) ), donc je sais situé à peu près le lieu de l'erreur.

Voilì voilù

Le truc c que je comprend pas tout ton code.

Y a un zéro qui se ballade je sais pas à quoi y sert et après tu mets then, j'ai l'impression que tu mets le message si c'est un caractère numérique.

Pour ce qui est du : result = "" je me suis trompé (on s'en serait douter). Il faut remplacé result par Text1. En faites c'est le nom que j'ai donné à ma textbox mais comme on l'appel Text1 depuis le début, j'ai juste omis de lui changer son nom :-P .

Au final éclaircit moi un peu ton code que j'y plus claire. Mici bien.

Sa y est tout compris. Et puis sinon toi qui a l'air de bien t'y connaitre, y a pas plus simplement une fonction de la textbox qui pourrait bloquer l'écrit des autres caractères autres que ceux numériques ?

Merci quand même ! :-D

J'veux bien mais n'y a t'il pas besoin de sauvegarder une nouvelle fois la variable texte_backup ? Par exemple faire en sorte que la partie Private Sub Form_Load() soit lut à chaque fois que l'utilisateur tape un caractère.

Dans le cas contraire j ne comprends pas bien l'utilité de cette partie.

lol, RIEN COMPRIS !!!

On vas faire plus simple, je n comprends ton histoire d'enregistremnt de texte_backup.
Je parle du script de tout à l'heure pas de ta dernière réponse :-)

Et quand tu déclare ta variable ne devrait on pas marquer Dim texte_backup AS INTEGER au lieu de STRING. C'est des nombres entiers qu'on veut ! Non?

Bon finallement j'ai modifier ton code et je l'ai adopté à mon souhait, voilà se que j'obtient :

Voilà cette fois je crois ne rein avoir oublié de traduire.

Remerciement :
Tonton & Zak.