[VB6]: Generare nomi con suffisso numerico progressivo

[Backdown]

Vorrei fare in modo che vengano creati dei numeri in sequenza alla fine di una parola che però rimane uguale, questo cliccando su un command button
Per esempio:
ciao1
ciao2
La sequenza però deve arrivare fino a 1500, poi si deve fermare... come si fa?

[MItaly]

Memorizzi in una variabile a livello di form il numero a cui sei arrivato e nel gestore eventi del pulsante la incrementi di uno e la concateni alla stringa in questione. Sempre nel gestore eventi inserisci un controllo per evitare che la variabile superi 1500... non mi pare molto difficile...

[Backdown]

puoi postarmi gentilmente un esempio di questa stringa?

[Backdown]

stringa?? da dove mi è uscito lol... volevo di questa funzione
cmq il numero deve cambiare in modo automatico, non ogni volta ke si preme il pulsante.

[yyzyyz]

potresti fare una cosa di questo tipo:

Dim target As Double
Dim start As Boolean

Private Sub Command1_Click()
' start button
If start = True Then
        start = False
    Else
        start = True
End If
End Sub

Private Sub Form_Load()
target = 1
start = False
' setting speed
Timer1.Interval = 10 '(1000=1 secondo)

End Sub

Private Sub Timer1_Timer()
If start = True Then
        Label1.Caption = "ciao " & target
        target = target + 1
        If target = 1501 Then
            start = False
            target = 1
        End If
    Else
        start = False
    End If
End Sub

[icecube_HT]

Originariamente inviato da Backdown
stringa?? da dove mi è uscito lol... volevo di questa funzione
cmq il numero deve cambiare in modo automatico, non ogni volta ke si preme il pulsante.

Non sono sicuro di aver capito... forse cosi' (ma sembra troppo semplice!)

Dim i As Integer
For i = 1 to 1500
  Debug.Print "prova" & Cstr(i)
Next

[EngLab]

Entrambi i metodi vanno bene, ma se in automatico si intende alla velocità di elaborazione, usa il metodo di icecube.. Se invece ti serve incrementarlo ogni tot millisecondi usa l'altro..

[Backdown]

benissimo grazie. quella di icecube va bene, ma quella di yyzyyz non mi va non so perchè, eppure il codice è uguale, i nomi delle varie componenti sono uguali.
cmq avrei un altro paio di domande:
1) Se voglio ke la risposta mi arrivi in una label e non nel debug?
ho prova così
Label2.Caption = "prova" & CStr(i)
ma mi spunta solo 1500... ??
2) se voglio che il numero sia tra parentesi? ovvero Label2.Caption = "prova" & (CStr(i)) , però così non le legge perchè le vede come sintassi del programma

[ranza!!!123]

Originariamente inviato da Backdown
benissimo grazie. quella di icecube va bene, ma quella di yyzyyz non mi va non so perchè, eppure il codice è uguale, i nomi delle varie componenti sono uguali.
cmq avrei un altro paio di domande:
1) Se voglio ke la risposta mi arrivi in una label e non nel debug?
ho prova così
Label2.Caption = "prova" & CStr(i)
ma mi spunta solo 1500... ??
2) se voglio che il numero sia tra parentesi? ovvero Label2.Caption = "prova" & (CStr(i)) , però così non le legge perchè le vede come sintassi del programma

per il 2° punto fa così:label2.caption= "prova"& "(" & cstr(i) & ")"
per il 1° non saprei proprio...dovrebbe andare...dici che viene solo il numero senza scritta prova??
oppure solo prova1500??in questo caso è normale...perchè ogni volta sostituisci...se vuoi l'elenco completo fai

label2.caption= label2.caption &prova&cstr(i)&vbcrlf

[yyzyyz]

...mmm forse ti 6 dimenticato di aggiungere i 3 controlli x farlo funzionare
una label, un timer , un pulsante.
cmq ke errore ti darebbe ?