[UserForm]Popup from right click on UserForm-Click chuột phải trên Userform để thực thi một macro

tuhocvba · 21/7/19

Nội dung:
Trên UserForm, chúng ta click chuột phải và hiển thị ra menu popup, trên đó ta lựa chọn macro để thực thi.
Xem thêm video ở dưới để biết thêm chi tiết.

Code:
Giả sử trên UserForm chúng ta có một listbox, trên đó tôi click chuột phải vào listbox và popup hiển thị ra.
1. Như vậy đối với UserForm, bắt đầu sự kiện Initialize (khởi động Userform), tôi sẽ tiến hành định nghĩa Menu popup.
2. Đối với Listbox sự kiện chuột phải click, tôi cho hiển thị menu popup.
Cụ thể:
Trên UserForm tôi có code như sau:

Mã:

Dim myMenu

Private Sub UserForm_Initialize()
    Set myMenu = Application.CommandBars.Add(Position:=msoBarPopup, Temporary:=True)
    With myMenu
        With .Controls.Add
            .Caption = "Macro1"
            .OnAction = "Now_thv"
            .FaceId = 125
        End With
        With .Controls.Add
            .Caption = "Macro2"
            .OnAction = "ShowUserName"
            .FaceId = 607
        End With
    End With
End Sub
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then myMenu.ShowPopup
End Sub

Trên Module1 tôi có code như sau:

Mã:

Sub ShowUserName()
    MsgBox "tuhocvba.net"
End Sub
Sub Now_thv()
    MsgBox Day(Now())
End Sub

Thành quả sẽ được như sau:

Bạn cần đăng nhập để thấy đa phương tiện

tuhocvba · 21/7/19

Tham số FaceID tham khảo ở dưới:

Bạn cần đăng nhập để thấy hình ảnh

Nguồn:

Bạn cần đăng nhập để thấy link

[UserForm]Popup from right click on UserForm-Click chuột phải trên Userform để thực thi một macro

tuhocvba

Administrator

tuhocvba

Administrator