~~~~~~~Forum Diskusi Software dan Internet untuk Kristen-Katolik~~~~~~~
' Ditulis tanggal 5-2-2000 jam 20:11
' ' <-- buat komentar
' _ <-- baris diteruskan di bawahnya
Const HWND_TOPMOST= -1
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
end type
dim letakWin as RECT
Declare Function GetWindowRect Lib "user32" ( _
ByVal hwnd As Long, lpRect As RECT) As Long
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
' (misalnya punya window yang hWnd nya 600)
GetWindowRect 600, LetakWin
'ambil letak window
Kiri = LetakWin.Left
Kanan = LetakWin.Right
Atas = LetakWin.Top
Bawah = LetakWin.Bottom
Panjang= Kanan-Kiri
Lebar = Bawah-Atas
' Sekarang bikin window itu always on top (nggak ketutupan _
window lain
SetWindowPos 600, HWND_TOPMOST, _
Kiri, Atas, _
Panjang, Lebar, _
0
'-------------------------------------------------------------------
' maka window tsb akan always on top
'
' sekarang pertanyaannya. Kalo untuk nggak always on top gimana sih?
----- Hemat Bandwith : Hapus pesan yang tidak perlu sebelum reply -----
SUBSCRIBE---> To: [EMAIL PROTECTED], Isi/Body: kosong
UNSUBSCRIBE---> To: [EMAIL PROTECTED], Isi/Body: kosong
