[VB.NET]控制开始按钮和任务栏
来源:互联网 发布:vb visible属性 编辑:程序博客网 时间:2024/04/30 23:49
实例说明
在本实例中,我们将制作一个能够控制开始按钮和任务栏的显示与隐藏功能的应用程序。程序运行结果如图92-1所示。
图92-1 运行结果
<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>技术要点
l 显示/隐藏任务栏
l 显示/隐藏开始按钮
实现过程
■ 新建项目
打开Visual Studio.NET,选择"新建项目",在项目类型窗口中选择"Visual Basic项目",在模板窗口中选择"Windows应用程序",在名称域中输入"ShowStart",然后选择保存路径。单击"确认"。
■ 添加控件
在窗体上添加两个GroupBox控件,在每个GroupBox控件上添加两个RadioButton控件,
■ 设置属性
将窗体和各控件的Text属性设置为和界面一致。
■ 添加代码
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Integer, ByVal nCmdShow As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Const SW_HIDE As Short = 0
Private Const SW_SHOW As Short = 5
Private Const SW_SHOWNORMAL = 1
Dim hLong As Integer
Dim hwnd As Integer
'显示开始按钮
Private Sub optShowStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optShowStart.Click
If optShowStart.Checked Then
hwnd = FindWindow("Shell_TrayWnd", vbNullString)
hLong = FindWindowEx(hwnd, 0, "Button", Nothing)
ShowWindow(hLong, SW_SHOW)
End If
End Sub
'隐藏开始按钮
Private Sub optHideStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optHideStart.Click
If optHideStart.Checked Then
hwnd = FindWindow("Shell_TrayWnd", Nothing)
ShowWindow(hLong, SW_HIDE)
End If
End Sub
'隐藏任务栏
Private Sub optHideTask_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optHideTask.Click
If optHideTask.Checked Then
hwnd = FindWindow("Shell_TrayWnd", vbNullString)
'隐藏任务栏
ShowWindow(hwnd, SW_HIDE)
End If
End Sub
'显示任务栏
Private Sub optShowTask_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles optShowTask.Click
If optShowTask.Checked Then
hwnd = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow(hwnd, SW_SHOWNORMAL)
End If
End Sub
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
本实例讲述了如何进行显示和隐藏开始按钮或任务栏的方法。
- [VB.NET]控制开始按钮和任务栏
- [VB.NET]怎样控制form显示时任务栏不隐藏,并且点WIN键后开始菜单和任务栏也不弹出!
- VB.net 任务栏标签显示
- VB 隐藏任务栏和显示任务栏
- C# 隐藏任务栏开始按钮 关闭shell
- VB和VB.NET 文本框的输入控制
- VB.NET轻松实现任务栏程序
- VB.NET轻松实现任务栏程序
- 开始学vb.net
- 开始学VB.NET
- ListView 控制 VB.net
- vb.net 鼠标控制
- [VB.NET]求vb.net声道控制
- 使用vb 6和vb.net为Office应用添加工具栏和按钮
- VB.net今天开始学习
- 学js中级 开始学dom 留的作业 按钮控制计时开始和停止
- 在VB中如何把开始和暂停放在同一个按钮里
- VB.NET轻松实现任务栏程序 [不到10行代码]
- [VB.NET]文件操作
- n[VB.NET]使用Splitter控件
- 如何利用缓冲区溢出的程序错误来运行黑客程序(续)
- 安装将仅在管理模式下运行,安装终止
- [VB.NET]空心字体
- [VB.NET]控制开始按钮和任务栏
- [VB.NET]访问控制面板
- [VB.NET]电话拨号
- 被转载n次的rpm常识
- 用JavaScript控制弹出窗口
- 实现正则表达式处理功能
- [VB.NET]动态标题
- 苦从何而来
- [VB.NET]磁盘信息