📄 m22.htm
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
<td bgcolor=#000000 height=14>
<div align=center class=H1> <font color="#FFFFFF" class="unnamed1">利用API函数实现隐藏和显示桌面图标</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <font color="#000000">Private Declare
Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName
As String, ByVal lpWindowName As String) As Long<br>
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long,
ByVal nCmdShow As Long) As Long<br>
Private Const SW_HIDE = 0<br>
Private Const SW_RESTORE = 9<br>
<br>
'隐藏桌面图标<br>
Private Sub Command1_Click()<br>
Dim Hwd As Long<br>
Dim rtn As Long<br>
Hwd = FindWindow("Progman", vbNullString)<br>
rtn = ShowWindow(Hwd, SW_HIDE)<br>
End Sub<br>
<br>
'显示桌面图标<br>
Private Sub Command2_Click()<br>
Dim Hwd As Long<br>
Dim rtn As Long<br>
Hwd = FindWindow("Progman", vbNullString)<br>
rtn = ShowWindow(Hwd, SW_RESTORE)<br>
End Sub <br>
</font></span> <br>
</p>
</td>
</tr>
</table>
</div>
<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -