在无边框表单上有一个弹出菜单

Question

如何在VB 6.0无边框表单上添加弹出菜单？

每次添加菜单时,边框都会重新出现,即使BorderStyle设置为vbBSNone并且菜单被隐藏也是如此.

Answer 1

这是可行的,但有些不满意(对我而言).通过在表单中​​包含任何菜单属性,边框将默认返回可见.但是,有一些解决方法:

1)我认为你喜欢的方法涉及制作你永远不会真正"使用"或看到的第二种形式.将菜单放在第二个表单上,然后从您实际想要使用的表单中调用该菜单.假设您正在使用Form_MouseDown此代码,请输入以下代码:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button And vbRightButton Then PopupMenu Form2.mnuYourMenu
End sub

但是,您必须记住从内存中卸载第二个表单.

2)另一种方法,只使用第一种形式,将表单设置ControlBox为False并将Caption属性留空.当BorderStyle设置为0 时,这会"删除"边框...我将删除引号放在引号中,因为它会遗漏一条1像素的黑线.它看起来并不坏,但它可能不适合您.

3)最后一种方式,我读到但未对自己做过任何事情,将使用CreatePopupMenuAPI,见http://allapi.mentalis.org/apilist/CreatePopupMenu.shtml

希望这可以帮助!