| |
Как сделать первую букву каждого слова заглавной |
|
| |
Разместите на форме элемент TextBox.
Запустите проект на выполнение и попробуйте
набрать несколько слов в элементе TextBox.
Private Function ccProperCase(MySourceControl As Control)
On Error GoTo ErrH
Dim strString As String
strString = MySourceControl.Text
If IsNull(strString) Then Exit Function
strString = StrConv(strString, vbProperCase)
MySourceControl.SelStart = Len(strString)
MySourceControl.Text = strString
Exit Function
ErrH:
MsgBox "Error at ccProperCase:::- " & Err.Number & " - " &
Err.Description, vbCritical
Exit Function
End Function
Private Sub Text1_Change()
Call ccProperCase(Text1)
End Sub
|
|
| |
|
|
|
|