La declaration en vb6.0 me complique
ginongo
-
lermite222 Messages postés 9042 Statut Contributeur -
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,
Private Sub temp Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles temp.TextChanged
Dim temp As Integer
If temp <= 0 Then
MsgBox("Bonjour à tous c'est de la glace")
ElseIf temp < 100 Then
MsgBox("Bonjour à tous c'est du liquide")
Else
MsgBox("Salut c'est de la vapeur")
End If
End
End Sub
il ne marche pas c'es toujours le 1 message qui apparait help pls
Private Sub temp Changed(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles temp.TextChanged
Dim temp As Integer
If temp <= 0 Then
MsgBox("Bonjour à tous c'est de la glace")
ElseIf temp < 100 Then
MsgBox("Bonjour à tous c'est du liquide")
Else
MsgBox("Salut c'est de la vapeur")
End If
End
End Sub
il ne marche pas c'es toujours le 1 message qui apparait help pls
3 réponses
-
-
Hum... Dis moi, quand valorises-tu le temp ?
Car tu le déclares puis tu veux l'utiliser suivant une valeur qu'il devrait avoir, alors qu'entre les deux, tu n'as pas affecté de valeur à temp...
Il te faudrait quelque chose dans ce genre :
Dim temp As Integer
temp = MaTextBox.Text
If temp <= 0 Then
MsgBox("Bonjour à tous c'est de la glace")
ElseIf temp < 100 Then
MsgBox("Bonjour à tous c'est du liquide")
Else : MsgBox("Salut c'est de la vapeur")
End If
où l'utilisateur saisit par exemple la valeur dans une textbox... -
Bonjour,
1°) Tu n'est pas en VB6.00 mais en VB.Net xxxx
2°) Tu valide Temps et ensuite tu le dimentionne... donc remise à 0
Inverse les deux 1ère lignes.
A+
