使窗口保持在最上层。在VB开发中可以通过调用SetWindowsPos()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然后设置这个窗体的显示模式为模态.vbmodal.
我找找再告诉你.
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然后设置这个窗体的显示模式为模态.vbmodal.
http://www.applevb.com/sourcecode/darkscr.zip
将屏幕设置为“关闭Windows”时的虚屏状态