用VB的菜单编辑器没试过,不过 activeBar2 我知道应该是可以的 他自带的示例代码中就有在菜单右边放一个 logo 图片,你装个那控件448
#define MF_HELP 0x00004000L
vsnetmenu菜单控件 http://vbangle.5ivb.net
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, 4, MF_HELP Or MF_POPUP Or MF_BYPOSITION, 0, "5" End Sub
在设计一个自定义控件时,如何为它设置默认属性如:txtName.Text="WFN" 默认后:
txtName="WFN"
问的第一个问题就连顶的人都没有一个
他自带的示例代码中就有在菜单右边放一个 logo 图片,你装个那控件448
http://vbangle.5ivb.net
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, 4, MF_HELP Or MF_POPUP Or MF_BYPOSITION, 0, "5"
End Sub
http://community.csdn.net/Expert/topic/3156/3156716.xml?temp=.6200678
你在菜单纺辑器中找到你要调整位置的菜单,把它的协调位置调成右就行了。
问题2、
http://community.csdn.net/Expert/topic/3156/3156716.xml?temp=.6200678