。。。。。

菜单事件

 

_Click

 

If e.Sender.Name Like "??管理" Then

    Forms(e.Sender.Name).Open

    Forms(e.Sender.Name).BaseForm.MdiParent = BaseMainform

End If

If e.Sender.Name Like "Window_*" Then

    Forms(e.Sender.Name.Replace("Window_","")).BaseForm.Select

End If

Select Case e.Sender.Name

    Case "层叠"

        BaseMainform.LayoutMdi(Windows.Forms.MdiLayout.Cascade)

    Case "垂直平铺"

        BaseMainform.LayoutMdi(Windows.Forms.MdiLayout.TileVertical)

    Case "水平平铺"

        BaseMainform.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

    Case "全部关闭"

        For Each ChildForm As Windows.Forms.Form In BaseMainform.MdiChildren

            ChildForm.Close()

        Next

    Case Else

        Return

End Select

。。。。

在项目里面怎么找到这个代码啊，在菜单的click事件找不到啊。。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:mdi应用程序.rar