我在From1中用ribbon建了一个菜单栏~有3个选项卡，分别为"选项卡1，选项卡2，选项卡3”。选项卡1下面有4个子菜单，求点击子菜单1后弹出一个窗口，2也是一样`~

Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String)

'# This Event occurs when click on each Button
Form2.Show

End Sub
以上代码自己写的但是达不到我要效果。

dim fr as new form2           '生成一个 form2 实例
'处理需要初始化 form2 外部调用，如果无则直接下一句
fr.Show                       '显示 这个实例

这种情况下才会每次都开一个新窗体。

-----------------
Form2.Show
你这种的，每次都是 Form2 这个窗口显示，如果这个窗口已显示，则提到最前面。

但每次弹出的都From2这个窗体~我要做的是每个窗体他的功能都不一样`~
From2 From3 等等窗体
比如子项为系统项弹出的是From2窗体,子项为数据管理项弹出的是From3窗体

[ 本帖最后由 admin73896 于 2014-6-17 17:56 编辑 ]

Private Sub ACPRibbon1_ButtonClick(ByVal ID As String, ByVal Caption As String)

你根据 这个 ID 或 Caption 来找窗体啊。

dim fr as form
select case id
   case 1
   set fr=new form2
  case  2
   set fr= nre form3
......

end select
fr.show