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

Signaler
-
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
-
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.

7 réponses

Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
13
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.
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016
>
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017

Comment ? les options de l'éditeur de texte sont limitées
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
13 >
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
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.
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016
>
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
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
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016
>
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016

Si vous voulez la photo de l'interface je peux vous l'envoyer.
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
13 >
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
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"
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016

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
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016


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
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016

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 :

Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
13
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?
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016

Oui VB 2010 : Windows application
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
13
Et comment expliquez-nous que Label8.Text soit égal à un Integer?
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016
>
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017

Integer peut prendre des valeurs négatives ?
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
13 >
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016

Oui, mais ça ne change rien, puisqu'un String n'est pas un numérique.
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016

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 :

Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
13
Je ne comprend pas non plus. Désolé.
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016
>
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017

En tout cas Merci Zermelo, de l’intérêt que vous avez porté à mes messages.
Cordialement
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
25 >
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
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
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
Dernière intervention
28 février 2016
>
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018

Ah ! Merci beaucoup, je comprend maintenant qu'est ce que Zermelo a essayé de m'expliquer.
Messages postés
378
Date d'inscription
samedi 22 septembre 2012
Statut
Membre
Dernière intervention
13 août 2017
13 >
Messages postés
15
Date d'inscription
vendredi 26 février 2016
Statut
Membre
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.