Petit problème de récurence! aidez moi please!

Question

Salut a tous voici mon probl&#232;me : (je suis d&#233;butant je pr&#233;cise)

j'ais fait un programme ou j'ai 72 textbox &#224; incrementer d'une constante

par exemple ma constante = 10 

et je veux &#233;viter a avoir repeter ca :

text1.text = 10

text2.text =  10 + x
 
tex3.text = 20 + x

text4.text = 30 + x

etc.......vous m'avez compris si je doit incr&#233;menter la constante a chaque fois ca risque d'&#234;tre long a programmer......(j'ais 14 form du m&#234;me type a faire, ca fait 1008 textbox a remplir.....)
bon je peux bien le faire pour une form et copier le code sur les autres mais m&#234;me c long...doit bien y avoir une fonction non? 

Merci a ceux qui voudront m'aider.

econs · Answer

Il faut cr&#233;er un groupe de contr&#244;les avec tes textbox.



Sur ta feuille :

- une seule TextBox nomm&#233;e Text1, avec la propri&#233;t&#233; Index = 0





For i=1 to 72

    Load text1(i)

    With text1(i)

        .Top = text1(0).Top  + i*text1(0).Height

       .Text = 10*i+X     
' <== affectation directe &#224; la cr&#233;ation, mais peut etre fait plus
tard.

        .Visible = True

    End With

Next i

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Pyriss · Answer

ok merci et si je veux faire en sorte que la valeur d'un textbox ne puisse d&#233;passer 59? et qui si il d&#233;passe cette valeur ca incr&#233;mente de +1 la valeur du suivant (c'est un truc avec des minutes et des secondes).

Merci de ta r&#233;ponse

jpleroisse · Answer

Tu peux essaier aussi cette m&#233;thode, tu places la propri&#233;t&#233; Tag de tes TextBox &#224; 1
Option Explicit
Private Const x = 10 

Private Sub Command1_Click()
Dim indx As Integer, c
c = 0
On Error Resume Next
    For indx = 0 To Form1.Controls.Count - 1
       If (Form1.Controls(indx).Tag = "1") Then
            If (TypeOf Form1.Controls(indx) Is TextBox) Then
              If Form1.Controls(indx).Text <> "" Then
              c = c + 10
              Form1.Controls(indx).Text = c + x
             End If
        End If
    End If
Next indx
End Sub

jpleroisse

Petit problème de récurence! aidez moi please!

3 réponses

Discussions similaires