我现在有两个窗体,一个在前面,一个在后面
请问如何才能让前面的那个窗体一直在前面

解决方案 »

  1.   

    form1.show 1不知楼主是不是这个意思。。
      

  2.   

    Public Const wFlags = &H2 Or &H1 Or &H40 Or &H10
    Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal Cx As Long, ByVal Cy As Long, ByVal wFlags As Long) As LongDim ss As Long
    ss = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, wFlags)
      

  3.   

    '窗口最前API,将它放在要置前的窗体里---------------------------------------
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
      ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
      ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Const HWND_TOPMOST = -1
    Private Const SWP_SHOWWINDOWS = &H40
    '-----------------------------------------------Private Sub Form_Load()
      '窗口最前
      Dim retValue As Long
      retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, _
      Me.CurrentY, 300, 300, SWP_SHOWWINDOWS)
      
      Me.Height = 375  '窗体高
      Me.Width = 4245  '窗体宽
      Me.Left = 7755   '距左边距
      
    End Sub
    '窗体大小,自己调整吧
      

  4.   

    要不 把前面那个设置成MDI