vb如何设置父窗体与子窗体——MDI窗体

Visual Basic 专栏收录该内容
20 篇文章 1 订阅

目前我理解的父窗体与子窗体的关系是:父窗体包含子窗体。
在这里插入图片描述
想要达到这样的效果,首先要新建一个父窗体(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
  • 3
    点赞
  • 12
    评论
  • 4
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

评论 12 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:终极编程指南 设计师:CSDN官方博客 返回首页

打赏作者

夏诗曼CharmaineXia

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值