代码求助：给窗口添加菜单条

import javax.swing.* import java.awt.* import java.awt.event.*

public class JMenuBarTest2 extends JFrame implements ActionListener {

    public JMenuBarTest2(){

        super("JMenuBar 练习")

        this.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE)

        this.setSize(900,900)

        this.getContentPane().setBackground(Color.BLACK)

        

        JMenuBar menubar=new JMenuBar()

        JMenuItem anItem

                

        JMenu menu1=new JMenu("文件")

        anItem=new JMenuItem("打开")  menu1.add(anItem)  anItem.addActionListener(this)

        anItem=new JMenuItem("退出")  menu1.add(anItem)  anItem.addActionListener(this)

        JMenu menu2=new JMenu("视图")

        anItem=new JMenuItem("单屏")  menu2.add(anItem)  anItem.addActionListener(this)

        anItem=new JMenuItem("全屏")  menu2.add(anItem)  anItem.addActionListener(this)

        menubar.add(menu1) 

        menubar.add(menu2) 

        

        this.setJMenuBar(menubar)

        this.setVisible(true)

    }

    

    public void actionPerformed(java.awt.event.ActionEvent e){

        if(e.getSource() instanceof JMenuItem){

            if("退出".equals(((JMenuItem)e.getSource()).getText())){

                this.dispose()

            }

        }

    }

    

    public static void main(String[] args) {

        new JMenuBarTest2()

    }

}

//结构挺清晰的了。小练习，不必另写一个类了。复杂一些的项目，再好好安排类的结构。

在excel里，用VBA添加菜单和子菜单的示例代码：

Sub 添加菜单()

On Error Resume Next

Application.CommandBars("").Delete

Dim 主菜单 As CommandBar

Dim 子菜单 As CommandBarControl

Set 主菜单 = Application.CommandBars.Add(temporary:=True)

Dim BER As CommandBarControl

With 主菜单

.Visible = True

.Position = msoBarTop

.Name

---