• 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

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

Các thủ thuật về hệ thống, thư mục, tập tin và mạng
Hình đại diện của người dùng
nimgiaminh
Thành viên danh dự
Thành viên danh dự
Bài viết: 432
Ngày tham gia: T.Bảy 07/08/2010 9:24 am
Đến từ: Ở dưới đó đó
Has thanked: 6 time
Been thanked: 18 time
Liên hệ:

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

Gửi bàigửi bởi nimgiaminh » T.Tư 09/02/2011 11:06 pm

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 :
  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.  


  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



Koha JeseMen
Thành viên chính thức
Thành viên chính thức
Bài viết: 24
Ngày tham gia: T.Ba 27/07/2010 9:00 pm
Has thanked: 5 time

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

Gửi bàigửi bởi Koha JeseMen » T.Tư 27/04/2011 5:44 pm

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


Quay về “[VB] Hệ thống - Tập tin - Thư mục và Mạng”

Đ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.1 khách