VB编程,功能强大、易学实用。VB在众多公司开发中都有着非常广的应用。同时VB是众多大学的一门必考课、也是部分中学高考时的必考课程之一。
掌握VB编程,对提高自己的逻辑思维能力,深入学习计算机其他领域知识、提高自身能力都有着很大的帮助。
今天我们共同来学习用VB编写程序,从而实现对电脑任务栏的控制。
现在VB与数据库视频学习教程火热发放中,需要教程的朋友可以添加文末老师微信获取。
窗体界面图:
点击隐藏按钮时,系统任务栏隐藏不见,运行效果如下图:
点击显示按钮时,系统任务栏可见,运行效果如下图:
程序源代码:
'API函数声明
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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
Private Const SWP_SHOWWINDOW As Long = &H40 '常量定义
Private Const SWP_HIDEWINDOW As Long = &H80
Private Const SWP_NOACTIVATE As Long = &H10
Private Sub Command1_Click() '隐藏任务栏
Dim hide As Long
hide = FindWindow("Shell_traywnd", vbNullString)
Call SetWindowPos(hide, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) '调用函数
End Sub
Private Sub Command2_Click() '显示任务栏
Dim show As Long
show = FindWindow("Shell_traywnd", vbNullString)
Call SetWindowPos(show, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) '调用函数
End Sub
往期回顾
●用VB实现字母滚动效果!
●VB从入门到精通视频教程!
●用VB获取网站登陆的用户名和密码!
●VB编程语言基础知识点总结
![5b8f583d1f2e2bde33745ac309e9b8fc.png](https://i-blog.csdnimg.cn/blog_migrate/36b996dae759d18bb0301881e8fab1cd.png)
学习VB中有问题或者需要VB视频教程可以长按识别下图添加老师微信号,学习问题在线答疑。