Foxtable(狐表)用户栏目专家坐堂 → 不知道代码在哪里


  共有2334人关注过本帖树形打印复制链接

主题:不知道代码在哪里

帅哥哟,离线,有人找我吗?
arthurshoe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:1806 威望:0 精华:0 注册:2014/3/29 9:27:00
不知道代码在哪里  发帖心情 Post By:2014/10/11 20:49:00 [只看该作者]

在论坛上下载了一个 MDI应用程序 的.table项目,输出项目代码如下

。。。。。

菜单事件

 

_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


 回到顶部
帅哥哟,离线,有人找我吗?
arthurshoe
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:265 积分:1806 威望:0 精华:0 注册:2014/3/29 9:27:00
  发帖心情 Post By:2014/10/11 20:53:00 [只看该作者]

自己找到了。。在主菜单下的事件里面啊。。。

 回到顶部