VB6.0中我创建了一个窗体,其中添加了一个菜单栏,我想点击菜单栏让它显示另一个窗体,但是一直报错,求解

我在菜单栏中 输入了这个代码
Private Sub 添加商品基本信息_Click()
frmMater100.Show
End Sub
frmMater100窗体的Mdichild属性已经设置为true了。我菜鸟,求解答啊~

没有父窗体,就没有子窗体。你只是把一个窗体设为Mdichild有什么用?没有MDI主窗体啊!没有父亲,哪来的儿子?
要么把frmMater100窗体的Mdichild属性设置为False,让它和菜单所在窗体成为没有亲属关系的普通窗体;要么你就新添加一个MDI窗体,然后把当前窗体的菜单等等控件复制到新增的MDI窗体,再把启动对象设为这个新窗体,也就是把界面改为一父带多子的结构。
温馨提示:内容为网友见解,仅供参考
第1个回答  2012-04-04
二十年以前我也想搞过,结果没弄成!看到你的提问后网上查了查,实现如WINXP的“资源管理器”现在有办法了,可参考一下:先用vb建立一个dll工程,添加一,ojXQSi
第2个回答  2012-04-04
没有MDi父窗体啊,要么你把FrmMater100的MdiChild属性改为False,要么你在项目中添加一个MDI窗体

VB6.0中我创建了一个窗体,其中添加了一个菜单栏,我想点击菜单栏让它显示...
要么把frmMater100窗体的Mdichild属性设置为False,让它和菜单所在窗体成为没有亲属关系的普通窗体;要么你就新添加一个MDI窗体,然后把当前窗体的菜单等等控件复制到新增的MDI窗体,再把启动对象设为这个新窗体,也就是把界面改为一父带多子的结构。

怎么在Vb 6.0中一个窗口里面调用另一个窗口?
'在属性窗口将窗体的 startupposition 设置为 2,即屏幕居中。'下面代码将窗体大小设置为屏幕大小的 80 private sub form_load()me.move 0,0,screen.width 0.8,screen.height 0.8 end sub

VB6.0程序菜单制作?
4、在显示区中单击已经建好的菜单下面,再创建一个菜单。5、创建的菜单是否是原来新建的一级子菜单,或是二级子菜单,可以通过编辑区上的方向键来实现,单击右方向键按钮后,会看见它的一级子菜单前面有四个圆点,若是二级,圆点会增加到八个。6、创建完毕后,确定即可,现在在窗体上就可以看见刚才我...

请问vb6.0里怎么用一个窗体调用另外的窗体?
有两个窗体:form1、form2,在form1里的button1里写:dim frm as new form2 frm.show

VB如何在一个窗体设置多个下拉菜单?
1、启动VB6.0,创建一个标准工程。2、在窗体上单击鼠标右键,然后选择“菜单编辑器”,或在“工具”菜单上单击并选择。3、在弹出的“菜单编辑器”窗口中,输入标题和名称。在标题括号中使用“&”表示可以调用此函数。输入并保存后,您可以在下面的显示区域中看到刚刚编辑的菜单名。4、单击显示区域中的...

VB6.0怎么调出被关闭的工具窗口?
1、不小心点击默认界面中的关闭按钮(小叉号),全部关闭工具,工程,属性,页面布局窗口,如下图 2、调出工具窗口,点击菜单栏中的视图,选择如图所示的工具箱,点击完成 3、调出对象窗口(默认看到的form窗体),点击菜单栏中的视图,选择如图所示的对象窗口,点击完成,也可直接按快捷键Shift+F7 4、...

VB6.0如何让任务栏与窗体标体栏显示不同的文字
业内普遍采用的方法是若子窗体最大化,则在MDI父窗体中显示子窗体的标题:===

VB6.0程序中设计一个窗体,在窗体上添加一个标签和一个文本框以及一个...
按要求在窗体上添加一个标签和一个文本框以及一个命令按钮,双击命令按钮,删除所有代码,复制如下代码到程序中 Private Sub Command1_Click()If Val(Text1) Mod 2 = 0 Then Label1 = "偶数"Else Label1 = "奇数"End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) '判字符...

怎么在VB6.0中设置程序的菜单
VB6.0的“工具”菜单栏下有个“菜单编辑器”,或者按ctrl+E可以调出,专门制作VB程序的基本菜单

用VB6.0 写一个窗体,接收鼠标单击事件,并弹出一个msg框,不知道怎么弄...
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case Button Case 1 MsgBox "左击点击!" 'Case 2 'MsgBox "右击点击!" 'Case 4 'MsgBox "中间点击!" End SelectEnd Sub ...

相似回答