VBNet - Форум - Вставить текст в поле по позиции курсора

Вопрос: Вставить текст в поле по позиции курсора Добавлено: 07.02.08 06:05

Автор вопроса: ЯZ

1) Есть текст, уже заранее введённый пользователем «руками» в текстовое поле Text1(32).
Рядом сделана кнопка Command5, по которой в текстовое поле Text1(32) записывается предложение «Добро пожаловать!», но это предложение-шаблон появляется только в конце «пользовательского» текста,
Private Sub Command5_Click()
   If Len(Text1(32)) > 0 Then
      Text1(32) = Text1(32) + " "
   End If
   Text1(32) = Text1(32) + "Добро пожаловать!"
   Text1_LostFocus 32
End Sub

а НАДО вставить «Добро пожаловать!» – ПО ПОЗИЦИИ КУРСОРА (где в тексте поставить курсор, туда по кнопке и вставиться предложение). Помогите!

2) Для этого же примера:
Научите вставлять в текстовое поле Text1(32) готовое предложение из файла, т.е. фраза «Добро пожаловать!» записана в файле 1.txt. Как указать на имя файла и дальше - на содержимое этого файла, чтобы фразу вставить в текст?
Ответить

Ответы Всего ответов: 5

Номер ответа: 1 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| Цитата \| #1	Добавлено: 07.02.08 19:33
	Позиция курсора - Text1(32).SelStart Debug.Print Left$(Text1, Text1.SelStart) Debug.Print Right(Text1, Len(Text1) - Text1.SelStart) Ну дальше я думаю ясно Ответить

Номер ответа: 2 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| Цитата \| #2	Добавлено: 07.02.08 19:37
	Line Input #filenumber, varname - Последовательно читает одну строку из открытого файла в переменную String. Пример: Dim TextLine, File1 File1 = Freefile Open "ПУТЬ_К_ФАЙЛУ" For Input As #File1 ' Открываем файл Do While Not EOF(1) ' Зацикливаемся, пока не конец файла Line Input #File1, TextLine ' Читаем в переменную Debug.Print TextLine ' Печатаем в окно Debug Loop Close #File1 ' Закрываем файл Ответить

Номер ответа: 3 Автор ответа: ЯZ Вопросов: 4 Ответов: 4	Профиль \| Цитата \| #3	Добавлено: 08.02.08 14:24
	Спасибо за подсказку! Ответить

Номер ответа: 4 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| Цитата \| #4	Добавлено: 14.02.08 03:18
	Боже, сколько сложностей. Чтоб вставить текст в позицию курсора, достаточно написать Text1(32).SelText = "Добро пожаловать!" во втором примере тоже есть ошибка Ответить

Номер ответа: 5 Автор ответа: ЯZ Вопросов: 4 Ответов: 4	Профиль \| Цитата \| #5	Добавлено: 14.02.08 12:37
	Спасибо за ответ, всё получилось! Ответить

Страница: 1 |