帮忙看看，为什么frmstart不能总在MDIForm1前面直至Timer1_Timer()发生？？？

Question

Private Sub Form_Load()
res% = SetWindowPos(frmstart.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
Load MDIForm1
Timer1.Enabled = True
frmstart.Show 0，mdiform1
End Sub

Answer 1

不好意思，刚才问题没问合适，应该是这样的，没有错误提示，但没有实现最前。请大侠仔细看看，谢谢了。
Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal x%, ByVal y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2Private Sub Command18_Click()  
res% = SetWindowPos(frmstart.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
End Sub
  
Private Sub Form_Load()
frmstart.Show
Load MDIForm1
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Unload frmstart
End Sub

Answer 2

Private Sub Form_Load()
Load MDIForm1
Timer1.Enabled = True
frmstart.Show 0，mdiform1
End Sub

Answer 3

我不用父窗体，也是不行。只有form1 和form2,代码在form1中。没有错误，但不能实现。
Private Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%, ByVal x%, ByVal y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
  
  
  Const SWP_NOMOVE = 2
  
  Const SWP_NOSIZE = 1
  
  Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  
  Const HWND_TOPMOST = -1
  
  Const HWND_NOTOPMOST = -2
Private Sub Form_Load()
Form2.ShowEnd Sub  
  Private Sub Command18_Click() '总在最前面
  
  res% = SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  
  
  End Sub

Answer 4

frmstart.Show 0，mdiform1注意我写的这里，mdiform1的意思就是让frmstart在他的上面，具体你可以查看窗体的show方法

Answer 5

Show 方法
      用以显示 MDIForm 或 Form 对象。不支持命名参数。语法object.Show style, ownerformShow 方法的语法包含下列部分：部分 描述 
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则与活动窗体模块关联的窗体缺省为 object。 
Style 可选的。一个整数，它用以决定窗体是模式还是无模式 。如果 style 为 0，则窗体是无模式的；如果 style 为 1，则窗体是模式的。 
ownerform 可选的。字符串表达式，指出部件所属的窗体被显示。对于标准的Visual Basic 窗体，使用关键字 Me。 
说明如果调用 Show 方法时指定的窗体没有装载，Visual Basic 将自动装载该窗体。当 Show 在显示无模式窗体时，随后遇到的代码则要执行。当 Show 在显示模式窗体 (modal form) 时，则随后的代码直到该窗体被隐藏或卸载时才能执行。当 Show 在显示模式窗体时，除了模式窗体中的对象之外不能进行输入（键盘或鼠标单击）。对其它窗体进行输入前程序必须隐藏或卸载模式窗体（通常是处于响应用户某些操作状态）。MDIForm 不能是形式的。在模式窗体显示时，虽然应用程序中的其它窗体失效，但其它应用程序不会失效。应用程序的启动窗体在其 Load 事件调用后会自动出现。下面的例子说明如何使用ownerform 参数：Private Sub cmdShowResults_Click()
   ' 显示模式窗体 frmResults.
   frmResults.Show vbModal, Me
End Sub