最傻瓜式的VBA窗体菜单

kmzbh · 发表于 2011-4-15 12:12

很菜很鸟，先下载

ExceLearn · 发表于 2012-3-18 22:15

这是窗体菜单非常简洁的实现方式。
但在2003版中可以使用，为什么在2007版中不可用呢？如果修改，才能在07版中使用此程序呢？谢谢。

ExceLearn · 发表于 2012-3-18 22:29

这是窗体菜单非常简洁的实现方式。
但在2003版中可以使用，为什么在2007版中不可用呢？如何修改，才能在07版中使用此程序呢？谢谢。

yykxiaoyang · 发表于 2012-4-9 16:15

ExceLearn 发表于 2012-3-18 22:29
这是窗体菜单非常简洁的实现方式。
但在2003版中可以使用，为什么在2007版中不可用呢？如何修改，才能在07 ...

本人老了，跟不上时代了，没用过2007

humengqiang · 发表于 2012-4-19 07:17

下载，学习了

山山好又快 · 发表于 2012-7-26 08:10

下载，学习并收藏！

弈者 · 发表于 2012-12-21 15:37

喜欢就是弄不懂

timeyh · 发表于 2014-11-15 11:13

yykxiaoyang 发表于 2010-1-17 14:20
回这位朋友:
也许是我说的不够准确,见附件,当模式窗体显示后,点打开菜单,会出来打开对话框,然后,该窗 ...

楼主，你好，你的这个东西我一直在找，但我现在找到了之后又看不懂，可否烦请在代码上加一些注解，这样，我们这些小菜学习起来就好多了。谢谢先！

yykxiaoyang · 发表于 2014-11-20 13:39

timeyh 发表于 2014-11-15 11:13
楼主，你好，你的这个东西我一直在找，但我现在找到了之后又看不懂，可否烦请在代码上加一些注解，这样， ...

Private Sub UserForm_Initialize()
Call AddNewBar‘创建菜单
Dim hbar As Long, myhwnd As Long
myhwnd = FindWindow(vbNullString, Me.Caption)’获取窗体句柄
hbar = FindWindow("MsoCommandBar", "NewBar")‘获取菜单句柄
SetParent hbar, myhwnd’将自定义菜单父窗体设置为你自己的窗体（默认的为excelAPP)
With Application.CommandBars("NewBar")'以下为调整菜单位置及设置菜单属性
      .Protection = msoBarNoChangeDock
      .Top = -20
      .Left = -1
      .Protection = 4 + 2 + 8
End With
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Application.CommandBars("NewBar").Delete‘关闭窗体时卸载自定义菜单
End Sub

happy_109 · 发表于 2016-10-2 01:00

第一次来试试这个，不太懂

		自动登录	找回密码
密码			免费注册

[原创] 最傻瓜式的VBA窗体菜单