vb.net中子窗口置頂 vbs置頂指定窗口

VB中怎么寫。將窗口置頂的代碼

用SetWindowPos函數，通用部分聲明：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 a = -1

Private Const b = H1

Private Const c = H2窗體部分：

Private Sub Form_Load()

SetWindowPos Me.hwnd, a, 0, 0, 0, 0, b Or c

End Sub這個是在窗體加載的時候置頂，SetWindowPos Me.hwnd, a, 0, 0, 0, 0, b Or c 是窗體置頂的實現代碼如果你要按下按鈕就實現指定可以把它添加到command1_click事件中即可

VB中將窗口置頂的代碼是什么？

用SetWindowPos函數，通用部分聲明：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 a = -1

Private Const b = H1

Private Const c = H2窗體部分：

Private Sub Form_Load() ?。

Visual Basic是一種由微軟公司開發的包含協助開發環境的事件驅動編程語言。從任何標準來說，VB都是世界上使用人數最多的語言——不僅是盛贊VB的開發者還是抱怨VB的開發者的數量。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接數據庫，或者輕松的創建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。

VB窗口置頂。。。。。

API函數SetWindowPos

'這個函數能為窗口指定一個新位置和狀態。它也可改變窗口在內部窗口列表中的位置。該函數與DeferWindowPos函數相似，只是它的作用是立即表現出來的（在vb里使用：針對vb窗體，如它們在win32下屏蔽或最小化，則需重設最頂部狀態。如有必要，請用一個子類處理模塊來重設最頂部狀態）

Public

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

'hwnd

-----------

Long，欲定位的窗口

'hWndInsertAfter

-

Long，窗口句柄。在窗口列表中，窗口hwnd會置于這個窗口句柄的后面。也可能選用下述值之一：

Public

Const

HWND_BOTTOM

=

1

'將窗口置于窗口列表底部

Public

Const

HWND_TOP

=

'將窗口置于Z序列的頂部；Z序列代表在分級結構中，窗口針對一個給定級別的窗口顯示的順序

Public

Const

HWND_TOPMOST

=

-1

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

Public

Const

HWND_NOTOPMOST

=

-2

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

'x

--------------

Long，窗口新的x坐標。如hwnd是一個子窗口，則x用父窗口的客戶區坐標表示

'y

--------------

Long，窗口新的y坐標。如hwnd是一個子窗口，則y用父窗口的客戶區坐標表示

'cx

-------------

Long，指定新的窗口寬度

'cy

-------------

Long，指定新的窗口高度

'wFlags

---------

Long，包含了旗標的一個整數

Public

Const

SWP_FRAMECHANGED

=

H20

'強迫一條WM_NCCALCSIZE消息進入窗口，即使窗口的大小沒有改變

Public

Const

SWP_DRAWFRAME

=

SWP_FRAMECHANGED

'圍繞窗口畫一個框

Public

Const

SWP_HIDEWINDOW

=

H80

'隱藏窗口

Public

Const

SWP_NOACTIVATE

=

H10

'不激活窗口

Public

Const

SWP_NOMOVE

=

H2

'保持當前位置

(x和y設定將被忽略)

Public

Const

SWP_NOREDRAW

=

H8

'窗口不自動重畫

Public

Const

SWP_NOSIZE

=

H1

'保持當前大小

(cx和cy會被忽略)

Public

Const

SWP_NOZORDER

=

H4

'保持窗口在列表的當前位置

(hWndInsertAfter將被忽略)

Public

Const

SWP_SHOWWINDOW

=

H40

'顯示窗口

'用法示例

SetWindowPos

Form1.hwnd,

HWND_TOPMOST,

0,

0,

0,

0,

SWP_NOMOVE

Or

SWP_NOSIZE

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

這是一個關于模態窗口與非模態窗口的問題。

實現非模態窗口也沒什么難度

Dim form As New Form1

form.TopMost = True

form.Show()

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

vb怎么讓窗體置頂于所有窗體之上（包括任務管理器那類已經置頂的窗體？

參數編輯

hWnd:窗口句柄。

hWndlnsertAfter:在z序中的位于被置位的窗口前的窗口句柄。該參數必須為一個窗口句柄，或下列值之一：

HWND_BOTTOM：將窗口置于Z序的底部。如果參數hWnd標識了一個頂層窗口，則窗口失去頂級位置，并且被置在其他窗口的底部。

HWND_NOTOPMOST：將窗口置于所有非頂層窗口之上（即在所有頂層窗口之后）。如果窗口已經是非頂層窗口則該標志不起作用。

HWND_TOP:將窗口置于Z序的頂部。

HWND_TOPMOST:將窗口置于所有非頂層窗口之上。即使窗口未被激活窗口也將保持頂級位置。

查看該參數的使用方法，請看說明部分。

x：以客戶坐標指定窗口新位置的左邊界。

Y：以客戶坐標指定窗口新位置的頂邊界。

cx:以像素指定窗口的新的寬度。

cy：以像素指定窗口的新的高度。

uFlags:窗口尺寸和定位的標志。該參數可以是下列值的組合：

SWP_ASYNCWINDOWPOS：如果調用進程不擁有窗口，系統會向擁有窗口的線程發出需求。這就防止調用線程在其他線程處理需求的時候發生死鎖。

SWP_DEFERERASE：防止產生WM_SYNCPAINT消息。

SWP_DRAWFRAME：在窗口周圍畫一個邊框（定義在窗口類描述中）。

SWP_FRAMECHANGED：給窗口發送WM_NCCALCSIZE消息，即使窗口尺寸沒有改變也會發送該消息。如果未指定這個標志，只有在改變了窗口尺寸時才發送WM_NCCALCSIZE。

SWP_HIDEWINDOW;隱藏窗口。

SWP_NOACTIVATE：不激活窗口。如果未設置標志，則窗口被激活，并被設置到其他最高級窗口或非最高級組的頂部（根據參數hWndlnsertAfter設置）。

SWP_NOCOPYBITS：清除客戶區的所有內容。如果未設置該標志，客戶區的有效內容被保存并且在窗口尺寸更新和重定位后拷貝回客戶區。

SWP_NOMOVE：維持當前位置（忽略X和Y參數）。

SWP_NOOWNERZORDER：不改變z序中的所有者窗口的位置。

SWP_NOREDRAW:不重畫改變的內容。如果設置了這個標志，則不發生任何重畫動作。適用于客戶區和非客戶區（包括標題欄和滾動條）和任何由于窗回移動而露出的父窗口的所有部分。如果設置了這個標志，應用程序必須明確地使窗口無效并區重畫窗口的任何部分和父窗口需要重畫的部分。

SWP_NOREPOSITION；與SWP_NOOWNERZORDER標志相同。

SWP_NOSENDCHANGING：防止窗口接收WM_WINDOWPOSCHANGING消息。

SWP_NOSIZE：維持當前尺寸（忽略cx和Cy參數）。

SWP_NOZORDER：維持當前Z序（忽略hWndlnsertAfter參數）。

SWP_SHOWWINDOW：顯示窗口。

返回值：如果函數成功，返回值為非零；如果函數失敗，返回值為零。若想獲得更多錯誤消息，請調用GetLastError函數。

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()?

SetWindowPos?Me.HWnd,?-1,?0,?0,?0,?0,?2?Or?1?

End?Sub

'你可以根據參數自己設定，不過，要置頂在游戲那種窗口前面有些不行，因為人家游戲抓住了句柄，無法搶在它前面...頂多只能熱鍵來呼應你的程序

分享標題：vb.net中子窗口置頂 vbs置頂指定窗口
轉載來源：http://m.kartarina.com/article32/hjgspc.html

成都網站建設公司_創新互聯，為您提供定制網站、網站維護、Google、域名注冊、移動網站建設、網站策劃

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯