窗体弹出菜单问题

Question

我做一个没有边框的程序,即borderstyle=none,在不加弹出菜单时可以,但加上了,却出现了边框,即borderstyle=none不起作用了,请问如何解决?

Answer 1

wenky_2000() 
不会吧?你可以试试啊?你新建一工程,将form1.borderstyle=none,然后运行,这时没有边框,但你只要在菜单编辑器里加任一单,不管是菜单是可见,还是不可见,窗体的边框就出现了,而form1.borderstyle=none失效了.

Answer 2

loki2k(loki),怎么创建,能给个例子吗?
没人会吗?
自己顶一下

Answer 3

试试API动态添加菜单吧,网上找找应该能找到

Answer 4

怎么还没搞定？！看我的，将如下代码复制到BorderStyle为None的窗体代码中，试试，没问题了吧？呵呵Option ExplicitPrivate 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