想把设计的菜单的某一项单独放在菜单的最右边.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

这 一 效 果 是 Windows 3.0的 效 果 ， 现 在 已 经 有 些 落 伍 。 
    在 vb6中 可 以 在 Form_Load中 使 用 
     menuname.caption=chr$(8)+menuname.caption 
    将 菜 单 放 在 右 侧 。 不 过 在 vb6以 上 版 本 都 不 行 了 。 在 vb6中 必 须 借 助 于 API才 能 实 现 。 假 定 你 的 菜 单 有 两 项 ： File、 Help。 采 用 下 面 的 代 码 可 以 让 Help排 在 最 右 边 。 
    Const MF_HELP = &H4000& 
    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 
    Const MF_BYPOSITION = &H400& 
    Const MF_POPUP = &H10& 
    Private Sub Form_Load() 
     Dim hMenu 
     hMenu = GetMenu(hwnd) 
     ModifyMenu hMenu, 1, MF_HELP Or _ 
     MF_POPUP Or MF_BYPOSITION, 0, "Help" 
    End Sub 
<END>