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

    2021-04-13 19:07:27
    MDI窗体VB6.0源代码.
  • 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窗体)。 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
    
    展开全文
  • VBMDI窗体

    热门讨论 2008-07-14 07:23:28
    当用户打开这些有子窗体的程序时,兴建的文档并不是以一个全新的窗体打开,而是内嵌在原有的父窗体中,我们称之为MDI窗体。 那么我们如何让我们的VB程序也实现MDI父子窗体呢?本资源包含的源程序代码将为您解答。...
  • vb 6.0制作的图片可以自适应的MDI窗体,最终完成的效果如截图所示,像不像一个比较专业的信息管理系统的界面效果?不过本实例主要是演示MDI窗体的制作方法,图片如何跟随窗口大小的变化而自动变化,打开窗口后,你...
  • 带历史信息的菜单的MDI窗体(VB6.0源代码编写)
  • VB MDI窗体最大化原码

    2011-07-15 09:58:47
    VB开发的MDI窗体软件最麻烦的就是最小化后里面的窗体显示不了,本代码可以保持最大化
  • MDI窗体实例,演示了如何在MDI窗体执行子窗体的函数子程序!
  • VB 禁止调整MDI窗体大小,窗体文件一共是2个,一个是主窗口文件,一个是MDI窗口文件,实现禁止改变窗口大小的功能,我们可以在MDIForm中当窗体加载时,,执行以下代码:  Private Sub MDIForm_Load()  Style = ...
  • 摘要:VB源码,界面编程,MDI窗体  VB制作的MDI窗体实例源代码,如果这个工程没有帮助文件,显示消息给用户,可以在“工程属性”对话框中为应用程序设置帮助文件。
  • vb禁用MDI窗体最大化按钮,该代码可以实现禁止使用多文档窗体的最大化按钮效果,以免窗体错位
  • 很多学习VB的朋友在开发项目时会遇到使用MDI窗体,其中很多人想美化软件,给MDI加上背景,但是部分人不知如何去做,其实很简单,在此我将用代码演示MDI窗体背景的设置(按照窗体尺寸缩放背景),更换背景的方法也是如此.
  • 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

    展开全文
  • 一个子类控件的VB源代码,包含菜单、MDI窗体背景等8个演示程序。MenuSel、OwnrDraw、SysCmd、WinPosCh等。
  • MDI窗体

    2008-01-04 15:36:21
    MDI窗体,含有VB源代码,希望有兴趣的朋友下载欣赏!
  • 一个包含菜单、MDI窗体背景等8个子类控件演示,VB的演示代码,控件名称:Subclass.ocx。
  • [vb.net例子源码] 自己实现的MDI窗体,较灵活
  • [VB.NET]浅谈MDI窗体的多窗体编程

    千次阅读 2005-02-18 22:07:00
    ---MDI窗体和多窗体编程--- 目的:在MDI窗体内用ToolBar实现多窗体的实例,在VB.NET中显示窗体一般代码如下<!-- Code highlighting produced by Actipro CodeHighlighter (freeware)...
    ---MDI窗体和多窗体编程--- 目的:在MDI窗体内用ToolBar实现多窗体的实例,在VB.NET中显示窗体一般代码如下
    
        Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
           
    Select Case e.Button.Text
               
    Case "OK"  '"OK" is ToolBarButton.Text
                    Dim fr As New frmName
                    fr.MdiParent
    = Me 'Me is MdiForm
                    fr.Show()
           
    End Select
       
    End Sub


    http://www.chinaaspx.com/club/topic_5_7796.htm

    参考了一下,得出下面的代码

        Private Shared fr As New frmName
       
    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
           
    Select Case e.Button.Text
               
    Case "OK"  '"OK" is ToolBarButton.Text
                    If fr Is Nothing Or fr.IsDisposed Then
                        fr
    = New frmName
                        fr.MdiParent
    = Me
                        fr.Show()
                   
    Else
                        fr.MdiParent
    = Me
                        fr.Show()
                        fr.Focus()
                   
    End If
           
    End Select
       
    End Sub
    这样就实例了一次窗体~ ---end---
    展开全文
  • [size=18px]VBMDI窗体下有很多个子窗体,如何统一设置全部子窗体的大小和固定位置? 就是让所有子窗体的大小相同,打开后在父窗体中显示的位置也相同? 有二三十个窗体,单个设置太麻烦了,求大神相助[/size][/...
  • MDI窗体方式打开(仅打开一次)(VB.NET) 学习心得 Function MDIFrmActive(MdiFrmName As String) As Boolean For Each fr As Form In Me.MdiChildren If fr.Name = MdiFrmName Then fr.Activ...
  • 机房收费系统之MDI窗体

    千次阅读 2014-08-03 20:11:07
    我在最近视频快看完啊,说要着手运作机房收费系统时,发现了一点关于MDI窗体的问题和不解,(我一直以为MDI窗体就是普通窗体设置...在VB中可以添加MDI窗体,窗体颜色为深灰色。然后在其他子窗体中,设置MDIChild属
  • 关于MDI窗体

    千次阅读 热门讨论 2013-08-08 16:18:53
    下边是关于MDI窗体的一些小结,如果有什么错误请指正 1.界面样式     单文档界面(SDI)       多文档界面(MDI)       一次只能打开一个文档,在打开另一个文档时,就会先关上已打开的文档   ...
  • [VB.NET]浅谈MDI窗体的多窗体编程2

    千次阅读 2005-02-19 13:36:00
    ---关于WITH结构内的MDI窗体实例--在上一篇内,介绍了MDI窗体的实例http://blog.csdn.net/allenle/archive/2005/02/18/293122.aspx在第二段代码中写到 Private Shared fr As New frmName Private Sub ToolBar1_...
  • [VB.NET]MDI窗体

    2008-12-28 11:48:00
    MDI窗体 我想问一下怎样实现复制,剪切啊,我的功能很简单 其实用RichTextBox1.Copy()一句话可以实现在单窗体,可到了MDI主窗体中我该怎样去实现呢?下面无法实现,请热心人帮忙,谢谢 Private Sub MenuItem2_...
  • 机房重构---MDI窗体+单例模式

    千次阅读 热门讨论 2015-05-04 22:06:13
    VB6.0版本的机房收费系统中就用到了MDI技术(多文档界面),其中有的窗体用了MDI,而有的则没有用到,回头想想这些个关于增删改查的功能都该是MDI这个容器中的子窗体,于是这次我将他们都放到了MDI窗体中。...

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 210
精华内容 84
关键字:

mdi窗体vb