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

温总

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

淡然出尘

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

Exo

感谢楼主分享！

温总

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

我有那么出名么？

淡然出尘

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

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

温总

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

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

evilfarmer

受教了。。。API不熟悉啊

xxhaishixx

表示温总一直很出名