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

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)最后一种方法，我读过但没有对自己做过任何事情，是使用 CreatePopupMenu API，位于 http://allapi.mentalis.org/apilist/CreatePopupMenu.shtml

希望这可以帮助!