精华内容
下载资源
问答
  • MDI窗体VB6.0源代码.rar

    2021-04-13 19:07:27
    MDI窗体VB6.0源代码.
  • VB 禁止调整MDI窗体大小,窗体文件一共是2个,一个是主窗口文件,一个是MDI窗口文件,实现禁止改变窗口大小的功能,我们可以在MDIForm中当窗体加载时,,执行以下代码:  Private Sub MDIForm_Load()  Style = ...
  • [vb.net例子源码] 自己实现的MDI窗体,较灵活
  • MDI窗体可以避免打开窗体的时候被无数个子窗体困扰,我将为大家一一的介绍一下vb.net中MDI窗体的操作方法 一、如何vb.net教程 创建MDI窗体? 1、创建mdi主窗体 新建建立一个默认空白的Windows应用c#教程程序,在Form...

    MDI窗体可以避免打开窗体的时候被无数个子窗体困扰,我将为大家一一的介绍一下vb.net中MDI窗体的操作方法

    一、如何vb.net教程
    创建MDI窗体?
    1、创建mdi主窗体
    新建建立一个默认空白的Windows应用c#教程程序,在Form1窗体的属性窗口中找到IsMDIContainer 属性,设置为 True
    在这里插入图片描述

    2、创建MDI子窗体
    在vb.net中,mdi子窗体就是普通的窗体,无需更改其属性。所有直接新建一个Form2

    3、添加代码

    Dim frm2 As New Form2
    Form2.Show()
    

    此时你只需要简单的实例化一下显示出来就python基础教程可以了,非常简单吧。

    二、显示MDI窗口列表
    用过带有子窗体的程序的朋友一定知道,很多程序都带显示它它本身打开的子窗体列表的功能,那么它是怎么实现的呢
    在这里插入图片描述

    现在在父窗体中修改你的MenuScript1控件的MdiWinddowListItem属性为你要设置的菜单即可。

    在这里插入图片描述

    三、排列子窗体
    你只需要在你的单击操作中填入以下代码即可

     Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
            Me.LayoutMdi(MdiLayout.TileHorizontal) '水平平铺
        End Sub
     
        Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
            Me.LayoutMdi(MdiLayout.TileVertical) '垂直平铺
        End Sub
     
        Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
            Me.LayoutMdi(MdiLayout.Cascade) '层叠
        End Sub
    

    看一下效果图

    在这里插入图片描述

    在这里插入图片描述

    在这里插入图片描述

    四、VB.NET 如何防止重复打开MDI子窗体?

    Private Sub 窗体1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 窗体1ToolStripMenuItem.Click
            Dim frm2 As New Form2
            CheckForm(frm2, "Form2")
            frm2.WindowState = FormWindowState.Normal
            ShowForm(Form2)
        End Sub
     
        '*****************************************************************************
        '*过程名称:CheckForm
        '*参数说明:MDIChildForm——需检测的窗体;MDIChildFormName ——检测窗体的名字
        '*功能说明:首先检测是否有MDI子窗体,如果没有,则创该MDI子窗体的窗体实例
        '*                    如果有,则检测当中有没有其窗体实例,有则激活;没有则创建其窗体实例
        '*****************************************************************************
        Private Sub CheckForm(ByVal MDIChildForm As Form, ByVal MDIChildFormName As String)
            If Me.MdiChildren.Length < 1 Then
                '如果没有任何一个MDI子窗体,则创该MDI子窗体的窗体实例
                ShowForm(MDIChildForm)
                Exit Sub
            Else
                Dim x As Integer
                Dim frmyn As Boolean
                For x = 0 To (Me.MdiChildren.Length) - 1
                    Dim tempChild As Form = CType(Me.MdiChildren(x), Form)
                    If tempChild.Name = MDIChildFormName Then
                        frmyn = True
                        '检测到有该MDI子窗体,设为TRUE 并退出循环
                        Exit For
                    Else
                        frmyn = False
                    End If
                Next
                If frmyn = False Then
                    '在打开的窗体中没检测到则新建
                    ShowForm(MDIChildForm)
                Else
                    '在打开的窗体中检测到则激活
                    Dim MDIChildFrm As Form = CType(Me.MdiChildren(x), Form)
                    MDIChildFrm.Activate()  '使子窗体激活
                    MDIChildFrm.WindowState = FormWindowState.Normal
                End If
            End If
        End Sub
     
        '**************************************************
        '*过程名称:ShowForm
        '*参数说明:MDIChildForm ——需创建实例的窗体
        '*功能说明:创建窗体实例
        '**************************************************
        Private Sub ShowForm(ByVal MDIChildForm As Form)
            Dim MDIChildFrm As Form = MDIChildForm
            MDIChildFrm.MdiParent = Me ' 定义MDI子窗体
            MDIChildFrm.Show() '打开窗体
        End Sub
     
     
        Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
     
        End Sub
     
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim frm2 As New Form2
            CheckForm(frm2, "Form2")
            frm2.WindowState = FormWindowState.Maximized
        End Sub
    End Class
    

    好了,关于MDI子窗体的先介绍到这,有什么不足或者不正确的地方,提出来一起交流。

    展开全文
  • MDI窗体控制,禁止调整大小,禁用最大化及最小化按钮。
  • vb禁用MDI窗体最大化按钮,该代码可以实现禁止使用多文档窗体的最大化按钮效果,以免窗体错位
  • 一个包含菜单、MDI窗体背景等8个子类控件演示,VB的演示代码,控件名称:Subclass.ocx。
  • vb 6.0制作的图片可以自适应的MDI窗体,最终完成的效果如截图所示,像不像一个比较专业的信息管理系统的界面效果?不过本实例主要是演示MDI窗体的制作方法,图片如何跟随窗口大小的变化而自动变化,打开窗口后,你...
  • vb如何设置父窗体与子窗体——MDI窗体

    千次阅读 热门讨论 2020-06-02 11:01:02
    想要达到这样的效果,首先要新建一个父窗体(MDI窗体)。 MDI窗体上又不允许放置PictureBox以外的控件,但是Picture上面就能放置控件,所有只要先在窗体上铺上一张图片,在把控件放置在图片上就可以。 运行时会发现...

    目前我理解的父窗体与子窗体的关系是:父窗体包含子窗体。
    在这里插入图片描述
    想要达到这样的效果,首先要新建一个父窗体(MDI窗体)。
    MDI窗体上又不允许放置PictureBox以外的控件,但是Picture上面就能放置控件,所有只要先在窗体上铺上一张图片,在把控件放置在图片上就可以。
    运行时会发现提示“只允许存在一个MDI窗体”,这种错误我翻阅了前辈的博客,发现是sub Main里的一句代码导致的。

    Sub Main()
        Dim flogin As New frmlogin
        flogin.Show vbModal          'flogin显示模式窗口'
        
        If Not flogin.ok Then
            End
        End If
        flogin.Hide
        '将下面这两句屏蔽即可,然后再添加一句MDIFrmmain.Show'   
        Set fmain = New MDIFrmmain
        fmain.Show                  '显示主窗体'
    End Sub
    

    运行程序后又会发现子窗体都隐藏在了图片下面,此时可以用API函数来解决这个问题:

    第一步:

    外接程序——外接程序管理器

    第二步:

    找到API函数,选择“在启动中加载”与“加载/卸载”

    第三步:

    选中系统的模块Module1——外接程序——API浏览器——加载文本文件——WIN32API.TXT——打开

    第四步:

    搜索SetParent——添加——插入

    第五步:

    可以看到Module1中出现了这句代码:Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

    这句代码要放在模块里

    第六步:

    此时在MDI窗体里在对应的子窗体中写如下代码:运行一下,就会惊喜的发现成功了!

    Private Sub Return_card_Click()
        SetParent frmReturn_card.hwnd, MDIFrmmain.hwnd
        frmReturn_card.Show
    End Sub
    
    '或者'
    
    Private Sub Check_balance_Click()
        Call SetParent(frmCheck_balance.hwnd, MDIFrmmain.hwnd)
        frmCheck_balance.Show
    End Sub
    
    展开全文
  • MDI窗体实例,演示了如何在MDI窗体执行子窗体的函数子程序!
  • VB可以调用DLL控件中的窗体MDI窗体
  • csdn下载不允许修改之前上传的文件,只能重新上传一个。
  • 摘要:VB源码,界面编程,MDI窗体  VB制作的MDI窗体实例源代码,如果这个工程没有帮助文件,显示消息给用户,可以在“工程属性”对话框中为应用程序设置帮助文件。
  • VBMDI窗体

    热门讨论 2008-07-14 07:23:28
    当用户打开这些有子窗体的程序时,兴建的文档并不是以一个全新的窗体打开,而是内嵌在原有的父窗体中,我们称之为MDI窗体。 那么我们如何让我们的VB程序也实现MDI父子窗体呢?本资源包含的源程序代码将为您解答。...
  • 调用MDI活动子窗体VB.NET) Public Sub RefreshMdiFrm(MdiParentFormName As Form) Dim fr As Object fr = MdiParentFormName.ActiveMdiChild Call fr.RefreshChildMdiFrm() 'RefreshC...

    调用MDI活动子窗体(VB.NET)

        Public Sub RefreshMdiFrm(MdiParentFormName As Form)
            Dim fr As Object
            fr = MdiParentFormName.ActiveMdiChild
            Call fr.RefreshChildMdiFrm()
            'RefreshChildMdiFrm()在MDI子窗体中创建需要的操作
        End Sub
    
    
    '在想要调用子窗体操作的窗体中  Call RefreshMdiFrm(父窗体名)
    
    展开全文
  • 内容索引:VB源码,界面编程,MDI,菜单 MDI窗体菜单示例,基于VB源代码
  • vb 6.0制作的图片可以自适应的MDI窗体,最终完成的效果如截图所示,像不像一个比较专业的信息管理系统的界面效果?不过本实例主要是演示MDI窗体的制作方法,图片如何跟随窗口大小的变化而自动变化,打开窗口后,你...

    vb 6.0制作的图片可以自适应的MDI窗体,最终完成的效果如截图所示,像不像一个比较专业的信息管理系统的界面效果?不过本实例主要是演示MDI窗体的制作方法,图片如何跟随窗口大小的变化而自动变化,打开窗口后,你可以鼠标拖大或拖小窗口,以便测试图片的自适应效果。

    32270-20180517094519438-2047073938.gif

    完整源码:http://www.codesc.net/source/14743.shtml

    转载于:https://www.cnblogs.com/jianghuluanke/p/9049432.html

    展开全文
  • 带历史信息的菜单的MDI窗体(VB6.0源代码编写)
  • 一目的和要求了解MDI窗体和子窗体的特点 掌握MDI窗体的程序设计方法掌握工具栏的属性设置和使用方法掌握图像列表的属性设置和使用方法掌握MDI窗体中菜单与工具栏的协调运用Visual Basic程序设计实验指导第页二预备...
  • MDI窗体

    千次阅读 2018-04-06 17:01:38
    MDI窗体,就是多文档界面,用于显示多个文档,每个文档显示在各自的窗口中,MDI窗体中通常会包含子菜单的窗口菜单,用于在窗口和文档中转换。设置MDI父窗体只需要将窗体的属性面板中的IsMdiContainer属性改成true...
  • 去除MDI窗体的最大化 最小化按钮,如果你愿意的话“关闭”按钮也能去掉,很实用的
  • 一目的和要求了解MDI窗体和;二预备知识1MDI多文档;无标题;二预备知识3工具栏与图像列;二预备知识图像列表控件是包含;二预备知识4创建用户自定义;二预备知识2设置图像列表;二预备知识3将图像列表对;二预备知识4在工具...
  • 一个比较有趣的VB窗口程序,MDI窗体从父窗体中移出,过程可逆,也可以迁入,只要你点击窗体中的“移出”、“移入”按钮,就可完成操作,移出后,原来的子窗体就变为了一个单独的窗体,打开和关闭不会影响父窗体,...
  • MDI窗体美化

    2013-04-16 08:27:56
    使用DotNetBar 工具美化界面,还存在一点小问题!
  • 一个子类控件的VB源代码,包含菜单、MDI窗体背景等8个演示程序。MenuSel、OwnrDraw、SysCmd、WinPosCh等。
  • MDI窗体上放置一个PictureBox
  • 内容索引:VB源码,界面编程,MDI,子窗体,窗体继承 一个比较有趣的VB窗口程序,MDI窗体从父窗体中移出,过程可逆,也可以迁入,只要你点击窗体中的“移出”、“移入”按钮,就可完成操作,移出后,原来的子窗体就...
  • MDI窗体的简单应用

    2013-10-15 16:11:44
    MDI窗体的简单应用,适合初学者。我本身就是初学者,有问题咱们一起讨论解决
  • 用户界面\MDI窗体高级控制用户界面\MDI窗体高级控制

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,134
精华内容 453
关键字:

mdi窗体vb