Помощник
Здравствуйте, гость ( Вход | Регистрация )
|
|
7:02:2008, 03:21
|
|
Новенький ![]() Группа: Программист Сообщений: 2 Регистрация: 5:02:2008 Пользователь №: 15 182 Специализация: VB6 Репутация: 0
|
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. Как указать на имя файла и дальше - на содержимое этого файла, чтобы фразу вставить в текст? |
|
Сообщение
#1
|
|
![]() |
|
|
18:03:2008, 04:51
|
|
Новенький ![]() Группа: Программист Сообщений: 7 Регистрация: 18:03:2008 Пользователь №: 15 953 Специализация: programming Репутация: 0
|
1. Text1.SelStart - содержит позицию курсора в текстовом поле:
Код Dim s As String s = Right(Text1, Len(Text1) - Text1.SelStart) Text1 = Left(Text1, Len(Text1) - Text1.SelStart) Text1 = Text1 & "Добро пожаловать!" & s +/- один надо еще сделать где-то зы: если перед этим изменить текст, то SelStart возвратит ноль. 2. Вот пример чтения текстового файла http://kbyte.ru/Refbooks/Show.aspx?id=78 |
|
Сообщение
#2
|
|
![]() |
|
Текстовая версия | Сейчас: 17:05:2008 - 05:13 |