老师你好，上次你给我推荐了一个好例子，但是我把代码导出来后，代码看得迷迷糊糊，不知道

如何利用其中的部门代码来完善自己垂直平铺和水平平铺的功能，我知道这个问题解答起来可能比较

繁琐，我在论坛里面也查找了很多人的留言，涉及到全局代码，还是有部门狐友不知道怎么运用这个代码，

如图附件所示，如何实现点击商品信息把这个窗口垂直平铺或者水平平铺，列一下步骤可以吗？非常感谢。

此主题相关图片如下：qq截图20170223103007.jpg

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16371&skin=0

项目事件

AfterOpenProject

BaseMainform.IsMdiContainer = True

BaseMainForm.Controls("MainPages").Visible = False

计划管理

表事件

窗口表事件

窗口与控件事件

订单管理_AfterLoad

AddHandler e.Form.BaseForm.Load,AddressOf Form_Load

客户管理_AfterLoad

AddHandler e.Form.BaseForm.Load,AddressOf Form_Load

库存管理_AfterLoad

AddHandler e.Form.BaseForm.Load,AddressOf Form_Load

料品管理_AfterLoad

AddHandler e.Form.BaseForm.Load,AddressOf Form_Load

人事管理_AfterLoad

AddHandler e.Form.BaseForm.Load,AddressOf Form_Load

人事管理_Button2_Click

Dim Proc As new Process

Proc.File = "tencent://message/?uin=447502105"

Proc.Start

系统导航_Click

Forms(e.Sender.Name).Open

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

自定义函数

全局代码

API

Public Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

    sender.MdiParent = BaseMainform

End Sub

菜单事件

_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

_DropDown

If e.Sender.Name = "窗口" Then

    For i As Integer = e.Sender.Items.Count - 1 To 5 Step -1

        e.Sender.Items.RemoveAt(i)

    Next

    For Each Frm As WinForm.Form In Forms

        If Frm.Opened And Frm.FormStyle = 2 Then

            Dim BtnItem As New RibbonMenu.ToggleButton("Window_" & Frm.Name)

            BtnItem.Text = Frm.Name

            If Frm.BaseForm.Handle = BaseMainform.ActiveMdiChild.Handle Then BtnItem.Pressed = True

            e.Sender.Items.Add(BtnItem)

        End If

    Next

End If

系统功能_关于_联系作者_Click

Dim Proc As new Process

Proc.File = "tencent://message/?uin=447502105"

Proc.Start

 不理解你的意思，只需要执行这句代码不就好了？

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

1、你可以把窗口改成主窗口；

2、用mdi例子的话，就是可以达到你需要的效果的啊。

你的项目完全都没有别人例子中的关键代码。

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

点击浏览该文件:库存管理.table