Incrémenter une textbox

Bonjour à tous,
voila j'ai réussi à générer des textbox sous forme d'équation:

[URL=http://imageshack.us][IMG]http://img139.imageshack.us/img139/6576/vbfrancevt7.jpg[/IMG][/URL]

maintenant j'aimerai que apparaisse dans la textbox1 = 1 , textbox2 = 2 , textbox3 = 3 ,.......etc
quenlqu'un pourrai m'aider svp ??

merci d'avance ;)

comment as tu générer tes textbox ?

Salut,
Effectivement, il serait utile de savoir comment sont générer les TExtbox.

Si tu as fait des groupes de controles tu peux te servir de leur propriétés Index .

Sinon tu te sert de ta variable de boucle pour inscrire la valeur dans le textbox (Propriété Text) . en fait je ne vois pas trop quel est le problème

@+: Ju£i€n
Pensez: Réponse acceptée

Private Sub Command1_Click()
Dim NumTxt As Integer
Dim i, n, m, z As Integer
 
 Text1(0).Visible = True
NumTxt = CInt(Text2(0).Text)

If Text1.Count <> 1 Then
    For g = Text1.Count - 1 To 1 Step -1
        Call Unload(Text1(g))
    Next
End If
r = 0
For i = 1 To ((NumTxt) ^ 2) - 1
r = r + 1

     Call Load(Text1(i))

    With Text1(i)
        
        .Text = ""
        

        
        .Left = Text1(i - 1).Left
        
        .Top = Text1(i - 1).Top + Text1(i - 1).Height + 120
    
        .Visible = True
    
        If r Mod (NumTxt) = 0 Then
        Text1(i).Left = Text1(i).Left + 800
        Text1(i).Top = Text1(0).Top
        End If
    
    End With
    
Next i

End Sub

Private Sub Form_Load()
Text1(0).Visible = False
End Sub

Salut,

Private Sub Command1_Click() Dim NumTxt As Integer Dim i As Integer ' ATTENTION comme i, n, m etaient Dim n As Integer 'comme tu les déclarais des Varaint Dim m As Integer, z As Integer    Text1(0).Visible = True    Text1(0).Text = "1"    NumTxt = CInt(Text2(0).Text)    If Text1.Count <> 1 Then        For g = Text1.Count - 1 To 1 Step -1            Call Unload(Text1(g))        Next    End If    r = 0    For i = 1 To ((NumTxt) ^ 2) - 1        r = r + 1        Call Load(Text1(i))                With Text1(i)            .Text = i + 1            .Left = Text1(i - 1).Left            .Top = Text1(i - 1).Top + Text1(i - 1).Height + 120            .Visible = True                If r Mod (NumTxt) = 0 Then                .Left = .Left + 800                .Top = Text1(0).Top            End If            End With        Next i End Sub Private Sub Form_Load()    Text1(0).Visible = False End Sub

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

merci pour la réponse j'y avait deja pensez mais je me suis mal exprimé;   :s
comme je l'ai dit c'est sous forme d'équation alors au lieu d'écrire verticalement, il faudrai que les chiffres s'incrémente horizontalement et à chaque lignes reviennent de zéro.

voila je pense être bien clair.
si pas demander explication ^^

Re,

Sais pas si j'ai tout compris mais essaie ceci alors. (sert toi de ton test
If r Mod (NumTxt) = 0 Then Qui te permet de savoir QUAND tu change de colonne)

Private Sub Command1_Click() Dim NumTxt As Integer Dim i As Integer ' ATTENTION comme i, n, m etaient Dim n As Integer 'comme tu les déclarais des Varaint Dim m As Integer, z As Integer    Text1(0).Visible = True    Text1(0).Text = "1"    NumTxt = CInt(Text2(0).Text)        If Text1.Count <> 1 Then        For g = Text1.Count - 1 To 1 Step -1            Call Unload(Text1(g))        Next    End If    r = 0    n = 1    For i = 1 To ((NumTxt) ^ 2) - 1        r = r + 1        n = n + 1        Call Load(Text1(i))                With Text1(i)            .Text = CStr(n)            .Left = Text1(i - 1).Left            .Top = Text1(i - 1).Top + Text1(i - 1).Height + 120            .Visible = True                If r Mod (NumTxt) = 0 Then                n = 1                .Text = CStr(n)                .Left = .Left + 800                .Top = Text1(0).Top            End If            End With      Next i End Sub

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

bon et bien je doit vraiment avoir du mal a m'exprimer :s

ton programme permet d'écrire 1,2,3,4,5...... par colonne et moi je voudrai que sa se fasse par ligne :)

merci bien c'est nikel mais j'aurai une autre question encore.
désoler de t'embeter mais je débute.
donc : est-il possible en plus des chiffres entré une lettre dans chaque textbox

exemple : I1, I2, I3, I4, I5,......???

et sinon pour ces textbox la l'ordre des indices n'a pas d'importance donc je te remercie encore une fois ;)