让exe总显示在所有任务的最前面

Question

让exe总显示在所有任务的最前面

Answer 1

不太明白楼主的意思.
是不是显示在最前端?
用SetWindowPos

Answer 2

private const swp－nosize = ＆h1　　private const swp－nomove = ＆h2　　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　　private sub form－load()　　setwindowpos hwnd, hwnd－topmost,　　0, 0, 0, 0, swp－nomove or swp－nosize′这条语句可使窗口一直在最上方

Answer 3

用API函数 setwindowpos 让窗体置顶

Answer 4

public  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'*************************************************************************
'**函 数 名：KeepOnTop
'**输    入：F(Form) -
'**输    出：无
'**功能描述：窗体放在最前
'**全局变量：
'**调用模块：
'**作    者：
'**日    期：
'**修 改 人：
'**日    期：
'**版    本：V1.0
'*************************************************************************
Sub KeepOnTop(F As Form)
    Const SWP_NOMOVE = 2
    Const SWP_NOSIZE = 1
    
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    
     SetWindowPos F.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub