Các chiêu thức trong lập trình Để form của bạn ở chế độ “Luôn nổi”
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (61.77 KB, 1 trang )
Để form của bạn ở chế độ “Luôn nổi” home
Xuất xứ : Lê Nguyên Dũng (dungcoi) sửa lại từ www.allapi.net
Binh khí sử dụng : 1 Timer có giá trị Interval = 50 hoặc gì gì đó nhưng đừng lớn quá chương trình kém
“Nhạy” đừng nhỏ quá chương trình “Giật giật”
Nguyên tắc : Nếu như một số Code, người ta chỉ thuần cho Form của bạn “On top” khi Load thì Code
này chẳng qua cho nó “On top” dài dài bằng cách cho mấy câu lệnh để Fom “On top” vô biến cố của
Timer. Ô la la, Very easy.
Đoạn mã :
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)
Private Sub Timer1_Timer()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or
SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
