利用api函数实现隐藏和显示桌面图标_visualbasic教程

PrivateDeclareFunctionFindWindowLib”user32″Alias”FindWindowA”(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateDeclareFunctionShowWindowLib”user32″(ByValhwndAsLong,ByValnCmdShowAsLong)AsLong
PrivateConstSW_HIDE=0
PrivateConstSW_RESTORE=9

隐藏桌面图标
PrivateSubCommand1_Click()
DimHwdAsLong
DimrtnAsLong
Hwd=FindWindow(“Progman”,vbNullString)
rtn=ShowWindow(Hwd,SW_HIDE)
EndSub

显示桌面图标
PrivateSubCommand2_Click()
DimHwdAsLong
DimrtnAsLong
Hwd=FindWindow(“Progman”,vbNullString)
rtn=ShowWindow(Hwd,SW_RESTORE)
EndSub->