Changer un le texte d'un Label et une image sans click

- - Dernière réponse : Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
- 27 févr. 2016 à 10:04
Bonjour,
J'ai un problème lors de la programmation d'une application VB 2010, je n'arrive pas à changer le texte d'un Label et l'image d'une ImageBox selon les valeurs d'une textBox, Je serais très reconnaissant si quelqu'un peut m'aider.
Cordialement.
Afficher la suite 

Votre réponse

7 réponses

Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
0
Merci
Bonjour El mokhtar.
Vous aider sans voir votre code relèverait de la magie, ce que je ne sais pas faire. Mais si vous me montrez votre code, je pourrais peut-être faire quelque chose.
Cordialement.
El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
> Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
-
Comment ? les options de l'éditeur de texte sont limitées
Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
> El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
-
Dans la case que je viens d'ouvrir, il y a un symbole <>
.

Mettez alors
 avant le début du code et 
après.
El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
> Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
-

Dim x As Integer = 0
Dim y As Integer = 0
Dim z As Integer = 0


Try
If ToolStripTextBox1.Text = "" Then

For i As Integer = 0 To Aramex_Gestion_PalettesDataGridView.RowCount - 1
If Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(4).Value = "Entrée" Then
x = x + Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(5).Value
Else
y = y - Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(5).Value
End If
z = x + y
Next
Label8.Text = z
PictureBox2.Image = My.Resources.Material_Icons_e565_0__512
Label7.Text = "Bonne gestion ! Tout est en ordre."
If z < 0 And z > -200 Then
PictureBox2.Image = My.Resources.Material_Icons_e565_2__512
Label7.Text = "Fait attention ! La situation est risquée."
End If
If z <= -200 Then
PictureBox2.Image = My.Resources.Material_Icons_e565_1__512
Label7.Text = "Mauvaise gestion ! La situation est dangereuse."
End If

End If
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
> El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
-
Si vous voulez la photo de l'interface je peux vous l'envoyer.
Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
> Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
-
Cela était pour vous guider. Mais maintenant je vous demande de le refaire dans une autre case, ouverte par un bouton "Répondre au sujet"
Commenter la réponse de Zermelo
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
0
Merci
Dim x As Integer = 0
Dim y As Integer = 0
Dim z As Integer = 0


Try
If ToolStripTextBox1.Text = "" Then

For i As Integer = 0 To Aramex_Gestion_PalettesDataGridView.RowCount - 1
If Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(4).Value = "Entrée" Then
x = x + Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(5).Value
Else
y = y - Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(5).Value
End If
z = x + y
Next
Label8.Text = z
PictureBox2.Image = My.Resources.Material_Icons_e565_0__512
Label7.Text = "Bonne gestion ! Tout est en ordre."
If z < 0 And z > -200 Then
PictureBox2.Image = My.Resources.Material_Icons_e565_2__512
Label7.Text = "Fait attention ! La situation est risquée."
End If
If z <= -200 Then
PictureBox2.Image = My.Resources.Material_Icons_e565_1__512
Label7.Text = "Mauvaise gestion ! La situation est dangereuse."
End If

End If
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
Commenter la réponse de El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
0
Merci

Dim x As Integer = 0
Dim y As Integer = 0
Dim z As Integer = 0


Try
If ToolStripTextBox1.Text = "" Then

For i As Integer = 0 To Aramex_Gestion_PalettesDataGridView.RowCount - 1
If Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(4).Value = "Entrée" Then
x = x + Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(5).Value
Else
y = y - Aramex_Gestion_PalettesDataGridView.Rows(i).Cells(5).Value
End If
z = x + y
Next
Label8.Text = z
PictureBox2.Image = My.Resources.Material_Icons_e565_0__512
Label7.Text = "Bonne gestion ! Tout est en ordre."
If z < 0 And z > -200 Then
PictureBox2.Image = My.Resources.Material_Icons_e565_2__512
Label7.Text = "Fait attention ! La situation est risquée."
End If
If z <= -200 Then
PictureBox2.Image = My.Resources.Material_Icons_e565_1__512
Label7.Text = "Mauvaise gestion ! La situation est dangereuse."
End If

End If
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
Commenter la réponse de El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
0
Merci
Sans écrire dans le textToolStrip on aura automatiquement un changement selon la valeur de Label8.text

Label8 est la somme de nombre palettes de l'action "Entrée" moins la somme de nombre palettes de l'action "Sortie"

1er Cas :



2éme Cas :



3éme Cas :

Commenter la réponse de El1900mokhtar
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
0
Merci
Il y a des choses bizarres. Normalement, la coloration syntaxique aurait due mettre les indentations dans le code. D'autre part, x, y, et z sont des Integer, et Label8.Text étant un String ne peut être égal à z. Etes-vous sûr d'être en Vb.net?
Commenter la réponse de Zermelo
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
0
Merci
Oui VB 2010 : Windows application
Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
-
Et comment expliquez-nous que Label8.Text soit égal à un Integer?
El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
> Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
-
Integer peut prendre des valeurs négatives ?
Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
> El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
-
Oui, mais ça ne change rien, puisqu'un String n'est pas un numérique.
Commenter la réponse de El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
0
Merci
Je ne sais pas comment expliquer ça,mais cette méthode marche bien regarde par exemple la valeur 14 qui est obtenue de la même façon :

Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
-
Je ne comprend pas non plus. Désolé.
El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
> Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
-
En tout cas Merci Zermelo, de l’intérêt que vous avez porté à mes messages.
Cordialement
cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
> El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
-
Bonsoir El1900mokhtar,

Je pense que Zermelo, que je salue, voulais t'orienter vers
        Dim k As Integer = CType(Label8.Text.ToString, Integer)
Label7.Text = String.Empty

Select Case k
Case Is < -200
Label7.Text = "Mauvaise gestion ! La situation est dangereuse."
PictureBox2.Image = My.Resources.Material_Icons_e565_1__512

Case Is < 0
Label7.Text = "Fait attention ! La situation est risquée."
PictureBox2.Image = My.Resources.Material_Icons_e565_2__512

Case Else
Label7.Text = "Bonne gestion ! Tout est en ordre."
PictureBox2.Image = My.Resources.Material_Icons_e565_0__512

End Select
El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
> cs_JMO
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Dernière intervention
24 juin 2018
-
Ah ! Merci beaucoup, je comprend maintenant qu'est ce que Zermelo a essayé de m'expliquer.
Zermelo
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Dernière intervention
13 août 2017
> El1900mokhtar
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Dernière intervention
28 février 2016
-
Et il me semble que le mieux pour vous est de télécharger vb 2010 Express. C'est gratuit.
Commenter la réponse de El1900mokhtar

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.