Visual Basic'te Her zaman üstte kalan form

Visual Basic'te Her zaman üstte kalan form

'Formun kod kısmına aynen ekleyin
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()

SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE _
Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub

Başka bir örnek kod


'(General)(Declaration) kısmına yazın.
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

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)

Private Sub Form_Activate() 'kısmına yazın
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE _
Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub


İlk yorumu siz yazın !..

  • Yorumunuz en az 30 karakter olmalıdır. (0)
Sitede Ara
  • İnstagram Şekilli Profil Yazıları Oluşturma
    – єℓєşтιямє вєηιвєğєη∂ιуѕєη тαк∂ιя єт…нσşυηα gιтмιуσямυуυм кαƒαηα тαкмα ѕιктιя єт…...
  • Rüya Soyut Mu Somut Mu?
    Bu bilgiler benim bilim insanı olma bilgilerimi geliştirdi ve ayrıca ben çocuğum,kızım ve hayalimde ki ...
  • XP ne demek? XP nin anlamı nedir ?
    Roma dönemi konstantinin yaptığı simgeyi merak edip geldim ????...
  • Yeni başlayanlara En iyi 10 Kore dizisi
    Güzel liste. İlgimi çeken diziler oldu. Kill me heal me ve boys over flowers da olabilirmiş listede. ...
  • medal of honor spearhead kurulum hatası...
    iyiymiş ama birazı eksik olmuş bu...
  • Sevimli Komik ve İlginç Kedi Resimleri
    aaaaaaaaaaaaa çok şirinlerrrrr...
  • Saç dökülmesinin nedenleri ve Ahmet Maranki Karışımı
    Saçlarım da dökülme var açılmalar da olmaya başladı doktora gittim testler yaptırdım ama hiçbir sorun ç...