erreur dans un textbox quand je supprime le texte

Question

bonjour je debute avec visual basic.
j'ai un textbox et un label .quand je supprime le texte dans le textbox j'ai une erreur. si quelqu'un peux me donner un coup de main .merci d'avance 
voici mon code

Private
Sub TextBox1_TextChanged(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles TextBox1.TextChanged

Dim pose 
As
String

Dim prix 
AsString 100pose TextBox1.Text

Label1.Text = prix * pose

End
SubEnd

Class

dedenet2 · Answer

Bonjour ,
tu écris:
Dim pose AsString
Dim prix AsString = 100

Il faut écrire plutôt:
Dim pose As String
Dim prix As String = 100

En fait, As et String , c'est 2 mots
A++

jmfmarques · Answer

Le code que tu montres, philboris, n'étant pas du VB6 ...===>> je vais voir ailleurs

cs_casy · Answer

dedenet2 > ce n'est pas une erreur de sa part, c'est le copier/coller ici qui merde. Parfois il supprime les espaces, parfois il rajoute des saut de lignes....

philboris > c'est quoi ton message d'erreur ?

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

philboris · Answer

bonsoir dedenet
le message est La conversion de la chaîne "" en type 'Double' n'est pas valide.

dedenet2 · Answer

Bonjour ,
casy , tu as raison.Ce n'est pas le problème.J'ai mal lu.
Si je reprend ce code:

pose = TextBox1.Text
Label1.Text = prix * pose

Si il n' a rien dans le TextBox.
Cela veut dire que l'on fait prix * "" = Erreur.
Impossible de multiplier !

il peut écrire par exemple:
---------------------------------
pose = TextBox1.Text
if Len(pose)>0 then
  Label1.Text = prix * pose
end if
----------------------------------
A améliorer encore...
A++

PCPT · Answer

topic déplacé de VB6 vers VB.NET !

cs_casy · Answer

Ben le message est clair, tu as une chaine vide que tu essaye de convertir en nombre, et ça VB ne sait pas faire.

Il te faut donc
- soit traiter le cas ou la chaine est vide, pour ne pas tenter de la convertir en nombre (en gros ne pas faire ton calcul)
- soit te débrouiller pour que la chaine ne soit jamais vide.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Kevin.Ory · Answer

Salut,

Perso, pour faire simple, je ferais un Try dans ce genre:
Dim prix As String = 100
Try
    Label1.Text = prix * TextBox1.Text
Catch ex As Exception
    Label1.Text = "Erreur"
End Try
Ca permet aussi de gérer l'erreur qui survient lorsque l'utilisateur entre des lettres dans TextBox1

philboris · Answer

bonsoir
merci ,j'essais et je vous tiens au courant.
bon week end

cs_johndave · Answer

Je pense que ceci peut t'aider aussi:
pose = Val(TextBox1.Text )
Label1.Text = prix * pose 
Les donnée vides sera remplacé par zéro.

philboris · Answer

merci johndave
bonne journée

Erreur dans un textbox quand je supprime le texte

11 réponses

Votre réponse

Discussions similaires