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

Theo mặc định thì thanh menu chính luôn nằm ở góc bên phả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.Hãy tạo một 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 :
Private Declare Function GetMenu Lib ''user32'' (ByVal hwnd As Long) As Long
Private Declare Function ModifyMenu Lib ''user32'' Alias ''ModifyMenuA'' (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
Private Declare Function DrawMenuBar Lib ''user32'' (ByVal hwnd As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_HELP = &H4000&

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

Nguồn : Thanglong-Aptech

Posted in: Ngôn ngữ lập trình VB, Tự học lập trình visual basic