Помогите вставить txt1.SelText так, чтобы после двойного нажатия пробела фокус возращался в конец слова, а в случае однократного нажатия просто печатался пробел!!!

Код

Private Sub txt1_Change() Dim Word As String Dim Schetchik%, j%, i%, count%, flag As Boolean Const soglasnie$ = "бвгджзйклмнпрстфхцчшщ"  While InStr(txt1, "  ") > 0    txt1 = Replace(txt1, "  ", " ") Wend For i = 1 To Len(txt1)     Word = Trim(Mid(txt1, i, InStr(i, txt1, " ", vbBinaryCompare))) 'Слово без пробела If Trim(Word) <> "" Then j = 1 flag = False    Do While j <= Len(Word$) And flag = False      If Mid(Word, j + 1, 1) = Mid(Word, j, 1) And _      InStr(soglasnie, Mid(Word, j, 1)) <> 0 Then Schetchik = Schetchik + 1: flag = True    j = j + 1  Loop      count = count + 1    i = InStr(i, txt1, " ", vbBinaryCompare) End If Next i On Error Resume Next lbl1 = Format(Schetchik / count * 100, "0.00") & "%" If txt1.Text = "" Then lbl1.Caption = "" End Sub

Это сообщение отредактировал(а) cardinal - 22.12.2005, 01:37

1. Перед тем как писать посты, не сочтите за труд, перечитайте правила форума и шапку. Вы найдете для себя много интересного.
2. Если Вас этому учили, Вы должны примерно представлять, как это делается.
3. Не понимаю назначение остального кода. Причем здесь согласные?
4. Придерживайтесь, плз, нормального стиля кодинга -- сей код неудобоварим. Вместо

Код

Dim i%

старайтесь писать

Код

Dim i As Integer

. Складывается впечатление, что код не Ваш.
5. Пожалуйста, зарегистрируйтесь.
Добавлено @ 00:07
По сабжу: должно быть вроде

Код

Sub txt_Change() If Right$(txt.Text, 1) = "  " Then txt.Text = Left(txt.Text, Len(txt.Text) - 2) End Sub

, если я верно понял условие. Переформулируйте, пожалуйста, вопрос.
Добавлено @ 00:09
В вышеуказанном коде Left надо заменить на Left$.