Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 165345
19.04.2009, 16:29
0.00 руб.
0 2 0
Компьютеры Программирование
Здравствуйте! Помогите пожалуйста написать программу, чтоб при нажатии на кнопку во введенном в edit тексте буква после точки и после точки с пробелом переходила в верхний регистр (становилась заглавной). Спасибо!

Обсуждение

давно
PsySex
Профессионал
848
1596
20.04.2009, 01:56
общий
Привет.
Код:

Private Sub Command1_Click()
Dim sStr As String
Dim sStr1 As String
Dim n As Long

sStr = Text1.Text
n = 0
Do
    n = InStr(n + 1, sStr, ".")
    If n = 0 Then Exit Do
    If Asc(Mid(sStr, n + 1, 1)) = 32 Then
        sStr1 = Mid(sStr, n, 3)
    Else
        sStr1 = Mid(sStr, n, 2)
    End If
    sStr = Replace(sStr, sStr1, UCase(sStr1))
Loop
Text1.Text = sStr
End Sub
Неизвестный
20.04.2009, 20:51
общий
Код:
Private Sub TextBox1_Change()
Dim s$, i%, j%, g%
s = TextBox1.Text:      j = TextBox1.SelStart
If Not Len(s) = 0 Then
    Mid(s, 1, 1) = UCase(Left(s, 1))
    If j > 2 Then
        g = Asc(Mid(s, j - 1))
        Select Case g
        Case 46, 32:   s = Replace(s, Chr(g) + Mid(s, j, 1), Chr(g) + UCase(Mid(s, j, 1)))
        End Select
    End If
End If
TextBox1.Text = s:      TextBox1.SelStart = j
End Sub

Форма ответа