Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: KrukVN


посоветуй вариант


вот, нашел

Private Sub lst_Find_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = acRightButton Then
        Call PopUpMnu(Me)
    End If
End Sub

'Контекстное меню
Private Sub PopUpMnu(ByVal frm As Form)
On Error Resume Next
    Dim cmdbarPopUp As Variant
    Dim cmdb As Variant
    Application.CommandBars.Item("PopUpMnu").Delete

    Set cmdbarPopUp = Application.CommandBars.Add("PopUpMnu", 5, , False)

    Set cmdb = cmdbarPopUp.Controls.Add(1)
        cmdb.Caption = "Открыть     (Enter)"
        cmdb.FaceId = 534
        cmdb.OnAction = "=OpenRec()"
        cmdb.Enabled = frm.tbr_list.Buttons("RecEdit").Enabled
    Set cmdb = cmdbarPopUp.Controls.Add(1)
        cmdb.Caption = "Добавить   (Ins)"
        cmdb.FaceId = 535
        cmdb.OnAction = "=NewRec()"
        cmdb.Enabled = frm.tbr_list.Buttons("RecAdd").Enabled
    Set cmdb = cmdbarPopUp.Controls.Add(1)
        cmdb.BeginGroup = True
        cmdb.Caption = "Выбрать!"
        cmdb.FaceId = 533
        cmdb.OnAction = "=ViborRec()"
        cmdb.Enabled = frm.tbr_list.Buttons("Vibor").Enabled
    Set cmdb = cmdbarPopUp.Controls.Add(1)
        cmdb.BeginGroup = True
        cmdb.Caption = "Удалить     (Del)"
        cmdb.FaceId = 536
        cmdb.OnAction = "=DelRec()"
        cmdb.Enabled = frm.tbr_list.Buttons("RecDel").Enabled

    Set cmdb = Nothing

    Set cmdbarPopUp = Nothing
    frm.lst_find.ShortcutMenuBar = "PopUpMnu"
End Sub

но.. может можно красивше сделать


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.