| Вопрос: Обработка текущей строки в Textbox | Добавлено: 21.11.05 12:23 |
Автор вопроса:  «UL.eXe» | ICQ: 197.895.916.247 |
|
Привет всем!
Помогите, как мне считать данные только из текущей строки? Например: Я ввожу в textbox команду и жму 13 кейкод :), программа проверяет эту строку, если в базе команда не найдена, выдает - нет такой команды Если есть - выполняет соответствующие действия... Проблема в том, что я не умею правильно пользоваться InStr и никак не могу добиться, чтобы проверялся не весь текст в textbox, а текукщяя строка.. Заранее Спасибо!! |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Tamplier ICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #1 | Добавлено: 21.11.05 13:14 |
|
Dim strLine as String strLine = Left(Text1.Text, Len(Text1.Text) - InStr(1, Text1.Text, Chr(13), vbBinaryCompare)) Это если строка первая в поле. Если нет, то надо писать подробнее, а это долго. У меня где-то валяется подобная вещь, я ее даже недавно использовал. В след. раз тыркну. |
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 21.11.05 15:58 |
|
а зачем inStr ? Если я правельно понял задание, то:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'Enter Select Case Text1 Case "команда 1" MsgBox "команда 1" Case "команда 2" MsgBox "команда 2" Case "команда 3" MsgBox "команда 3" Case Else MsgBox "коМанда  не найдена... "
End Select End If End Sub |
||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 21.11.05 16:25 |
|
а..... так мож тебе текст на строки разбить?
Dim tmpArr() as String tmpArr = Split (text1, vbCrLf) msgbox "Всего строк: " & Ubound (tmpArr) а чтобы определить где сейчас курсор в TextBox ненадо даже голово напрягать, только пальцы ну всмысле пойщи ка примерчик, где-то был, мож даже здеся...
|
||
|
Номер ответа: 4 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #4 | Добавлено: 21.11.05 18:18 |
| сенкс 2 Hacker | ||
|
Номер ответа: 5 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #5 | Добавлено: 23.11.05 16:55 |
| Кстати, еси кому понадобится мной тыркнутое, там ошибка. Искать надо не Chr(13), a Chr(13) & Chr(10). | ||
|
Номер ответа: 6 Автор ответа: PashenkoICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #6 | Добавлено: 23.11.05 17:13 |
|
Искать надо не Chr(13), a Chr(13) & Chr(10).
А можно VbCrLf. |
||
|
Номер ответа: 7 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #7 | Добавлено: 23.11.05 19:22 |
|
vbNewLine
кто ещё? |
||
Страница: 1 |