| Вопрос: омогите вставить txt1.SelText | Добавлено: 21.12.05 23:06 |
Автор вопроса:  7395
|
|
Помогите вставить 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 |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #1 | Добавлено: 22.12.05 11:00 |
| Тут тебе может помочь GetAsyncKeyState и SendKeys. Ловишь по таймеру двойное нажатие пробела и если это произошло отправляешь в txt.Text клавише {vbEnd}. | ||
|
Номер ответа: 2 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 22.12.05 21:32 |
Сам писал?  )))
(знакомый код что-то, непомню только откуда я его помню) |
||
|
Номер ответа: 3 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #3 | Добавлено: 23.12.05 10:16 |
|
знакомый код что-то, непомню только откуда я его помню
помоему я его тут в примерах видел.. |
||
Страница: 1 |