极端技术问题

Question

如何把窗口置顶，并把桌面下推，是桌面全部显示出来？

Answer 1

如何把窗口置顶，并把桌面下推，是桌面全部显示出来？
'桌面下推,桌面全部显示,听不懂!'假如只是窗口置顶,代码如下!
Option ExplicitPrivate 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 LongPrivate Const HWND_TOPMOST& = -1
' 将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const SWP_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为总在最前
End Sub

Answer 2

把窗口围置顶：
方法1：用API
Public 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
方法2：
Me.Show vbomdal

Answer 3

lxcc(虫子|专注于抢分) 对阿！就是如何把窗口置顶，并把桌面下推，是桌面全部显示出来，也就是不能挡住桌面的图标！

Answer 4

置顶加窗体透明？
那就。
easy

Answer 5

call SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3)

Answer 6

桌面下推什么意思？就是显示桌面？
工程引用 MicroSoft Shell Controls And ……
    Dim objShel As New Shell32.Shell
        'Show the desktop
        objShel.MinimizeAll        'Do some operations here        'Restore the desktop
        objShel.UndoMinimizeALL
    Set objShel = Nothing