网站 › 『编程语言区』 › VB 隐藏桌面图标与显示图标 源码

温总 发表于 2014-4-13 09:03

VB 隐藏桌面图标与显示图标 源码

本帖最后由 温总 于 2014-4-13 09:05 编辑

VB 隐藏桌面图标与显示图标，并非是调用桌面上右键显示图标的功能；因为如果用的是桌面上右键的功能，在桌面上还可以右键去显示图标；代码很简单；添加一个command1与commmand2
写入以下代码；
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_RESTORE = 9
'隐藏桌面图标
Private Sub Command1_Click()
Dim Hwd   As Long
Dim rtn   As Long
Hwd = FindWindow("Progman", vbNullString)
rtn = ShowWindow(Hwd, SW_HIDE)
End Sub   
'显示桌面图标
Private Sub Command2_Click()
Dim Hwd   As LongDim rtn   As Long
Hwd = FindWindow("Progman", vbNullString)
rtn = ShowWindow(Hwd, SW_RESTORE)
End Sub

淡然出尘 发表于 2014-4-13 09:09

原来是温总 我貌似在Q群VB中听过您老的大名
欢迎欢迎哈

Exo 发表于 2014-4-13 09:13

感谢楼主分享！

温总 发表于 2014-4-13 09:59

淡然出尘 发表于 2014-4-13 09:09
原来是温总 我貌似在Q群VB中听过您老的大名
欢迎欢迎哈

我有那么出名么？

淡然出尘 发表于 2014-4-13 10:04

温总 发表于 2014-4-13 09:59
我有那么出名么？

codefans应该有很多你的VB源码吧？我曾经学习过 O(∩_∩)O

温总 发表于 2014-4-13 10:06

淡然出尘 发表于 2014-4-13 10:04
codefans应该有很多你的VB源码吧？我曾经学习过 O(∩_∩)O

是有，但我不能说很多；你觉得很多的原因可能是你也喜欢我发的那方面的。

evilfarmer 发表于 2014-4-14 00:14

受教了。。。API不熟悉啊

xxhaishixx 发表于 2014-4-15 01:57

表示温总一直很出名

查看完整版本: VB 隐藏桌面图标与显示图标 源码