'设置桌面背景图片函数

Private Sub SetBackColor()

 ’记录按单词的记忆日期和熟悉程度来选择

sql = "select * from word order by date,state"

Set rs = TransactSQL(sql)

'判断数据库的记录是否为空

If Not rs.EOF Then

’str是String类型，用来存储数据库中单词的信息

str = rs.Fields(0) & vbCrLf & vbCrLf & rs.Fields(1) & vbCrLf & vbCrLf & rs.Fields(2) & vbCrLf & vbCrLf & rs.Fields(3)

’WordPicutre为PicutreBox控件

WordPicture.AutoRedraw = True

WordPicture.Cls

'把单词的内容显示到WordPicture上

WordPicture.Print str

WordPicture.Refresh

'保存单词图片到c:\word.bmp

SavePicture WordPicture.Image, "c:\word.bmp"

'调用系统API函数，把单词图片设置为桌面背景

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\word.bmp", SPIF_UPDATEINIFILE)

End If

End Sub

三、运行效果

本系统在Windows XP、Visual Basic 6.0和Access 2000的环境下运行成功。