topper.bas

来自「一个完整的HTML编辑器」· BAS 代码 · 共 15 行

Attribute VB_Name = "Topper"
'Windows API/Global Declarations for code to make your form stay on top.
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
    
    Global Const conHwndTopmost = -1
    Global Const conSwpNoActivate = &H10
    Global Const conSwpShowWindow = &H40