一个问题:我的窗体上有一个菜单,我想让我的每个子窗体上都在一个和父窗体一模一样的菜单,而不想在子窗体上一个一个手工建立请问有没有别

Question

一个问题:我的窗体上有一个菜单,我想让我的每个子窗体上都在一个和父窗体一模一样的菜单,而不想在子窗体上一个一个手工建立请问有没有别的什么方法呀????

Answer 1

窗体变量数组
与声明其它任何类型数组的方法相同，可以使用 Private、Dim、ReDim、Static 或 Public 声明窗体数组。如果数组声明使用了 New 关键字，则当使用该数组的元素时，Visual Basic 将自动为数组中每个元素创建一个新窗体实例。Private Sub Command1_Click ()
   Dim intX As Integer
   Dim frmNew(1 To 5) As New Form1
   For intX = 1 To 5
      frmNew(intX).Show
      frmNew(intX).WindowState = vbMinimized
      '为了不让它们第一次以正常大小出现而
      '创建最小化窗体，可改变
      '上面两行的顺序。
   Next
End Sub按命令按钮执行上述代码，将建立五个最小化的 Form1 实例。注意   如果查看任务栏，可看到六个 Form1。额外的 Form1 实例不是最小化的－ 它是刚开始使用的那个。

Answer 2

弹出式菜单就可以,
popupmenu 父窗体.菜单

Answer 3

popupmenu 父窗体.菜单
就是你命名菜单的名字，比如：popupmenu  form1.cj

Answer 4

一个笨办法，在文件夹里把.frm文件复制几个，用记事本打开，修改以下名字再添加到工程里去就可以了。
我做项目的时候，如果几个窗体差不多的话，就是这么做的。:D

Answer 5

新建一个MDI窗体，将其他窗体放入这个MDI窗体即可MDI窗体一个工程只能有1个，是专门做主容器窗体用的