Formunuzu Her zaman Üstte tutmak !!

By TarantuLa FaHRi

By TarantuLa FaHRi

Üye
4 Şub 2012
214
1
Çankırı
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...


Kod: 
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

Kod: 
[COLOR="lime"]Const HWND_TOPMOST = -1 [/COLOR]


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

Kod: 
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:

Kod: 
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...
 
enkanet

enkanet

Katılımcı Üye
7 Nis 2012
877
0
Snarım VB6.0 için..VB.NET için = Properties'den TopMost'u True Yaparsanız Oluyor...Yararlı Anlatım Teşekkürler...Teşekkürünü Verdim Bile...
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.