Vb6: Вставить текст

  • Автор темы Guest
  • Дата начала
G

Guest

#1
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. Как указать на имя файла и дальше - на содержимое этого файла, чтобы фразу вставить в текст?
 
M

MrSmit

#2
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