Her zaman, bir form oluþturma üstte kalýr.

Bir özellik veya yöntem en üstteki pencere bir form oluþturmak için Microsoft Visual Basic saðlamamaktadýr. Bu davranýþ, SetWindowPos Win32 API kullanarak elde edilebilir.

Bu makalede, formu SetWindowPos Win32 API kullanarak en üstteki pencere olarak ayarlama gösterilmiþtir.

Aþaðýdaki örnek kodu SetTopMostWindow adýnda bir iþlevi kullanýr. SetTopMostWindow iþlevi, bir pencereyi en üstteki bir pencere olarak veya iki parametre (hwnd ve kendisine geçirilen Topmost, temel, normal bir pencere olarak ayarlar.

Hwnd parametresi, en üstteki veya normal olarak ayarlamak için pencerenin tanýtýcýyý belirtir.

En üstteki parametresi, formun en üstteki veya normal olarak ayarlamak belirtir. Deðer true ise, iþlev, formun her zaman üstte kalmasýný ayarlar. Deðer false ise, iþlev, form normal bir pencere olarak ayarlar.

Adým adým örnek

1. Yeni bir standart exe DOSYASý proje baþlatýn. Varsayýlan olarak, Form1 oluþturulur.
2. Iki komut düðmeleri (Command1 ve Command2) Form1'e ekleyin.
3. Command1 "Her zaman üstte." için <a1>Baþlýk</a1> özelliðini ayarlayýn
4. "Normal" için Command2 <a1>Baþlýk</a1> özelliðini ayarlayýn
5. Aþaðýdaki kodu Form1 Beyanname bölümünde yerleþtirin:

         Option Explicit
   
         Private Sub Command1_Click()
            Dim lR As Long
            lR = SetTopMostWindow(Form1.hwnd, True)
         End Sub
   
         Private Sub Command2_Click()
            Dim lR As Long
            lR = SetTopMostWindow(Form1.hwnd, False)
         End Sub
   
   					

6. Proje) menüsünde Add yeni bir modül projeye eklemek için modülü,'ý týklatýn.
7. Yeni modüle aþaðýdaki kodu ekleyin:

         Option Explicit
         Public Const SWP_NOMOVE = 2
         Public Const SWP_NOSIZE = 1
         Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
         Public Const HWND_TOPMOST = -1
         Public Const HWND_NOTOPMOST = -2
   
         Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos"  _
               (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  ) As Long
   
         Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
            As Long
   
            If Topmost = True Then 'Make the window topmost
               SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _
                  0, FLAGS)
            Else
               SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, _
                  0, 0,FLAGS)
               SetTopMostWindow = False
            End If
         End Function
   
   					

   
   Not: Yukarýdaki örnek kodda, bir satýr devam karakter olarak bir satýr sonunda alt çizgi (_) kullanýlýr.
   
   
8. F5 tuþuna basarak projeyi çalýþtýrýn.

"Her zaman üstte" komut düðmesini týklattýðýnýzda, formunuz en üstteki pencere olur ve her pencerenin üstünde kalýr; üzerindeki baþka bir pencereyi taþýyamazsýnýz. "Normal" düðmesini týklattýðýnýzda, form normal olarak davranýr (diðer pencerelerin üstünde, taþýyabilirsiniz).

Ek bilgi için lütfen aþaðýdaki Microsoft Knowledge Base'deki makaleleri bakýn: Ayrýca VB\Samples\CallDlls klasöründe bulunan örnek proje CallDlls, görüntüleyin. CallDlls örnek form en üstteki pencere olarak ayarlamak için kodu ve örnek gösterilmiþtir.