建站
咨詢
售后
建站咨詢
新聞中心
VB.NET窗口置頂在最前面顯示的時(shí)候不影響目前鼠標(biāo)焦點(diǎn).
這是一個(gè)關(guān)于模態(tài)窗口與非模態(tài)窗口的問(wèn)題。
專注于為中小企業(yè)提供網(wǎng)站建設(shè)、成都網(wǎng)站制作服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)景谷免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了上1000+企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
實(shí)現(xiàn)非模態(tài)窗口也沒(méi)什么難度
Dim form As New Form1
form.TopMost = True
form.Show()
你再將鼠標(biāo)移到父窗口上，彈出的窗口也不會(huì)消失。
在VB中怎樣才能讓自己的窗體總在最前顯示
引用API函數(shù)SetWindowPos就可以解決。下面看看代碼：
Private?Declare?Function?SetWindowPos?Lib?"user32.dll"?(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
Const?SWP_NOMOVE?=?H2
Const?SWP_NOSIZE?=?H1
Const?FLAG?=?SWP_NOMOVE?Or?SWP_NOSIZE
Const?HWND_TOPMOST?=?-1
Const?HWND_NOTOPMOST?=?-2
Const?HWND_TOP?=?0
Const?HWND_BOTTOM?=?1
將窗口設(shè)置最前：Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAG)
取消窗口的最前：Call SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAG)
函數(shù)的第一個(gè)參數(shù)是根據(jù)實(shí)際情況改變的，它要求給它傳送一個(gè)窗口的句柄，這里的 Me.hwnd 就給函數(shù)傳送了當(dāng)前窗口的句柄，也就是將當(dāng)前窗口前置或取消前置。如果要前置其他窗口，那么請(qǐng)向函數(shù)傳送其他窗口的句柄，這個(gè)可以根據(jù)：FindWindow API函數(shù)獲取。
如何使VB窗口總在最前?
如果要不會(huì)被DIRECTX全屏的程序覆蓋，那么加上一個(gè)timer事件，每隔一秒就把窗口顯示在前面，哈哈我測(cè)試過(guò)了有效，以前學(xué)過(guò)一個(gè)學(xué)期的VB。
代碼如下
Option Explicit
Const Hwndx = -1
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 Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim XX As Long
XX = SetWindowPos(Me.Hwnd, Hwndx, 0, 0, 0, 0, 3)
End Sub
記住別忘加timer按鈕
或者這樣
建立模塊
Option Explicit
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)
Private Sub Form_Load()
Dim rtn
'讓窗口在頂層
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
'取消窗口在頂層
'rtn = SetWindowPos(F_V.hwnd, -2, 0, 0, 0, 0, 3)
End Sub
本文標(biāo)題：vb.net總在最前,vb窗口始終在最前面
鏈接地址：http://fisionsoft.com.cn/article/hcpojp.html
