VB要怎么樣才可以將兩張圖片同時設為壁紙并改為填充，我現在有的是將一張照片設為壁紙，希望有同時設兩張的，設完可以在桌面右鍵切換（這是WIN7系統自帶的）
是要直接設定的哦 不要通程序式在的時侯才可以，要自帶的
uj5u.com熱心網友回復：
我現在有的是把一張圖片設為背景，下面是我的代碼，我想要通過類似的代碼同時將兩張照片設為背景宣告：
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
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 Sub Command1_Click()
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自動更換壁紙目錄\001.jpg", SPIF_UPDATEINIFILE)
End Sub
uj5u.com熱心網友回復：
求各位哥哥姐姐幫幫忙uj5u.com熱心網友回復：
同時設兩張壁紙？很有趣的想法
想要怎么設呢？
左右各占一半？
或是上下兩分？
百頁窗單雙行？
要不疊加起來？
面張挖孔透底？
uj5u.com熱心網友回復：
當然不是啦，是可以替換的，你有用過WIN7系統就知道了 是屬于自動更換壁紙哦uj5u.com熱心網友回復：
原來不是兩張同時顯示啊輪換倒是簡單
上面那個按鍵設壁紙略修改一下就行了
如果想跟屏保一般
可以用定時器
每觸發一次換一張
Private Sub Timer1_Timer()
If A=0 Then
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自動更換壁紙目錄\001.jpg", SPIF_UPDATEINIFILE)
A = 1
Else
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自動更換壁紙目錄\002.jpg", SPIF_UPDATEINIFILE)
A = 0
End If
End Sub
uj5u.com熱心網友回復：
還可修改為每次運行按當時秒值隨機更換不同的……
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
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
Dim NowSecond As Integer
NowSecond = Second(Now)
Select Case NowSecond
Case 0
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自動更換壁紙目錄\000.jpg", SPIF_UPDATEINIFILE) Case 1
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自動更換壁紙目錄\001.jpg", SPIF_UPDATEINIFILE)
Case 2
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自動更換壁紙目錄\002.jpg", SPIF_UPDATEINIFILE)
Case 3
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自動更換壁紙目錄\003.jpg", SPIF_UPDATEINIFILE)
'……
Case 59
Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "G:\自動更換壁紙目錄\059.jpg", SPIF_UPDATEINIFILE)
End Select
uj5u.com熱心網友回復：
汗，掉了個Case 1……uj5u.com熱心網友回復：
不是啦，我要的是WIN7系統自帶的
uj5u.com熱心網友回復：
就像這樣的，將兩張圖片設為背景（上面不是有打勾嗎？打勾就代表是替換背景中的一張）。而且弄完之后在右鍵也有下一張圖片的按鈕。注：這個功能是WIN7自帶的，我不是要自己做一個那樣的，而是利用WIN7自帶的自動更換壁紙的功能uj5u.com熱心網友回復：
我猜WIN7有相應API吧。uj5u.com熱心網友回復：
嗯，不過我要的是代碼哦，我想要有代碼可以幫助我uj5u.com熱心網友回復：
桌面背景里面會有兩張指定的照片有打上勾的轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/155890.html
標籤：資源