Форум программистов CODEBY.NET Хостинг в Беларуси — Active Technologies

Разработка бизнес сайтов

Нужны клиенты? Тогда сюда быстрее...
X   Сообщение сайта
(Сообщение закроется через 2 секунды)

Здравствуйте, гость ( Вход | Регистрация )




> Vb6: Вставить текст, VB6: Вставить текст в поле по позиции курсора
ЯZ1
Вставить ник
сообщение 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
 
Новая тема 
Ответов (1 - 1)
MrSmit
Вставить ник
сообщение 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

+/- один надо еще сделать где-то smile.gif

зы: если перед этим изменить текст, то SelStart возвратит ноль.

2. Вот пример чтения текстового файла http://kbyte.ru/Refbooks/Show.aspx?id=78
Подняться вверх 
 
Сообщение #2


Ответить  Новая тема 

 

RSS Текстовая версия Сейчас: 17:05:2008 - 05:13
с нами можно связаться по:
телефону: +375-(29)-632-60-67
e-mail:info@codeby.net