网站建设资讯

NEWS

网站建设资讯

vb.net屏蔽任务栏 怎么屏蔽任务栏

vb中隐藏任务栏的语句是什么

VB6.0需要使用Windows Api函数实现隐藏和显示任务栏。

创新互联服务电话:18982081108,为您提供成都网站建设网页设计及定制高端网站建设服务,创新互联网页制作领域十多年,包括电动窗帘等多个方面拥有多年的营销推广经验,选择创新互联,为企业保驾护航。

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调用其它程序,如何隐藏任务栏,只显示内容

楼上的全屏显示其实没有用处,因为按一下Esc键就退出全屏了,然后就可以编辑了。

你的要求超出VB的能力,我给你支个招,事先把你想要展示的Word文档、Excel表格、PDF文档、CAD图转换成图片,然后就简单了,在VB中显示图片有很多方法。

转换图片,也有简单方法,即采用打印驱动的方式将文档“打印”成图片,这样就看不到软件的外观边框菜单这些。安装Microsoft Office时会同时安装Microsoft Office Document Image Writer,这个就是Office带的虚拟打印机。打印时选择这个虚拟打印机,输入一个文件名保存即可。保存的图片格式是tif。

VB.net里面的工具栏怎么能自动隐藏?

工具栏 一般都有自动隐藏,在工具栏的左或者右上方 有个图标可以选择隐藏的,我用的VS2010 反正在那里有设置的!

vb.net中如何禁止从任务栏关闭window

绑定窗体的FormClosing事件,执行e.Cancel = True即可。

如果你不想在任务栏上显示窗体,把窗体的ShowOnTaskbar设为False。

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屏蔽任务栏 怎么屏蔽任务栏
分享URL:http://cdweb.net/article/hjeipc.html