[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Как сделать первую букву каждого слова заглавной (Как сделать первую букву каждого слова заглавной)
Как сделать первую букву каждого слова заглавной
ilimДата: Среда, 09.11.2011, 22:30 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
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


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Как сделать первую букву каждого слова заглавной (Как сделать первую букву каждого слова заглавной)
Страница 1 из 11
Поиск: