Senin, 14 November 2011

[VB 6.0] Membuat Form Selalu di Depan

Posted by b_agoy 09.04, under | No comments


Bila anda ingin form dari aplikasi anda terletak didepan dengan form-form aplikasi lain atau form lain dari aplikasi yang sama, silahkan simak langkah-langkahnya dibawah ini.

Buatlah sebuah Module lalu ketik:
Public 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

Public Sub FormOnTop(ByVal Frm As Form, ByVal State As Boolean)
SetWindowPos Frm.hwnd, IIf(State = True, -1, -2), 0, 0, 0, 0, &H1 Or &H2
End Sub

Untuk menggunakan, buat sebuah Form dan ketik kode berikut di bagian 'Form_Paint':
FormOnTop Me, True



DOWNLOAD PROJECT

0 komentar:

Posting Komentar

Pages

Diberdayakan oleh Blogger.

Followers

Tags

Labels