Question

vb窗体总是在最前面的设置

我做的一个软件，其中有一个功能是暂时离开时，必须输入密码
但是这个窗口不是在最前面，就是说不用输入密码就可以直接继续的操作。
我不希望这样。我希望是必须输入密码，才可以进行其他的操作
我参考了其他的程序。他们都不需要代码实现的

Answer 1

使用WINDOWS API SetWindowPos函数来设置，在Form_Load中加入，如下示例即可：

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 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 
　 Const HWND_TOPMOST = -1 
　 Const SWP_SHOWWINDOW = &H40 
Private Sub Form_load() 
　　 Dim retValue As Long 
　　 retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, 
　　　　　　　 Me.CurrentY, 300, 300, SWP_SHOWWINDOW) 
End Sub

这样窗体就能保持在所有窗体的前面了。

SetWindowPos函数的定义和参数：
使用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 Long
其中各参数的意义如下:
参数 意义
hwnd Long 欲定位的窗口
hWndInsertAfter Long 窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面
x，y Long 窗口新的x,y坐标
cx，cy Long 指定新的窗口宽度和高度
wFlags Long 包含了旗标的一个整数，是下列之一
返回值 Long 非零表示成功，零表示失败
下面是部分wFlags参数和它们的意义：
参数 意义和使用方法
SWP_DRAWFRAME 围绕窗口画一个框
SWP_HIDEWINDOW 隐藏窗口
SWP_NOACTIVATE 不激活窗口
SWP_NOMOVE 保持当前位置 (x和y设定将被忽略) &H2
SWP_NOREDRAW 窗口不自动重画
SWP_NOSIZE 保持当前大小 (cx和cy会被忽略) &H1
SWP_NOZORDER 保持窗口在列表的当前位置 (hWndInsertAfter将被忽略)
SWP_SHOWWINDOW 显示窗口 &H40
SWP_FRAMECHANGED 强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变

Answer 2

先调用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 Long
Const HWND_TOPMOST = -1

Private Sub Form_Load()
'总在最上
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left / Screen.TwipsPerPixelX _
, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, _
Me.Height \ Screen.TwipsPerPixelY, 0
End Sub

然后在显示这个窗体时用模态，例如：
假设上面的窗体为Form1
Form1.Show vbModal
这样窗体不仅会在最上，而且必须输入正确的密码才能访问别的窗体

Answer 3

在这个窗体的show方法后面加个vbmodal就可以了,你打空格它自己就出现选项了.

Answer 4

使用API函数SetWindowPos
Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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

在Form_Load中加入如下代码
SetWindowPos hwnd, -1, 0, 0, 0, 0, 3

Answer 5

让其他窗体的Enabled = False
试试行不?