TextBox et ProgressBarRésolu

Question

Bonjour à toutes et à tous, Je viens vers vous pour mon petit problème : J'ai 5 textbox et une progressbar ( 0 à 100 ) Je voudrais que lorsqu'une textbox est remplie ( <> "" ou <> 0 )ma progressbar avance de 20 et à l'inverse on enlève 20. Donc si mais 5 textbox sont remplies ( <> "" ou <> 0 ) la progressbar soit pleine ( 100 ), si 4 sont remplies ( 80 ), si 3 ( 60 ) etc etc J'ai essayé plein de manip mais si je met 10 ça avance bien mais si j'efface le zero donc 1 ça avance aussi donc j'ai avancé de 40 pour une seule de remplie quoi. Pouvez vous m'aidez, si oui merci par avance

NHenry · Answer

Pouvez-vous montrer quel code avez-vous essayé ?

cs_Fripouil · Answer

Bonjour, j'ai efface le code car cela ne fonctionnait donc pas mais de mémoire : private sub Progression_ProgressBar If TextBox01.text <> "" or TextBox01.text <> "0" and Progressbar.value < 100 then Progressbar.value = progressbar.value + 20 else If TextBox01.text = "" or TextBox01.text = "0" and Progressbar.value > 0 then Progressbar.value = progressbar.value -20 end if end if end sub et avec textchanged ou keypress ( j'ai essayé les 2 ) Progression_ProgressBar() Merci de votre aide

cs_ShayW · Answer

Bonjour Je voudrais que lorsqu'une textbox est remplie ? Ce n'est pas clair c.a d par ex si ta textbox est limité à 50 caractères ,après avoir tapé 50 caractères alors tu incrimentes de 20 le progress bar ? ne pas confondre remplie et non vide comme tu as écrit ( <> "" ou <> 0 ) c'est non vide ou différent de "0"

cs_Fripouil · Answer

Bonsoir, 

Mes Textbox sont maximum à 4 chiffres, soit des chiffres entiers ou décimaux, du genre 9999 ou alors 50,2 ou 1, peu importe dirais je ! Le but est via une progressbar d'avoir une vision des 5 textbox si elles sont "remplies" avec des chiffres différent de 0 ( car cela est ma valeur par défaut ) et donc non vide ! Les manipulations que j'ai faites, ne fonctionne pas car si je tape "10" cela m'avance de 20 pour le "1" puis à nouveau 20 pour le "0" alors que moi ce que je souhaite c'est que le "10" saisi ne m'avance que de 20.

cs_Fripouil · Answer

PS : j'incrémente de 20 pour la bonne raison que mes 5 textbox remplies équivalent à 100% de ma progressbar

cs_ShayW · Answer

Pas encore clair 
donc tu veux que ton textbox n'accepte que des chiffres et la virgule comme séparateur décimal .
Quand augmentes tu le progress bar ? 
après avoir tapé 4 chiffres ?  
si on tape 2017 de combien augmente le progressbar ?

cs_Fripouil · Answer

- Mes TextBox sont déjà paramétrés pour n'accepter que des chiffres puis la virgule ou point comme séparateur.

- Le mieux je pense serait sur la perte du focus

- Non sur un, deux, trois ou quatre chiffres peu importe

- On augmente de 20 étant donné que j'ai 5 textbox soit 20 X 5 = 100% de la progressbar.

Problèmes  rencontrés :
sur le lostfocus :
SI je donne le focus puis l'enléve puis le redonne puis le renléve ( sans modifier la valeur !!! ) cela m'incrémente de 20 + 20 pour une même textbox, il faut donc en plus de cela vérifier que la valeur est la même ou non et que la texbox contienne un chiffre ( sauf 0 ) ou rien du tout

sur le keypress :
SI je tape le chiffre "100" dans un textbox, il avance de 20 pour le chiffre "1" puis à nouveau de 20 pour le "0" puis à nouveau de 20 pour le 2éme "0" alors qu'il ne devrait avancé que de 20 pour ce chiffre 100

Je pense que la meilleure méthode est :

Je saisis un chiffre, je sors du textbox, j'incrémente de 20 la progressbar si pour une raison ou une autre, je reviens dans cette même textbox que j'efface le chiffre saisi c'est à dire que la textbox est vide ou alors que je mette "0" on enléve 20 à la progressbar

Voilà.. j'espére avoir était un peu plus clair...
Bon je verrais cela en rentrant du travail, bonne journée et merci encore pour votre aide

Whismeril · Answer

Bonjour

si d'autres idées je suis preneur lol
et bien si tu essayais ce que t'on proposé NHenry et VB95....
là
http://codes-sources.commentcamarche.net/forum/affich-10076126-textbox-et-progressbar#3
et là
http://codes-sources.commentcamarche.net/forum/affich-10076126-textbox-et-progressbar#14

cs_ShayW · Answer

A essayer

les cinq textbox sont nommés 
TextBox1 TextBox2 TextBox3 TextBox4 TextBox5
 
 Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown, TextBox4.KeyDown, TextBox5.KeyDown        'verifie que la valeur de la touche frappée est 0 - 9 ou backspace ou delete ou decimal         If e.KeyCode = Keys.D0 Or e.KeyCode = Keys.D1 Or e.KeyCode = Keys.D2 Or e.KeyCode = Keys.D3 _            Or e.KeyCode = Keys.D4 Or e.KeyCode = Keys.D5 Or e.KeyCode = Keys.D6 Or e.KeyCode = Keys.D7 _           Or e.KeyCode = Keys.D8 Or e.KeyCode = Keys.D9 Or e.KeyCode = Keys.NumPad0 Or e.KeyCode = Keys.NumPad1 _           Or e.KeyCode = Keys.NumPad2 Or e.KeyCode = Keys.NumPad3 Or e.KeyCode = Keys.NumPad4 Or e.KeyCode = Keys.NumPad5 _           Or e.KeyCode = Keys.NumPad6 Or e.KeyCode = Keys.NumPad7 Or e.KeyCode = Keys.NumPad8 Or e.KeyCode = Keys.NumPad9 _           Or e.KeyCode = Keys.Decimal Or e.KeyCode = Keys.Delete Or e.KeyCode = Keys.Back Then            DirectCast(sender, TextBox).ReadOnly = False        Else            DirectCast(sender, TextBox).ReadOnly = True        End If    End SubPrivate Function CountTextbox() As Int32        'compte le nombre de textbox ayant une valeur         Dim count As Int32 = 0        Dim ret As Double        For Each item As Control In Me.Controls            If TypeOf item Is TextBox Then                If item.Name = "TextBox1" Or item.Name = "TextBox2" Or item.Name = "TextBox3" _                    Or item.Name = "TextBox4" Or item.Name = "TextBox5" Then                    If Double.TryParse(DirectCast(item, TextBox).Text, ret) AndAlso ret <> 0  Then                        count += 1                    End If                End If            End If        Next        Return count    End Function    Private Sub TextBox1_TextChanged(sender As Object, e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged, TextBox5.TextChanged        Dim count As Int32        count = CountTextbox()        ProgressBar1.Value = (ProgressBar1.Maximum \ 5) * count    End Sub

TextBox et ProgressBar

9 réponses

Votre réponse

Discussions similaires