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 :

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

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

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

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

GeSHi © Codebox Plus

[Koha JeseMen]

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