扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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
效果:
楼上的全屏显示其实没有用处,因为按一下Esc键就退出全屏了,然后就可以编辑了。
你的要求超出VB的能力,我给你支个招,事先把你想要展示的Word文档、Excel表格、PDF文档、CAD图转换成图片,然后就简单了,在VB中显示图片有很多方法。
转换图片,也有简单方法,即采用打印驱动的方式将文档“打印”成图片,这样就看不到软件的外观边框菜单这些。安装Microsoft Office时会同时安装Microsoft Office Document Image Writer,这个就是Office带的虚拟打印机。打印时选择这个虚拟打印机,输入一个文件名保存即可。保存的图片格式是tif。
工具栏 一般都有自动隐藏,在工具栏的左或者右上方 有个图标可以选择隐藏的,我用的VS2010 反正在那里有设置的!
绑定窗体的FormClosing事件,执行e.Cancel = True即可。
如果你不想在任务栏上显示窗体,把窗体的ShowOnTaskbar设为False。
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 让它运行完后自动结束。看我操作!
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流