• Home
 · 
• Miscellaneous
 · 
• Use Function Join in VB6

Use Function Join in VB6

Use Function Join in VB6

Rate Use Function Join in VB6

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub cmdJoin_Click()
    '
    Dim saTest(5) As String
    Dim sElement As String
    Dim I As Integer
    '
    '
    sElement = txtTest.Text
    '
    For I = 0 To 5
        saTest(I) = sElement
    Next I
    '
    txtTest.Text = Join(saTest, "%")    'each substring is devided by "%".
    '
End Sub