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

PrivateSub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Dim pose AsString

Dim prix AsString = 100

pose = TextBox1.Text

Label1.Text = prix * pose

EndSub

End

Class

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++

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

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) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

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

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++

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

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) ----

---

# LE PARTAGE EST NOTRE FORCE #    [ Lien ]

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

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