Question

求vb6中让窗体一直保持在最前的代码

窗体不要变形！

Answer 1

当我们Windows中打开一个新窗口或切换任务时，原有的活动窗口就会被它所覆盖。不过，像Winamp等软件，却有一个能让自己的操作窗口总在最前的功能，非常实用。其实，只要你安装了像OnTop和PushPin这样的免费小软件，也一样可以让任意Windows操作窗口总在最前面，不让其他的窗口挡住它！

1．好用的ExaWare OnTop
OnTop的下载地址为： http://www.nuonsoft.com/cgi-bin/dl/dl.pl?id=OnTop_1_1.exe ，大小为197KB。下载并安装该软件后，双击桌面上的ExaWare OnTop 图标启动程序，我们看不到它的任何窗口界面，但在系统托盘上可以发现它的图标。单击该图标会弹出一个菜单，在这里列出了当前系统中所有窗口的标题。要想让某个窗口总在最前面，只要将鼠标移到相应的窗口标题项并点击鼠标（左右键均可）即可，如图所示。单击后该窗口标题前面的图标也相应地多了一个方框（如果没有图标则会显示一个对勾），表明该窗口已经设置成功。这时打开该窗口，再打开其他程序窗口，看看它是否一直总在其他窗口的前面而不被遮住？怎么样，是不是有种高高在上的感觉？要想取消 OnTop 状态，只要重复一遍上面的操作就可以了。

看到这里你是不是有一个疑问：如果同时将两个窗口设置为总在最前（Always OnTop）的状态，那将会发生什么事情呢？其实也很简单，如果两个（或多个）窗口同时处于总在最前的状态，那说明它们的地位平等，这时先激活谁谁就在最上面（和设置前一样看待）。另外还有一个问题需要注意：如果需要退出该软件，建议点击系统托盘上的软件图标并选择菜单中的“Exit and Restore”命令，这样在退出软件的同时可以恢复各个窗口的原始状态，以免给使用带来不便。

Answer 2

Option Explicit

Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const Flags = SWP_NOMOVE Or SWP_NOSIZE
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
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

Public Function SetTopMostWindow(tHWND As Long, Topmost As Boolean) As Long
If Topmost = True Then ''Make the window topmost
SetTopMostWindow = SetWindowPos(tHWND, HWND_TOPMOST, 0, 0, 0, 0, Flags)
Else
SetTopMostWindow = SetWindowPos(tHWND, HWND_NOTOPMOST, 0, 0, 0, 0, Flags)
SetTopMostWindow = False
End If
End Function

Private Sub Form_Load()
SetTopMostWindow Me.hwnd, True
End Sub

Answer 3

SetWindowPos