vb 啟動后隱藏 ，并且不再任務欄顯示

1.添加一個模塊.名字就用默認的吧.再復制代碼到模塊中.

創(chuàng)新互聯公司服務項目包括荔城網站建設、荔城網站制作、荔城網頁制作以及荔城網絡營銷策劃等。多年來，我們專注于互聯網行業(yè)，利用自身積累的技術優(yōu)勢、行業(yè)經驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構等提供互聯網行業(yè)的解決方案，荔城網站推廣取得了明顯的社會效益與經濟效益。目前，我們服務的客戶以成都為中心已經輻射到荔城省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！

Option Explicit

Dim rtn As Long

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

Public Const SWP_HIDEWINDOW = H80

Public Const SWP_SHOWWINDOW = H40

2.回到form中,添加兩個按鈕,名字為"隱藏任務欄"、"顯示任務欄"

3.下面用到代碼了，看好了，要對號入座的。

首先是load

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2

其次是顯示任務欄的

rtn = FindWindow("Shell_traywnd", "")

Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)

最后是隱藏任務欄的

rtn = FindWindow("Shell_traywnd", "")

Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)

好了，編程完成！看能否運行

成功！

如果要編成惡意程序的話，只要將隱藏任務欄的命令復制到load中，再將整個程序的visible，showintaskbar設為false就行了,最后再加入unload me 讓它運行完后自動結束。看我操作！

VB.net里面的工具欄怎么能自動隱藏？

工具欄 一般都有自動隱藏，在工具欄的左或者右上方 有個圖標可以選擇隱藏的，我用的VS2010 反正在那里有設置的！

vb中隱藏任務欄的語句是什么

VB6.0需要使用Windows Api函數實現隱藏和顯示任務欄。

FindWindow函數檢索句柄到頂層窗口的類名和窗口名稱匹配指定的字符串。此功能不搜索子窗口。該功能不執(zhí)行區(qū)分大小寫的搜索。

IsWindowVisible函數檢索指定窗口的可見性狀態(tài)。

ShowWindow函數設置指定窗口的顯示狀態(tài)。

實現代碼：

Option?Explicit

Private?Declare?Function?FindWindow?Lib?"user32"?Alias?"FindWindowA"?(ByVal?lpClassName?As?String,?ByVal?lpWindowName?As?String)?As?Long

Private?Declare?Function?IsWindowVisible?Lib?"user32"?(ByVal?hwnd?As?Long)?As?Long

Private?Declare?Function?ShowWindow?Lib?"user32"?(ByVal?hwnd?As?Long,?ByVal?nCmdShow?As?Long)?As?Long

Private?Sub?Command1_Click()

Dim?hwnd?As?Long

hwnd?=?FindWindow("Shell_TrayWnd",?"")?'取任務欄窗口句柄

If?IsWindowVisible(hwnd)??0?Then?????'如果任務欄是可視狀態(tài)

ShowWindow?hwnd,?0?????????????????????'隱藏任務欄

Else???????????????????????????????????

ShowWindow?hwnd,?1?????????????????????'顯示任務欄

End?If

End?Sub

效果：

如何用vb隱藏任務欄中的任何一個圖標

有的朋友喜歡用修改注冊表的方法隱藏任務欄，這樣有可能會影響系統穩(wěn)定。

我以前試過，但是效果不好。

至于編寫VB程序，我覺得也很麻煩。

我為這個問題苦惱了好久，后來終于被我找到了一個簡單的軟件，無需安裝，真的非常方便。

可以隨意隱藏你想隱藏的任務欄圖標，或者窗口程序。而且可以輕易恢復。

PS

Tray

Factory

2.0破解版

VB.NET兩個窗體怎么同步顯示或隱藏？

1、沒有事件是直接由最小化、還原觸發(fā)的，它們都會觸發(fā)SizeChanged事件。所以你可以寫主窗體的SizeChanged事件來控制副窗體顯隱，順便改變副窗體的相對位置；

2、在SizeChanged事件中，通過判斷窗體的WindowState屬性來確定用戶是最小化還是還原了；（FormWindowState.Minimized和FormWindowState.Normal枚舉）

3、調用副窗體的BringToFront方法可以把副窗體帶到最前面來

VB，我想要把任務欄上面任意一個程序給隱藏起來

'這個問題也不是很難，先給你一個隱藏自己程序任務欄的例子，隱藏任務欄其他程序只需查找該程序的句柄即可

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 Const GWL_EXSTYLE As Long = (-20)

Private Const WS_EX_APPWINDOW As Long = H40000

Private Sub Form_Click()

Static ShowFlags As Boolean

Dim TempLng As Long

Me.Hide

TempLng = GetWindowLong(Me.hwnd, GWL_EXSTYLE)

If ShowFlags Then

TempLng = TempLng Or WS_EX_APPWINDOW

Else

TempLng = TempLng And Not WS_EX_APPWINDOW

End If

Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, TempLng)

'Debug.Print ShowFlags

ShowFlags = Not ShowFlags

Me.Show

End Sub

本文題目：vb.net任務欄隱藏,隱藏控件菜單欄vb
當前鏈接：http://chinadenli.net/article32/dsgdjpc.html

成都網站建設公司_創(chuàng)新互聯，為您提供軟件開發(fā)、網站設計、企業(yè)建站、網站內鏈、用戶體驗、服務器托管

廣告

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