computer 版 (精华区)

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:如何用程序改变Windows 95的墙纸？
发信站: 听涛站 (Fri Mar 10 19:09:18 2000), 转信

在我们的程序设计中，如果想要改变Windows的墙纸，那么可以Windows的API函数Syste
mPaarametersInfo来实现。
具体步骤如下：
1) 在VB中新建一个标准EXE工程；
2) 画出一个按钮Command1；
3) 在窗体Form1中定义Windows API的声明；
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemPara
meteersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any,
 ByVal fuWinIni As Long) As Long
4) 在Command1的Click事件中编写以下代码：
Private Sub Command1_Click()
Dim t As Long
Dim Wallpaper As String '墙纸的图片文件名
Wallpaper = InputBox("请输入图片文件的路径和文件名.")
If Wallpaper = "" Then Exit Sub '如果没有图片，返回
'设置墙纸
t = SystemParametersInfo(ByVal 20, vbnostring, ByVal Wallpaper, &H1)
'如果设置不成功
If t = 0 Then
MsgBox "设置墙纸出错！"
Exit Sub
End If
End Sub
5) 设计完成，运行软件；


--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。