vb.net隱藏其他窗口,vb隱藏所有控件
VB如何實現(xiàn)：隱藏外部程序窗口
添加一個窗體：
成都創(chuàng)新互聯(lián)專注于企業(yè)全網(wǎng)整合營銷推廣、網(wǎng)站重做改版、通城網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5場景定制、商城系統(tǒng)網(wǎng)站開發(fā)、集團公司官網(wǎng)建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù)，價格優(yōu)惠性價比高，為通城等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
窗體代碼：
Option
Explicit
Private
Sub
Form_Load()
'設(shè)置窗體過程
SetWindowHook
Me.hWnd
End
Sub
Private
Sub
Form_Unload(Cancel
As
Integer)
'取消窗體過程。
DelWindowHook
End
Sub
添加一個模塊，模塊代碼：
Option
Explicit
Private
Declare
Function
ShowWindow
Lib
"user32"
_
(ByVal
hWnd
As
Long,
ByVal
nCmdShow
As
Long)
As
Long
Private
Declare
Function
SetWindowLong
Lib
"user32"
_
Alias
"SetWindowLongA"
(ByVal
hWnd
As
Long,
ByVal
nIndex
As
Long,
_
ByVal
dwNewLong
As
Long)
As
Long
Private
Declare
Function
CallWindowProc
Lib
"user32"
_
Alias
"CallWindowProcA"
_
(ByVal
lpPrevWndFunc
As
Long,
ByVal
hWnd
As
Long,
ByVal
Msg
As
Long,
_
ByVal
wParam
As
Long,
ByVal
lParam
As
Long)
As
Long
Private
Declare
Function
RegisterHotKey
Lib
"user32"
_
(ByVal
hWnd
As
Long,
ByVal
id
As
Long,
_
ByVal
fsModifiers
As
Long,
ByVal
vk
As
Long)
As
Long
Private
Declare
Function
UnregisterHotKey
Lib
"user32"
_
(ByVal
hWnd
As
Long,
ByVal
id
As
Long)
As
Long
Private
Declare
Function
GetWindowText
Lib
"user32"
Alias
"GetWindowTextA"
_
(ByVal
hWnd
As
Long,
ByVal
lpString
As
String,
ByVal
cch
As
Long)
As
Long
Private
Declare
Function
GetClassName
Lib
"user32"
Alias
"GetClassNameA"
_
(ByVal
hWnd
As
Long,
ByVal
lpClassName
As
String,
ByVal
nMaxCount
As
Long)
As
Long
Private
Declare
Function
GetForegroundWindow
Lib
"user32"
()
As
Long
Private
Const
GWL_WNDPROC
=
(-4)
Private
Const
WM_HOTKEY
=
H312
Private
Const
VK_F7
=
H76
Dim
hPrevWndProc
As
Long
'原先的窗口過程。
Dim
hPrevHandle
As
Long
'原先的窗口句柄。
Dim
hHotKey
As
Long
'熱鍵句柄。
Dim
hH
As
Long
'隱藏的窗口句柄。
Private
Function
GetClassNameStr(ByVal
hWnd
As
Long)
As
String
'獲取窗體的類名。
Dim
TempStr
As
String,
Rc
As
Long
Const
NAME_MAX_LEN
=
256
TempStr
=
Space(NAME_MAX_LEN)
Rc
=
GetClassName(hWnd,
TempStr,
NAME_MAX_LEN)
GetClassNameStr
=
StrConv(LeftB$(StrConv(TempStr,
_
vbFromUnicode),
Rc),
vbUnicode)
End
Function
Private
Function
GetWindowTextStr(ByVal
hWnd
As
Long)
As
String
'獲取窗體標(biāo)題。
Dim
TempStr
As
String,
Rc
As
Long
Const
NAME_MAX_LEN
=
256
TempStr
=
Space(NAME_MAX_LEN)
Rc
=
GetWindowText(hWnd,
TempStr,
NAME_MAX_LEN)
GetWindowTextStr
=
StrConv(LeftB$(StrConv(TempStr,
_
vbFromUnicode),
Rc),
vbUnicode)
End
Function
Private
Function
WindowProc(ByVal
hWnd
As
Long,
_
ByVal
uMsg
As
Long,
ByVal
wParam
As
Long,
_
ByVal
lParam
As
Long)
As
Long
'新的窗口過程。
Dim
hNowWindow
As
Long
If
uMsg
=
WM_HOTKEY
And
wParam
=
101
Then
'如果按下了指定熱鍵。
hNowWindow
=
GetForegroundWindow()
If
GetClassNameStr(hNowWindow)
=
"Notepad"
_
And
GetWindowTextStr(hNowWindow)
=
_
"無標(biāo)題
-
記事本"
And
hH
=
Then
'如果當(dāng)前的活動窗口是無標(biāo)題記事本。
'隱藏窗體。
hH
=
hNowWindow
ShowWindow
hH,
ElseIf
hH
Then
'顯示窗體
ShowWindow
hH,
5
hH
=
End
If
End
If
'調(diào)用原有的窗體過程。
WindowProc
=
CallWindowProc(hPrevWndProc,
_
hWnd,
uMsg,
wParam,
lParam)
End
Function
Public
Sub
SetWindowHook(ByVal
hWnd
As
Long)
'設(shè)置新的窗口過程。
hPrevHandle
=
hWnd
hPrevWndProc
=
SetWindowLong
_
(hPrevHandle,
GWL_WNDPROC,
AddressOf
WindowProc)
'設(shè)置熱鍵(F7)。
hHotKey
=
RegisterHotKey(hPrevHandle,
101,
0,
VK_F7)
End
Sub
Public
Sub
DelWindowHook()
'恢復(fù)原有的窗口過程。
SetWindowLong
hPrevHandle,
GWL_WNDPROC,
hPrevWndProc
'取消熱鍵
UnregisterHotKey
hPrevHandle,
hHotKey
End
Sub
VB顯示新窗口和隱藏窗口代碼
你說的是不是調(diào)用另外一個窗口。。。
假設(shè)你有兩個窗體
一個叫做form1
一個叫做form2
在form1中添加一個按鈕，當(dāng)點擊按鈕的時候?qū)⒄{(diào)用form2的窗口并隱藏form1窗口。。
這時你可以雙擊按鈕給他添加如下代碼：
form2.show();
//顯示form2這個窗體
form1.hide();
//隱藏form1這個窗體
這樣就可以了...這是在VB中調(diào)用窗口,如果是在C#里面比較麻煩,要先實例化才可以...
Form2
form2=new
Form2();
//先實例化Form2窗體
form2.show();
//調(diào)用他的窗體
this.hide();
//this是當(dāng)前的意思,就是說隱藏當(dāng)前窗體Form1
VB.NET兩個窗體怎么同步顯示或隱藏？
1、沒有事件是直接由最小化、還原觸發(fā)的，它們都會觸發(fā)SizeChanged事件。所以你可以寫主窗體的SizeChanged事件來控制副窗體顯隱，順便改變副窗體的相對位置；
2、在SizeChanged事件中，通過判斷窗體的WindowState屬性來確定用戶是最小化還是還原了；（FormWindowState.Minimized和FormWindowState.Normal枚舉）
3、調(diào)用副窗體的BringToFront方法可以把副窗體帶到最前面來
VB.NET按下一個按鈕如何彈出第三個窗口，隱藏第一個和第二個
首先要添加兩個窗體，假設(shè)第一個窗體名為Form1，第二個窗體名為Form2。在Form1窗體中添加個按鈕Command1。按鈕單擊事件的代碼為：
Private Sub Command1_Click()
Form2.Show '用show方法加載并且顯示名為Form2的窗體
End Sub
show 方法后面省略了兩個參數(shù)即Form2.Show 0或Form2.Show 1此參數(shù)可缺省。可自行運行驗證
網(wǎng)頁名稱：vb.net隱藏其他窗口,vb隱藏所有控件
文章鏈接：http://chinadenli.net/article0/hshooo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護、網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、微信公眾號、網(wǎng)站內(nèi)鏈、企業(yè)網(wǎng)站制作
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)
