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

El mokhtar - 26 févr. 2016 à 15:29 - Dernière réponse : Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention
- 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 

22 réponses

Répondre au sujet
Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 15:48
0
Utile
7
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 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention > Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 16:49
Comment ? les options de l'éditeur de texte sont limitées
Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention > El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 17:08
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 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention > Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 17:13

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 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention > El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 17:15
Si vous voulez la photo de l'interface je peux vous l'envoyer.
Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention > Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 17:26
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
El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 16:00
0
Utile
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
El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 17:46
0
Utile

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
El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 17:49
0
Utile
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
Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 18:19
0
Utile
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
El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 18:26
0
Utile
3
Oui VB 2010 : Windows application
Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 18:31
Et comment expliquez-nous que Label8.Text soit égal à un Integer?
El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention > Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 18:38
Integer peut prendre des valeurs négatives ?
Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention > El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 18:44
Oui, mais ça ne change rien, puisqu'un String n'est pas un numérique.
Commenter la réponse de El1900mokhtar
El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 18:58
0
Utile
5
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 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 19:17
Je ne comprend pas non plus. Désolé.
El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention > Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention - 26 févr. 2016 à 19:21
En tout cas Merci Zermelo, de l’intérêt que vous avez porté à mes messages.
Cordialement
cs_JMO 1838 Messages postés jeudi 23 mai 2002Date d'inscription 1 avril 2018 Dernière intervention > El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 26 févr. 2016 à 20:15
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 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention > cs_JMO 1838 Messages postés jeudi 23 mai 2002Date d'inscription 1 avril 2018 Dernière intervention - 26 févr. 2016 à 20:43
Ah ! Merci beaucoup, je comprend maintenant qu'est ce que Zermelo a essayé de m'expliquer.
Zermelo 378 Messages postés samedi 22 septembre 2012Date d'inscription 13 août 2017 Dernière intervention > El1900mokhtar 15 Messages postés vendredi 26 février 2016Date d'inscription 28 février 2016 Dernière intervention - 27 févr. 2016 à 10:04
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.