Làm sao chay lệnh trong Menu này

[nguyendangkhoi]

em có lang thang trong dien đàn và thấy có bài viết về menu form nhưng không biết làm sao gán lệnh chạy macro vao menu . nhờ các anh chị chỉ giúp em cách gán lệnh để chạy macro.


hForm = FindWindow("ThunderDFrame", "TestMenu")
Debug.Print hForm
hMenu = CreateMenu()
Debug.Print hMenu
hPopUpMenu = CreatePopupMenu()
rv = AppendMenu(hPopUpMenu, MF_STRING, 40000, "Menu Item 1")
Debug.Print rv
rv = AppendMenu(hPopUpMenu, MF_STRING, 40001, "Menu Item 2")
Debug.Print rv
rv = AppendMenu(hMenu, MF_POPUP, hPopUpMenu, "Top-Level")
rv = SetMenu(hForm, hMenu)

 

[thuyyeu99]

Nếu mình không lầm chắc bạn tạo menu form, nếu bạn tạo theo cách này muốn chạy thì bạn tham khảo. Nhưng tôi thấy trong GPE có nhiều cách hay lắm bạn giốn như menu tiến việt của anh TuanVNI Lập Trình với Window/Form, Control và Objects

 

[thanhnhanubnd]

Đúng là cái này hay thiệt nhưng hơi ... siêu quá. Cuả anh tuanvni thì quá ghê gớm. Bạn có thể cho 1 ví dụ đơn giản hơn 1 tí không? Thank

 

[thuyyeu99]

Đúng là cái này hay thiệt nhưng hơi ... siêu quá. Cuả anh tuanvni thì quá ghê gớm. Bạn có thể cho 1 ví dụ đơn giản hơn 1 tí không? Thank

Bạn muốn ví dụ đơn giản là sao mình chưa hiểu ?
Bạn làm theo cách của anh TuanVNI hay của anh lê văn duyệt thì đơn giản nhất mà lại chạy good nữa.