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

Тема в разделе "Visual Basic", создана пользователем -, 7 фев 2008.

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

    MrSmit Гость

    1. Text1.SelStart - содержит позицию курсора в текстовом поле:

    Код (Text):
    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
     
Загрузка...
Похожие Темы - Vb6 Вставить текст
  1. dEND
    Ответов:
    0
    Просмотров:
    74
  2. Никита29
    Ответов:
    0
    Просмотров:
    422
  3. alexandr777
    Ответов:
    0
    Просмотров:
    417
  4. Edgar4
    Ответов:
    2
    Просмотров:
    1.271
  5. TheDemetrius11
    Ответов:
    1
    Просмотров:
    1.220

Поделиться этой страницей