• Home
 · 
• String Manipulation
 · 
• Write in a text box alternating upper and lower case ... using vbstrconv Just add a TEXTBOX and a C

Write in a text box alternating upper and lower case ... using vbstrconv Just add a TEXTBOX and a C

Write in a text box alternating upper and lower case ... using vbstrconv Just add a TEXTBOX and a COMMAND BUTTON. If you paste the code in the

API Declarations


Dim d, f, u As String





Rate Write in a text box alternating upper and lower case ... using vbstrconv Just add a TEXTBOX and a C

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub Command1_Click()


    For i = 1 To Len(Text1.Text) Step 2
        u = StrConv(Mid(Text1.Text, i, 1), vbUpperCase)
        f = StrConv(Mid(Text1.Text, i + 1, 1), vbLowerCase)
        d = d & u & f
    Next
    Me.Text1.Text = d
    d = ""
End Sub