VB怎样更改电脑桌面背景为拉伸?电脑桌面背景免费下载 _云知道

VB怎样更改电脑桌面违景为拉，请写下详细代码。

添加三个命令按钮，1个PictureBox，1个CommonDialog控件
代码如次：
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
""方式设置为墙纸
Private Const SPI_SETDESKWALLPAPER = 20
""将新的设置写入用户文件中，&H1=1
Private Const SPIF_UPDATEINIFILE = &H1

Dim PicNameAs String

""打开图片文件
Private Sub Command1_Click()
""创建打开文件对于话框
With CommonDialog1
.Filter = "bmp文件(*.bmp)|*.bmp"
.ShowOpen
""获患上图片文件名称
PicName = .FileName
End With
""预览图片
Picture1.Picture = LoadPicture(PicName)
""判断是否打开文件
If PicName = "" Then Exit Sub
End Sub

""设置墙纸
Private Sub Command2_Click()
Dim SysInfo As Long
""设置指定图片为桌面墙纸
SysInfo = SystemParametersInfo(SPI_SETDESKWALLPAPER, True, PicName, SPIF_UPDATEINIFILE)
""判断设置是否成功
If SysInfo = 0 Then
MousePointer = 0
MsgBox "很抱歉，不能安装此类墙纸"
Else
MsgBox "恭喜你，成功地安装了墙纸"
End If
End Sub

""退出程序
Private Sub Command3_Click()
End
End Sub

Private Sub Picture1_Change()
Me.Width = Picture1.Width
Me.Height = Picture1.Height * 1.2
End Sub

VB怎样更改电脑桌面背景为拉伸?电脑桌面背景免费下载

推荐阅读

怎么选购羊毛被

广州适合夏天去旅游吗

江南百景图黄泥有什么用

芒果可以吃吗？叛逆孩子学校

鬼泣5LADY角色背景介绍鬼泣5LADY人设一览

如何自己重装系统电脑u盘重装系统图解

奇丽的近义词是什么

明代之前什么也定都北京

巴西比中国富裕吗巴西和中国哪个发达

双向板和单向板的区别

攻沙d级密诏有什么用,一整部热血传奇小说《攻沙》密诏来袭

生汤圆可以油炸吗，速冻汤圆可以直接炸吗

小幸福是个什么软件

电脑温度太高，是时候用鲁大师给CPU降降温了

李荣浩和杨丞琳年龄，就叫杨丞琳和李荣浩

泰安房价大涨,山东泰安的房价还会持续涨吗