网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

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://bjjierui.cn/article/hjeipc.html

其他资讯