instwpaper.frm

Windows墙纸更改事例

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Wallpaper Changer"
   ClientHeight    =   1470
   ClientLeft      =   1485
   ClientTop       =   2655
   ClientWidth     =   6735
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   1470
   ScaleWidth      =   6735
   Begin VB.CommandButton Command1 
      Caption         =   "&Activate!"
      Height          =   375
      Left            =   5400
      TabIndex        =   2
      Top             =   960
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   240
      TabIndex        =   0
      Top             =   720
      Width           =   3975
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请输入完整的Windows的墙纸路径。"
      Height          =   180
      Left            =   240
      TabIndex        =   1
      Top             =   240
      Width           =   2790
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************
'*Author: Tony Jones
'*
'*Description:
'*Instant Wallpwarer
'*
'*Email: [e-mail]
'*
'*Visit: Southern Cross Visual Basic Code and Links - Simply...the best in VB!
'*         http://www.geocities.com/CapeCanaveral/6740/index.html
'*
'*
'*
'*Creation Date: Sunday  23 March 1997  1:50 pm
'*Revision Date: Sunday  23 March 1997  1:50 pm
'*
'*Version Number: 1.00
'****************************************************************

Private Sub Command1_Click()

If Text1.Text = "" Then
    Exit Sub
Else
End If

Dim ChangeWP
ChangeWP = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Text1.Text, 0)

MsgBox "墙纸已经更改为" & vbCrLf & "" & vbCrLf & UCase$(Text1.Text) & vbCrLf & "", 64, "Instant Wallpaper Changer"
Text1.Text = ""
Text1.SetFocus

End Sub

Private Sub Form_Load()

Show
Text1.SetFocus

End Sub