Membuat Tampilan Form Selalu di atas di VB 6.0

Cara mendapatkan 3 Dolar per hari, kerjanya cuma klik iklan yang muncul langsung dibayar caranya:klik gambar dibawah ini atau klik Register Clixsense, lengkapi identitas, tekan Sign-Up kemudian konfirmasi Email.Anda siap klik iklan. Info Lengkap

Untuk membuat Aplikasi kita Always on top (selalu diatas) agar tidak terhalangi oleh software lain yang sedang di jalannya seperti TaskManager. Berikut Cara pembuatan form agar Selalu di Depan :

‘Pada Declaration

Private Declare Function SetWindowPos Lib "user32" (ByVal h As Long, ByVal hb As Long, ByVal X As Long, _    ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal F As Long) As LongConst SWP_NOMOVE = 2Const SWP_NOSIZE = 1Const flags = SWP_NOMOVE Or SWP_NOSIZEConst HWND_TOPMOST = -1Const HWND_NOTOPMOST = -2

untuk Mengaktifkannya :

Dim res As Long
    res = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags) 

dan untuk mematikannya :

Dim res As Long
    res = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, flags)

Semoga bermanfaat .

Penulis: tutorial ~ Nurhasan Blogger | Blog Tutorial dan Informasi |

Artikel Membuat Tampilan Form Selalu di atas di VB 6.0 ini dipublish oleh tutorial pada hari Friday 22 May 2015
Terima kasih Anda telah membaca artikel tentang Membuat Tampilan Form Selalu di atas di VB 6.0.