Trouver le chiffre max de 100 textboxRésolu

Question

Bonjour,

Je travaille sur MicrosoftVisualBasic
Express 2008,et sur le point de terminer
,j'ai créé 100 textbox ayant chacun
un chiffre:

Dim k As Single
...##je déclare les variables##
Dim dj As Single

k = (((Me.TextBox5.Text) ^ 2) - ( 0.1 ^ 2))
Form3.TextBox1.Text = k
...##je déclare un chiffre pour chaque tbox##
dj = (((Me.TextBox5.Text) ^ 2) - ( 10 ^ 2))
Form3.TextBox100.Text = dj

Je cherche le chiffre max de ces 100 textbox,
   j'enverrai  le chiffre sur Form3.TextBox101
Et  je déclarerai ;
If    Form3.TextBox101.Text=k then
      Form3.TextBox102.Text=0.1
End if
?
If    Form3.TextBox101.Text=dj then
      Form3.TextBox102.Text=10
End if
Ma question est de comment trouver le 
chiffre max et l'envoyer sur Form3.TextBox101
Je doit être en train de chercher un exemple
Sur les forums mais si quelqu'un aurait une
réponse ou même un début de réponse,
J'apprécierais beaucoups
Merci d'avance
Essenge11

essenge11 · Accepted Answer

Bonjour,
Voilà ce qui marche pour trouver le chiffre
max sur 100 TextBox;

Dim k As Single 
...##je déclare les variables## 
Dim dj As Single
Dim max As Single

k = (((Me.TextBox5.Text) ^ 2) - ( 0.1 ^ 2)) 
Form3.TextBox1.Text = k 
...##je déclare un chiffre pour chaque tbox## 
dj = (((Me.TextBox5.Text) ^ 2) - ( 10 ^ 2)) 
Form3.TextBox100.Text = dj

For Each c As Control In Form3.Controls
   If (c.GetType() Is GetType(TextBox)) Then
            For Each t In c.Name
                    If c.Text > max Then
                        max = c.Text
                    End If
            Next

                Me.TextBox11.Text = max
   End If
        Next

Pour "Form3.TextBox101.Text",j'ai remplaçé par
"Me.TextBox11.Text",pour le reste je m'arran-
gerais.C'est super,merçi beaucoups
essenge11

Renfield · Answer

en pseudocode, ca donnerai :

max = text1.text

for each t in mesTextboxes
    if t.text > max then
        max = t.text
    end if
next

text101.text = max


Renfield - Admin CodeS-SourceS - MVP Visual Basic

nhervagault · Answer

Salut,

Si tes controles sont dans le meme niveau sur ta form.
Attention si ils sont dans un contenaire il faut les prendres dans ce dernier ou faire un parcours recursif.

Une boucle du type 


For Each c As Control In Me.Controls
  If (c.GetType() Is GetType(TextBox)) Then
      MessageBox.Show(c.Name)
  End If
Next

essenge11 · Answer

Effectivement,
For Each c As Control In Form3.Controls
      If (c.GetType() Is GetType(TextBox)) Then
                With (Me.ListBox2.Items)
                    .Insert(0, c.Name)
                End With
      End If
Next
cela fait une belleliste de mes contrôles sur un
listbox,mais pour la boucle récursif,j'aurai
besoins d'une ptit leçon de vie mais je crois
avoir maintenant une bonne idée et un début
de réponse,merci.
essenge11

nhervagault · Answer

Si tu as tous tes controles pas besoin de boucles recursives.

Sinon

Le principe

'appel
contenu = compteResursif(me)

'fonction

public function compteResursif(Control c) as int32

for each c as control in c.controls
if (c.GetType() Is GetType(TextBox)) Then
'blabla
return .....
else
if (c.Controls.count <> 0) then
return compteResursif(c)
end if
next

end sub

C'est le principe a toi d'adapter.

Trouver le chiffre max de 100 textbox

5 réponses

Votre réponse

Discussions similaires