Форма принудительно поверх других

[Capone]

Как сделать, чтобы форма появлялась поверх всех остальных и ее нельзя было убрать, кроме как нажатием на ней кнопки?

[Крост]

В модуле напиши:

Код: Выделить всё

Option Explicit

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 Long
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOPMOST = -1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1


Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean)
On Error GoTo 1
If TopPosition = False Then
SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
Else
SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
End If
1:
Exit Sub
End Sub


И в форме:

Код: Выделить всё

Private Sub Form_Load()
SetFormPosition Me.hWnd, True 'Это поставит форму поверх других
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True 'Это сделает невозмодным закрыть форму, даже при нажатии на красный крестик ;)
End Sub


Вроед всё.. =)

С уважением Андрей.[/code]

[Eugenio]

2 Крост
ИМХО, проще надо быть

Код: Выделить всё

'показ формы
Dim ModalForm As New MyModalForm
ModalForm.Show vbModal

А если нужно, чтобы форму нельзя было закрыть "крестиком", а можно было только кнопкой, тогда вот это - в самой форме, которая поверх всех окон:

Код: Выделить всё

Private ButtonPressed As Boolean
Private Sub CloseButton_Click() ' это нажатие на ту кнопку, которой позволено закрывать форму
    ButtonPressed = True
    Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
    If Not ButtonPressed Then
        Cancel = True
    End If
End Sub

[Крост]

Имхо при использовании FRM.Show vbmodal - форма пудет поверх всех только в том приложении, в котором находиться эта форма,
а если надо чтобы поверх всех? Вообще всех окон Windows...

[Eugenio]

Имхо при использовании FRM.Show vbmodal - форма пудет поверх всех только в том приложении, в котором находиться эта форма...

Да, всё правильно. Так не писал человек о том, вроде (про "поверх вообще всех окон Windows").