Private Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr _,ByVal hWndNewParent As IntPtr) As Integer Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Integer,ByVal x As Integer,ByVal y _ As Integer,ByVal nWidth As Integer,ByVal nHeight _ As Integer,ByVal bRepaint As Integer) As Integer Public Shared mobjOpenForm As Form Public Shared Sub displayFrm(ByVal frm As Form) Try mobjOpenForm = frm SetParent(mobjOpenForm.Handle,FrmMain.PanDetail.Handle) mobjOpenForm.Visible = True 'mobjOpenForm.WindowState = FormWindowState.Maximized 'MoveWindow(mobjOpenForm.Handle.ToInt32,mobjOpenForm.Width,mobjOpenForm.Height,1) Catch ex As Exception End Try End Sub Public Shared Sub CloseFrm() Try mobjOpenForm.Close() Catch ex As Exception End Try End Sub
原文地址:https://www.jb51.cc/vb/259580.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。