• Home
 · 
• Miscellaneous
 · 
• 'You Can Type A Text Without Using The Shift Button To Capital The Beggining Of Every Letter. This

'You Can Type A Text Without Using The Shift Button To Capital The Beggining Of Every Letter. This

'You Can Type A Text Without Using The Shift Button To Capital The Beggining Of Every Letter. This Is Useful When You Want To Type A Biodata

API Declarations


'Preparation One TextBox
Dim cc as Integer



Rate 'You Can Type A Text Without Using The Shift Button To Capital The Beggining Of Every Letter. This

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim a, b, c, d
a = Text1.Text
b = Text1.SelStart
If b = 1 Then
Text1.Text = UCase(a)
Text1.SelStart = b + 1
End If

If KeyAscii = vbKeySpace Then
cc = 3 + b
End If
b = b + 1

If cc = b Then
c = Right(a, b - b + 1)
d = Left(a, b - 2)
Text1.Text = d & UCase(c)
Text1.SelStart = b + 1
End If
End Sub