• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Thêm Menu vào notepad

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Thêm Menu vào notepad

Gửi bàigửi bởi truongphu » T.Hai 26/05/2008 11:17 am

Thủ thuật: Thêm Menu vào notepad
Tác giả: truongphu Sưu tầm và chỉnh sửa
Mô tả: Thêm Menu vào notepad. Chắc là quanghoa đang cần


Mã: Chọn hết

  1. Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
  2. Private Declare Function CreatePopupMenu Lib "user32" () As Long
  3. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  4. Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
  5. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  6. Const MF_ENABLED = &H0&: Const MF_POPUP = &H10&: Const MF_STRING = &H0&: Const WM_NCPAINT = &H85
  7.  
  8. Private Sub Form_Load()
  9. Shell "Notepad"
  10. Dim newMenu&, notepad&, notepadMenu&
  11. newMenu = CreatePopupMenu
  12. Call AppendMenu(newMenu, MF_ENABLED Or MF_STRING, 0, "Item One")
  13. Call AppendMenu(newMenu, MF_ENABLED Or MF_STRING, 1, "Item Two")
  14. Call AppendMenu(newMenu, MF_ENABLED Or MF_STRING, 2, "Item Three")
  15. notepad = FindWindow("notepad", vbNullString)
  16. notepadMenu = GetMenu(notepad)
  17. Call AppendMenu(notepadMenu, MF_POPUP, newMenu, "Item List")
  18. Call SendMessage(notepad, WM_NCPAINT, 0&, 0&)
  19. Me.Show: Me.FontSize = 12: Me.FontBold = True
  20. Print "Notepad menu has Item List"
  21. End Sub


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Thêm Menu vào notepad

Gửi bàigửi bởi clarkkent » T.Hai 26/05/2008 1:21 pm

Wao ! Thử rồi, hay quá... :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách