目前我理解的父窗体与子窗体的关系是:父窗体包含子窗体。
想要达到这样的效果,首先要新建一个父窗体(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
今天的文章vb如何设置父窗体与子窗体——MDI窗体分享到此就结束了,感谢您的阅读,如果确实帮到您,您可以动动手指转发给其他人。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:http://bianchenghao.cn/30296.html