VB中如何實現(xiàn)一個窗體始終處于最上方

要用 API 函數(shù)。

為邵武等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及邵武網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站設(shè)計、做網(wǎng)站、邵武網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

SetWindowPos

'示例:

Option Explicit

Private Declare Function 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) As Long

Private Const HWND_TOPMOST = -1

' 將窗口置于列表頂部，并位于任何最頂部窗口的前面

Private Const SWP_NOSIZE = H1

' 保持窗口大小

Private Const SWP_NOMOVE = H2

' 保持窗口位置

Private Sub Form_Load()

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

' 將窗口設(shè)為總在最前

End Sub

VB.NET窗口置頂在最前面顯示的時候不影響目前鼠標焦點.

這是一個關(guān)于模態(tài)窗口與非模態(tài)窗口的問題。

實現(xiàn)非模態(tài)窗口也沒什么難度

Dim form As New Form1

form.TopMost = True

form.Show()

你再將鼠標移到父窗口上，彈出的窗口也不會消失。

VB.NET如何讓彈出的窗體顯示在所有的窗體的最前面（包括其他程序打開的窗體）

你可以這樣做，設(shè)置窗體的TopMost 屬性為真！

Me.TopMost = True

Form.TopMost 屬性

獲取或設(shè)置一個值，指示該窗體是否應(yīng)顯示為最頂層窗體。