La funzione e’ simile alla String() nativa di VB, con in piu’ la possibilita’ di definire una stringa (e non un carattere) da ripetere.
Public Function RepeatString(ByVal repetitions As Long, _
ByVal stringToRepeat As String) As String
' dichiarazione variabili
Dim i As Long
Dim tmpString As String = ""
If repetitions <= 0 Then
' se numero ripetizioni inferiore a 1 (zero o negativo)
' restituisci stringa vuota
tmpString = ""
ElseIf repetitions = 1 Then
' se numero ripetizioni = 1 restituisci la stringa stessa
tmpString = stringToRepeat
Else
' altrimenti esegui la ripetizione della stringa
For i = 0 To repetitions - 1
tmpString = String.Concat(tmpString, stringToRepeat)
Next
End If
Return (tmpString)
End Function
Per testare questa funzione, creare un form con 3 textbox e un pulsante (rispettivamente denominati TextBox1, TextBox2, TextBox3 e Button1) e inserire il seguente codice nell’evento Click di Button1:
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
' dichiarazione variabili
Dim stringaDaRipetere As String = ""
Dim ripetizioni As Long = 0
Dim stringaFinale As String = ""
' lettura TextBox1 con stringa da ripetere (es.: "ABC")
stringaDaRipetere = Me.TextBox1.Text
' lettura numero ripetizioni da campo TextBox2 (es.: 3)
' N.B.: solitamente l'input numerico va controllato
ripetizioni = Long.Parse(Me.TextBox2.Text)
' esecuzione della funzione di ripetizione stringa
stringaFinale = RepeatString(ripetizioni, stringaDaRipetere)
' risultato nella TextBox3 (es.: "ABCABCABC")
Me.TextBox3.Text = stringaFinale
End Sub