AllBasic
TextBox içerisindeki Kelimelerin İlk Harflerini Büyük Yapmak
TextBox içerisindeki Kelimelerin İlk Harflerini Büyük YapmakPublic Function AutoType(c As Control, KeyAscii As Integer) As Integer
AutoType = KeyAscii
If KeyAscii > 95 And KeyAscii < 123 Then
If c.SelStart = 0 Then
AutoType = AutoType - 32
ElseIf Mid$(c.Text, c.SelStart, 1) < "!" Then
AutoType = AutoType - 32
End If
End If
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = AutoType(Screen.ActiveControl, KeyAscii)
