Cara untuk membuat bentuk yang selalu tetap di atas

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 184297 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

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.

INFORMASI LEBIH LANJUT

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).

REFERENSI

Untuk informasi tambahan, silakan lihat artikel berikut di Basis Pengetahuan Microsoft:
84251Cara membuat jendela paling atas atau mengambang dalam Visual Basic

150233BUG: Paling atas jendela tidak tinggal di atas dalam desain lingkungan
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.

Properti

ID Artikel: 184297 - Kajian Terakhir: 16 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 4.0 Enterprise Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
Kata kunci: 
kbhowto kbmt KB184297 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:184297

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com