Formuzun Pencerelerin Üzerinde Dursun

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu dersimizde projemizi sürekli en üstte tutacağız. Örneğin projemiz çalışırken herhangi bir dosyaya veya internette bir siteye girdik; projemiz bu uygulamaların arkasında kalmasın diyorsanız yapacağımız çok basit.

Önce SetWindowsPos tanımlamamızı yapalım...

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)

Evet tanımlamayı yaptık şimdi bizim için gerekli olan kodumuz yani formun sürekli üstte kalmasını sağlayan değişken

Const HWND_TOPMOST = -1

kodudur. Ancak sadece bu kodu yazar isek formumuz genişliğini ve yükseklğin kaybeder ve en küçük(dar) halini alır.. Bunu engellemek için ise

Const SWP_NOSIZE = &H1

değişkenini atalım. En son olarak Form_Activate bölümüne formun açılış şeklini tanıtalım şu şekilde:

Private Sub Form_Activate()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE
End Sub

Böylelikle kodumuz diğer herşeyin önüne gelir..Dersi anlayamayanlar için kodun tam hali Şu şekildedir olduğu gibi forma yapıştırınız..

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)

 Const HWND_TOPMOST = -1                   
 Const SWP_NOSIZE = &H1                     


Private Sub Form_Activate()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE
End Sub

Kolay Gelsin...

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .