Formunuz Hep Üstte Kalsın(VB)

Son güncelleme: 02.02.2007 07:51
  • Hiç altta kalmayacak bir form yapalım

    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()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE _
    Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End Sub


    Kolay Gelsin
#02.02.2007 07:51 0 0 0