Chuyển mục chọn trên Menu chính sang góc phải

[nimgiaminh]

Thủ thuật: Chuyển mục chọn trên Menu chính sang góc phải
Tác giả: Sưu tầm
Mô tả: Theo mặc định thì thanh menu chính luôn nằm ở góc bên trái. Và VB cũng không cung cấp cho chúng ta bất cứ thuộc tính gì để đưa nó sang bên phải. Nhưng với API bạn có thể dễ dàng làm được điều này.

---

1. Điều đầu tiên chúng ta cần làm là tạo 1 cái form mới :
Sau đó Click vào Tools --> Menu Editor để thêm vào chương trình 3 menu
chính còn các menu con thì tùy ý.

2. Dùng đoạn Code sau :

Code: [Select all] [Expand/Collapse] [Download]

1. Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
2. Private Declare Function ModifyMenu Lib "user32" Alias ''ModifyMenuA'' (ByVal hMenu As Long, ByVal
3. nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
4. Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
5. Private Const MF_BYPOSITION = &H400&
6. Private Const MF_HELP = &H4000&
7.  

GeSHi © Codebox Plus

[vb]
Private Sub Form_Load()
res = GetMenu(Me.hwnd) ' Lấy Handle của Menu
ModifyMenu res, 2, MF_BYPOSITION Or MF_HELP, 2, "&Help"
DrawMenuBar Me.hwnd ' Vẽ lại Menu Bar
End Sub[/vb]

[Koha JeseMen]

Lỗi : Private Declare Function ModifyMenu Lib "user32" Alias ''ModifyMenuA'' (ByVal hMenu As Long, ByVal