首先将启动窗体设置为一个普通的窗体,将此窗体作为一个容器,在它的上面放一个Picturebox控件。 启动的时候将Mdiform嵌入的此窗体中去,这里用到SetParent API函数具体做法是: 函数声明: Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long 函数使用: dim Ld as long ld = SetParent(MDIForm1.hwnd, Picture1.hwnd)
Control.Visible = False
Next Control
<ChildFormName>.Top = -500
<ChildFormName>.Left = -600
随着你设置的不同数值,子窗体的位置会有所变化。
启动的时候将Mdiform嵌入的此窗体中去,这里用到SetParent API函数具体做法是:
函数声明:
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
函数使用:
dim Ld as long
ld = SetParent(MDIForm1.hwnd, Picture1.hwnd)