VB 子窗体被PictureBox控件挡住无法显示

1、问题描述

VB做机房收费系统的时候,用的MDI主窗体,在主窗体上加了一个PictureBox控件,运行的时候,点了子窗体,但是却没有出现,后来才发现,子窗体被PictureBox控件给当在了后面。

2、问题原因

在MDI程序中,子窗体实际位于MDIClient里,就是说,子窗体的父窗体是MDIClient,而PictureBox和MDIClient属于同一级的

层次结构

ThunderMDIForm-MDIForm1

--MDIClient

---ThunderFormDC-Form1 子窗体1

---ThunderFormDC-Form2子窗体2

--ThunderPictureBoxDC MDI的PictureBox

3、解决办法

用到的函数——SetParent函数

Private Declare FunctionSetParent Lib "user32" (ByVal hWndChild As Long,ByVal hWndNewParentAs Long) As Long

函数功能

函数改变某个子窗口的父窗口。

参数:

hWndChild:子窗口句柄。hWndNewParent:新的父窗口句柄。如果该参数是NULL,则桌面窗口就成为新的父窗口。

返回值:

如果函数成功,返回值为子窗口的原父窗口句柄;如果函数失败,返回值为NULL。

代码如下:

Private Sub AboutMenu_Click()
SetParent frmAbout.hWnd,frmMain.hWnd
frmAbout.Show
End Sub

需要注意的一点是,frmMain窗体不可以是MDI窗体,要用一般的Form窗体,否则的话,当你运行的时候,它会提醒你——“实时错误426”,只允许一个MDI窗体。

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...