Cara untuk membuat bentuk yang selalu tetap di atas

Microsoft Visual Basic tidak menawarkan properti atau metode untuk membuat bentuk jendela paling atas. Perilaku ini dapat dicapai dengan menggunakan SetWindowPos Win32 API.

Artikel ini menunjukkan bagaimana untuk mengatur bentuk sebagai menggunakan paling atas jendela SetWindowPos Win32 API.

Contoh kode di bawah ini menggunakan fungsi yang disebut SetTopMostWindow. The SetTopMostWindow fungsi set jendela sebagai paling atas jendela atau sebagai normal Jendela, berdasarkan kedua parameter, hwnd dan Topmost, melewati itu.

Hwnd parameter menunjukkan menangani jendela harus ditetapkan sebagai paling atas atau seperti biasa.

Parameter paling atas menentukan apakah untuk mengatur bentuk sebagai paling atas atau sebagai normal. Jika nilai benar, fungsi menetapkan bentuk selalu tetap di atas. Jika nilai palsu, fungsi menetapkan bentuk sebagai normal jendela.

Contoh langkah demi langkah

1. Memulai sebuah proyek Standard EXE yang baru. Form1 dibuat secara default.
2. Menambahkan dua tombol perintah (Command1 dan Command2) untuk Form1.
3. Mengatur properti keterangan Command1 untuk "Selalu di atas."
4. Mengatur properti keterangan Command2 "Normal."
5. Letakkan kode berikut di bagian Form1 Deklarasi:

         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. Pada menu proyek, klik Tambahkan modul, untuk menambahkan modul baru untuk proyek.
7. Tambahkan kode berikut untuk modul baru:

         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
   
   					

   
   Catatan: Dalam kode contoh di atas, garis bawah (_) pada akhir baris adalah digunakan sebagai karakter baris-kelanjutan.
   
   
8. Tekan F5 untuk menjalankan projek.

Jika Anda mengklik tombol perintah "Selalu di atas", bentuk Anda menjadi paling atas jendela dan tetap di atas dari setiap jendela; Anda tidak bisa bergerak setiap jendela lain diatasnya. Jika Anda mengklik tombol "Normal", bentuk berperilaku biasanya (Anda dapat memindahkan jendela lainnya di atas semua itu).

Untuk informasi tambahan, silakan lihat artikel berikut di Basis Pengetahuan Microsoft:Juga melihat contoh proyek, CallDlls, terletak di VB\Samples\CallDlls folder. Contoh CallDlls memiliki kode untuk mengatur bentuk sebagai jendela paling atas dan digambarkan dalam sampel.