＋设为首页 ＋添加到收藏夹
我做一个没有边框的程序,即borderstyle=none,在不加弹出菜单时可以,但加上了,却出现了边框,即borderstyle=none不起作用了,请问如何解决?
是阿，我测试了一下也是这样的
看过一个叶帆的例子，有菜单。但是没有边框，挺复杂的。
用代码创建菜单呢?
试试API动态添加菜单吧,网上找找应该能找到
怎么还没搞定？！看我的，将如下代码复制到BorderStyle为None的窗体代码中，试试，没问题了吧？呵呵。。。
Option Explicit
Private Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long
Private Declare Function CreateMenu Lib "user32" () As Long
Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
Private Const MF_STRING = &H0&
Private Sub Form_Activate()
Dim hMenu As Long
hMenu = CreateMenu() ´´½¨Ò»¸öеIJ˵¥£¬
Append a few menu items
AppendMenu hMenu, MF_STRING, ByVal 0&, "&Hello !"
SetMenu Me.hwnd, hMenu
End Sub
那二级菜单怎样设置参数呢？
别管新建一个窗体,把菜单放到里面,你弹出第二个窗体的菜单就不就解决了
