TAILIEUCHUNG - Lập trình với menus và toolbars

Mục đích: Tạo menu popup khi người dùng Right-Click khi chuột trong vùng làm việc của một worksheet. Giả sử workbook của tôi có một worksheet, thì trong ví dụ của tôi có hai đoạn mã. Đoạn thứ nhất nằm trong Module VBA: PopupMenu và đoạn mã thứ hai nằm trong module worksheet: workhere | Lập trình với menus và toolbars Menu Pop-Up Mục đích Tạo menu popup khi người dùng Right-Click khi chuột trong vùng làm việc của một worksheet. Giả sử workbook của tôi có một worksheet thì trong ví dụ của tôi có hai đoạn mã. Đoạn thứ nhất nằm trong Module VBA PopupMenu và đoạn mã thứ hai nằm trong module worksheet workhere Đây là đoạn mã trong module VBA PopupMenu Code Option Explicit Public Const gc_Title PopUp Menu Demo Public gcBar_RgtClkMenu As CommandBar Muc dich Gọi hàm tạo popup menu người dùng Sub RunMeToGetThingsGoing Set gcBar_RgtClkMenu CreateSubMenu End Sub Hàm tạo popup menu Function CreateSubMenu As CommandBar đặt tên cho popup menu Const lcon_PuName PopUpDemo Tạo các đối tượng cho cho popup menu Dim cb As CommandBar Dim cbc As CommandBarControl Chắc chắn rằng popup menu không tồn tại DeleteCommandBar lcon_PuName Thêm popup menu người dùng cho tập họp collection CommandBars Set cb Name lcon_PuName Position msoBarPopup MenuBar False Temporary False Thêm vào controls Set cbc With cbc .Caption Control 1 .OnAction DummyMessage End With Set cbc With cbc .Caption Control

TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.