📄 9727.html
字号:
<html>
<head>
<title>Re: vb6.0中文普及版能够更换桌布吗?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: vb6.0中文普及版能够更换桌布吗?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:winntuser@hotmail.com">Windows NT user</a> on February 01, 1999 at 09:15:45:<p>
In Reply to: <a href="9540.html">vb6.0中文普及版能够更换桌布吗?</a> posted by Luke on January 25, 1999 at 14:55:03:<p>
: 我是一个VB程式设计新手,同学找我帮忙以VB开发一个程式用以更换WIN95的桌面底色图案,但我翻遍资料也找不到方法,请高手们帮忙(越详细越好)<br>: THANKS!<p><br>Option Explicit<p>Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long<p>Private Const SPI_SETDESKWALLPAPER = 20<p>Private Const SPIF_UPDATEINIFILE = &H1<p>Private Const SPIF_SENDWININICHANGE = &H2<p><br>Private Sub Command1_Click()<br>Dim filepath As String<br>SystemParametersInfo SPI_SETDESKWALLPAPER, 0, filepath, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE<br>End Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 9727-->
</ul><!--end: 9727-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -