VB2010实现主窗体与MDI子窗体合并菜单及工具栏

合并菜单及工具栏不是新技术也不是新话题,我只是把网上流行的C#代码用VB改写了下,分享给习惯了VB的朋友。

代码不只适用于2010,以前的版本也可以跑,标题如此说只因为我提供的源码下载是VS2010的。

 合并子窗体菜单只需设置菜单的AllowMerge属性True就可以了,合并工具栏的思路是在主窗体上定义接口,在子窗体中实现它。

 先看效果吧:

 

未运行时主窗体:

 

未运行时子窗体:

 

点击主窗体主菜单下的打开两次:

 

 

再最大化其中一个吧:

目前貌似没什么问题,上代码:

 

先贴主窗体源码:


  
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms

Public Class MDI主窗体

Private Sub 打开AToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
' 创建此子窗体的一个新实例。
Dim ChildForm As New MDI子窗体
' 在显示该窗体前使其成为此 MDI 窗体的子窗体。
ChildForm.MdiParent = Me

' m_ChildFormNumber += 1
ChildForm.Text = " 窗口 " & Int ( Rnd () * 10 )

ChildForm.Show()
End Sub



' 声明接口,随后将在子窗体里实现
Public Interface IMergeToolStrip
ReadOnly Property MergeToolStrip() As ToolStrip
End Interface

Private Sub MDI主窗体_YLH_MdiChildActivate( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .MdiChildActivate
' 先清除合并工具栏
ToolStripManager.RevertMerge(ToolStrip1)

If Me .ActiveMdiChild Is Nothing Then
Return
End If
If TryCast(ActiveMdiChild, IMergeToolStrip).MergeToolStrip Is Nothing Then
Return
End If

ToolStripManager.Merge(TryCast(ActiveMdiChild, IMergeToolStrip).MergeToolStrip, ToolStrip1)

If ToolStrip1.Items.Count > 0 Then
ToolStrip1.Visible
= True
Else
ToolStrip1.Visible
= False
End If
End Sub
End Class

 

 

子窗体的:

子窗体代码

   
Public Class MDI子窗体
' 实现MDI主窗体.IMergeToolStrip接口
Implements MDI主窗体.IMergeToolStrip

Public ReadOnly Property MergeToolStrip() As ToolStrip Implements MDI主窗体.IMergeToolStrip.MergeToolStrip
Get
' ToolStrip1为子窗口工具栏,默认属性要设为隐藏
Return ToolStrip1
End Get
End Property

Private Sub frmMain_Load( ByVal sender As Object , ByVal e As EventArgs) Handles Me .Load
' ToolStrip1为MDI窗体上的工具栏,在启动程序先隐藏,待到成功合并子窗体工具栏后再显示
ToolStrip1.Visible = False
MenuStrip1.Visible
= False
End Sub
End Class

源码下载

转载于:https://www.cnblogs.com/YuanLH/archive/2010/10/18/1855174.html

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值