textbox и правая кнопка мыши

[corgi]

обычно по клику правой кнопкой мыши появляется стандартное меню(типа копировать вставить и тд) в VBA'шном textbox'e ничего такого не появляется а пользователи посто-таки требуют этого дела. Вот и вопрос может как-то можно им это сделать а особо не заморачиваясь

[RayShade]

Ну можно через API сделать свое меню и показывать его в обработчике mouseup я так мыслю.

[corgi]

ну а что-нибудь полегче не найдется

[RayShade]

а куда легче-то?

Чего турдного в том, чтобы поступить как описано? Это гораздо проще, чем к примеру вручную рисовать меню и обрабатывать перемещения по нему

[Calvin]

Судя из того, что написано в хелпах, то у textbox нет события BeforeRightClick. А можно ли его создать для объетов..... (может есть какие-нибудь мысли)????

[RayShade]

А оно ему надо, это событие? Есть же MouseUp - и в него передается кнопка, которая была отпущена.

[Calvin]

Почитал в хелпе и там действительно можно задействовать любую из кнопок мыши, присваивая параметру Button значения, а также сочетания клавиш Ctrl, Shift, Alt (параметр Shift ), но чегой-то прога ругается и мне кажется, что ей не нравятся типы fmButton и fmShiftState

Код: Выделить всё

Private Sub object_MouseUp( ByVal Button As fmButton, ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single)


в чем здесь глюк??? у меня 2000-й офис и справка к нему (дополнено)

[RayShade]

Глюк в том, что ты читал хелпу похоже от 97 офиса.

В нынешнем (ХР) эти значнеия имеют просто тип integer.

[corgi]

2Calvin:

Код: Выделить всё

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
End Sub


2RayShade:
может скажешь с чего начать, а то я без понятий

[alibek]

Имелось ввиду примерно так:

Код: Выделить всё

Private Sub DrawPopupMenu()
Dim hMnu0 as Long
hMnu0 = CreatePopupMenu()
Call AppendMenu(hMnu0, MF_STRING, 0, "Menu 1")
Call AppendMenu(hMnu0, MF_SEPARATOR, 0, Byal 0)
Call AppendMenu(hMnu0, MF_CHECKED, 0, "Menu 2")
...
End Sub

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then DrawPopupMenu
End Sub


А затем через сабклассинг окна перехватываешь выбор команды меню. Проблема в том, что в VBA окна не имеют Handle, так что я не знаю, как ты сможешь осуществить сабклассинг.
Так что лучше всего скажи пользователям "ША! Кто тут программер?! Не будет меню, я сказал!"

[Fuzzy]

Можно сделать, например, так.
Создай форму UserForm1, на неё плюхни текстбокс TextBox1. В модуле формы напиши:

Код: Выделить всё

Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then 'если правая кнопка
    'создаём новое поп-ап меню
    Set MyCB = CommandBars.Add("MyPanel", msoBarPopup)
    'и заполняем его кнопками.
    With CommandBars("Edit") 'берём их из меню "Правка"
    'и вешаем на них наши процедуры
        MyCB.Controls.Add(msoControlButton, .Controls("Копировать").ID).OnAction = "MyCopy"
        MyCB.Controls.Add(msoControlButton, .Controls("Вырезать").ID).OnAction = "MyCut"
        MyCB.Controls.Add(msoControlButton, .Controls("Вставить").ID).OnAction = "MyPaste"
    'если офис нелокализованный, то надо вместо Копировать,
    'Вырезать и Вставить вписать Copy, Cut и Paste
    End With
    MyCB.ShowPopup 'показываем наш поп-ап
    MyCB.Delete 'а потом можно и удалить
End If
End Sub

'наши процедуры для копирования, вырезания и вставки
Sub MyCopy()
UserForm1.TextBox1.Copy
End Sub

Sub MyCut()
UserForm1.TextBox1.Cut
End Sub

Sub MyPaste()
UserForm1.TextBox1.Paste
End Sub

У меня вроде работает как надо

[Calvin]

У меня почему-то при нажатии, допустим, на "копировать" не осуществляется выполнение Sub MyCopy, странно...... А во-вторых

Sub MyCopy()
UserForm1.TextBox1.Copy
End Sub

тут скорей всего не сам объект копировать нужно, а содержимое

[Fuzzy]

Поистине странно, что у тебя не работает чего-то. Проверил и в 97-м, и в 2000-м, и в ХР. Дай мыло, пришлю файл.
Насчёт метода TextBox.Copy - он копирует не объект, а выделенный в нём текст.
О чём написано в хелпе.

[corgi]

ну тогда и мне тоже на nikolai@pochta.ws

[Fuzzy]

А, братья, извините, мой дурак, неправильно написал
Процедуры MyCopy, MyPaste и MyCut надо не в модуле формы, а в отдельном модуле держать.