|
|
 |
« : 02 Mayıs 2008, 10:25:10 » |
|
Bazı pencereler hep üstte kalmayı başarabiliyorlar. Bunu yapmak da çok kolay. Sizlere bununla ilgili çok kısa bir kod hazırladım. Başrolde SetWindowsPos API si yer alıyor.Nefesleri kesecek bu projeyi hep beraber kullanalım.
'Bu kodu tamamen kopyala-yapıştır yapın...
'Formun kod kısmına aynen ekleyin bakalım n'olcak ?
Const HWND_TOPMOST = -1 ' Hep üstte tutan değişken değer
Const HWND_NOTOPMOST = -2 ' Hep üstte özelliğini yok eden değişken değer...
Const SWP_NOSIZE = &H1 ' Formun boyutlarını değiştirilmez yapar...
Const SWP_NOMOVE = &H2 ' Formu taşınmaz yapar...
Const SWP_NOACTIVATE = &H10 ' Form Aktif yapılmaz...
Const SWP_SHOWWINDOW = &H40 ' Pencere Görünür Yapılır...
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)
' Form Her Aktif Olduğunda su üstüne çıkıyor :-)
Private Sub Form_Activate()
' vbturk
' Linklerin Görülmesine İzin Verilmiyor
Linki Görebilmek İçin Üye Ol veya Giriş Yap
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE _
Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
|
|
|
|
|
Logged
|
|
|
|
|
Webmaster / Web Dizayn Scriptler / Programlama Dilleri
