VPF::КОнтекстное меню TextBox - Форум программистов

Aq1982

Дата 20.2.2005, 20:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 1.1.2005

Репутация: 1
Всего: 1

Во какой вопрост возник: У меня на форме расположен TextBox с multilie=true, у него понятно есть свое контекстное меню (Копировать, вставить ....). А можно ли как-нить добавить пункт в это меню, и как его потом обработать? Или может проще сделать копирование, вырезание, вставку вручную, подменив это меню, тогда как заблокировать стандартное? Вот скока вопросов smile

korob2001

Дата 21.2.2005, 02:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Как добавить пункт не знаю, а вот подменить можно.

1. Добавь к проекту текстовое поле.
2. Установи Multiline = True
3. Создай выпадающее меню, с помощью MenuEditor, например: mnuFile
4. Установи его значение свойства Visible = False
5. Добавь следуюший код в окно кода формы и дальше читай коментарии.

Код


Option Explicit

Private Declare Function LockWindowUpdate Lib "User32" (ByVal hwndLock As Long) As Long

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' Если чел кликнул правой кнопкой мыши то, блокируем
    ' стандартное меню и выводим наше mnuFile
    If Button = vbRightButton Then
        LockWindowUpdate Text1.hWnd
        Text1.Enabled = False
        DoEvents
        ' В следующей строке укажи имя своего меню, которое хочешь увидеть в виде контекстного
        PopupMenu mnuFile
        Text1.Enabled = True
        LockWindowUpdate 0&
    End If
End Sub

Private Sub Form_Load()
     ' Растягиваем тектовое поле на всю форму
     Form_Resize
End Sub

' Если юзер меняет размер формы, то меняем и размер поля.
Private Sub Form_Resize()
    Text1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Если что-то не понятно, то качай файл прицепленный ниже. Через MenuEditor можешь просмотреть или отредактировать созданное контекстное меню.

Удачи

Это сообщение отредактировал(а) korob2001 - 21.2.2005, 02:54

Присоединённый файл ( Кол-во скачиваний: 2 )

Project1.zip

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »