机房MDI窗体运行无法显示其他窗体

  在做机房上下机这块遇到了一个问题，想在MDIForm1.frm上添加控件添加不上，在网上找了一下原因，网上说需要给MDIForm1上添加一个picture box控件，然后在给上边添加自己需要的控件。网上办法实施之后MDI窗体中的其他窗体久久不能显示。接下咱们来看解决办法：

1.用上.setparent函数，他的功能是改变某个子窗体的父窗体，首先给模块里边声明Setparent函数。

模块中加入:
  Public Declare Function SetParent Lib “user32” (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

2.找到MDI主窗体中想要显示的窗体，在他的单击（Click）事件中编写代码如下代码运行后保证OK：

private sub InquiryBalanceshow_Click()
	InquiryBalance.Show
	SetParent InquiryBalance.hWnd, MDIForm1.hWnd
end sub

格式：SetParent <要显示窗体的名称>.hwnd,MDI主窗体.hwnd

3. 加载的窗体如果不居中给Form 窗体里边Form事件加入下边代码：

 Me.Left = Screen.Width / 2 - Me.Width / 2
 Me.Top = Screen.Height / 2 - Me.Height / 2

 
欢迎下方评论区留言