Question

在VB中怎样使一个窗体始终保护在最前

在vb中，有两个窗体，如何使form2始终保持在最前，还有怎么屏蔽alt+tab和 ctrl+alt+del这三个热键。。

Answer 1

让窗体总是在前
可使用Win API SETWINDOWPOS可达到这一目的
该函数的语法是：

SetWindowPos hWnd, hwndInsetAfter, x, y, cx, xy, wFlags

其中：
hWnd ---- 窗体的句柄（handle)。
hWndInsetAfter ---- 它就是决定是否“总在前”的参数，
应用中设置为： HWND_TOPMOST 总在前
HWND_NOTOPMOST 正常的
x,y,cx,cy ----表示窗体的位置和大小的参数,在实际应用中可忽略。
wFlags ---- 决定窗体是否可以移动和改变尺寸，
一般设置成这样的形式： SWP_NOMOVE or SWP_NOSIZE。

将 CTRL + ALT + DEL 功能键之功能取消，然后在结束程序之前，再从新恢复 CTRL + ALT + DEL 之功能

在模组声明区中加入以下声明及模组：
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SCREENSAVERRUNNING = 97

Public Sub Disable_Ctrl_Alt_Del()
’让 CTRL+ALT+DEL 失效
Dim AyW As Integer
Dim TurFls As Boolean
AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, TurFls, 0)
End Sub

Public Sub Enable_Ctrl_Alt_Del()
’让 CTRL+ALT+DEL 恢复功能
Dim AwY As Integer
Dim TurFls As Boolean
AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, TurFls, 0)
End Sub

’实际使用时，在 Form 中加入以下程序码：

Private Sub Form_Load()
Disable_Ctrl_Alt_Del
End Sub

Private Sub Form_Unload(Cancel As Integer)
Enable_Ctrl_Alt_Del
End Sub

Answer 2

将FORM2显示为模态呗。不过这样，FORM1就不能用了。
如果是VB 6.0 ，那么，包括屏蔽热键的工作，只能用API了。

如果是.NET就简单多了。