189 8069 5689

vb.net任务栏隐藏,隐藏控件菜单栏vb

vb 启动后隐藏 ,并且不再任务栏显示

1.添加一个模块.名字就用默认的吧.再复制代码到模块中.

创新互联公司服务项目包括荔城网站建设、荔城网站制作、荔城网页制作以及荔城网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,荔城网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到荔城省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!

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函数检索句柄到顶层窗口的类名和窗口名称匹配指定的字符串。此功能不搜索子窗口。该功能不执行区分大小写的搜索。

IsWindowVisible函数检索指定窗口的可见性状态。

ShowWindow函数设置指定窗口的显示状态。

实现代码:

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     '如果任务栏是可视状态

ShowWindow hwnd, 0                     '隐藏任务栏

Else                                   

ShowWindow hwnd, 1                     '显示任务栏

End If

End Sub

效果:

如何用vb隐藏任务栏中的任何一个图标

有的朋友喜欢用修改注册表的方法隐藏任务栏,这样有可能会影响系统稳定。

我以前试过,但是效果不好。

至于编写VB程序,我觉得也很麻烦。

我为这个问题苦恼了好久,后来终于被我找到了一个简单的软件,无需安装,真的非常方便。

可以随意隐藏你想隐藏的任务栏图标,或者窗口程序。而且可以轻易恢复。

PS

Tray

Factory

2.0破解版

VB.NET两个窗体怎么同步显示或隐藏?

1、没有事件是直接由最小化、还原触发的,它们都会触发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://jkwzsj.com/article/dsgdjpc.html

其他资讯