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

[Guest]

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

 

[MrSmit]

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. Вот пример чтения текстового файла

Ссылка скрыта от гостей