Form “Always on Top”

Deklarasi

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)

Code yang digunakan

‘Code ini akan menampilkan form selalu didepan
rtn = SetWindowPos(OnTop.hwnd, -2, 0, 0, 0, 0, 3)

‘Code ini untuk mengembalikan fungsi diatas
rtn = SetWindowPos(OnTop.hwnd, -1, 0, 0, 0, 0, 3)

Cara Menjalankan : Copy code di bawah pada form code)

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)

Private Sub Form_Load()
this code makes the window stay on top
rtn = SetWindowPos(OnTop.hwnd, -2, 0, 0, 0, 0, 3)
End Sub

Leave a Reply

You must be logged in to post a comment.

Software Development
Selain program-program yang kami tampilkan di blog ini, anda juga bisa memesan program yang sesuai dengan keperluan bisnis anda.

Informasi lebih lanjut, anda bisa menghubungi kami...

Salam,
YS-Soft Labs
Kontak
Nama : Yuddy Astiono
E-mail : yuddy_thio@yahoo.co.id
Phone : 0811510454


programming


ShoutMix chat widget

Web Site Statistics
VISITORS


free web counter
Program YS-Bel Sekolah
Fitur-fitur :
* OsenXPSuite2009 Original
* Suara bel Indonesia & Inggris
* Ada kategori (normal,ujian,dll)
* Tidak ada batasan jumlah bel
* Tidak ada batasan jumlah jadwal
* Menu khusus utk atur jadwal bel
* Suara bel bisa bunyi berulang
* Pengaturan auto running/startup
* dan masih byk lagi fitur lainnya....

Fitur di atas bisa dikembangkan lagi sesuai kebutuhan sekolah anda...
Silahkan hubungi kami...
Bank Support

CIMB Niaga Cab.Banjarmasin
N a m a : Yuddy Astiono
No Rek. : 443010099****


BNI Cab.Banjarmasin
N a m a : Yuddy Astiono
No Rek. : 008150****


Mandiri Cab.A.Yani Banjarmasin
N a m a : Yuddy Astiono
No Rek. : 031-00-0670***-*
Other Business
Partner YS-Soft Labs
AraySoft
Araysoft Labs (Gautama Yustitia)
Jakarta Timur

Cimahi-One
Cimahi-One (Tatang Sutarman)
Cimahi - Jawa Barat

BrajaTechnology
BRAJA Technology
Cikeusal - Jawa Barat

Master-Delphi
Edy Software (Edy Sutrisno)
Jember - Jawa Timur

GenerasiComputer
Generasi Computer (Yopie.S)
Medan - Sumatera Utara

NajlaPonsel
Najla Ponsel (Fendy)
Landasan Ulin - Kalimantan Selatan
Forum Support
i-bego
Kategori
Informasi Koneksi
  
  




free visitor counter