我用VB2008做一个小系统,我在别处复制的一段代码,按我的系统修改的,只是为了实现点击菜单栏,从一个窗体跳到另一个窗体而已,修改出来没有报错,但是运行的时候,除了最后一句可以正缺关闭窗口外,其他点击任何一个都运行错误,提示说:“被指定为此窗体的MdiParent的窗体不是MdiContainer。参数名:value。”
代码如下:
- VB.NET code
Public Class 功能首页 Private Sub 新增销售DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增销售DToolStripMenuItem.Click Dim xiaoshou As New 新增销售 xiaoshou.MdiParent = Me 新增销售.Show() End Sub Private Sub 退货管理XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退货管理XToolStripMenuItem.Click Dim tuihuo As New 退货管理 tuihuo.MdiParent = Me 退货管理.Show() End Sub Private Sub 入库管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 入库管理ToolStripMenuItem.Click Dim ruku As New 入库管理 ruku.MdiParent = Me 入库管理.Show() End Sub Private Sub 商品信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 商品信息查询ToolStripMenuItem.Click Dim chaxun As New 商品信息查询 chaxun.MdiParent = Me 商品信息查询.Show() End Sub Private Sub 安全退出ToolStripMenuItem_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles 安全退出ToolStripMenuItem.Click Me.Close() End Sub End Class
Please help me...
------解决方案--------------------
在属性栏,把ME.ISMDICONTAINER设为TRUE