vb.net 換桌布範例

darkjack

這只是一個 demo 範例
這函數 經過測試 只能支援 bmp 格式 jpg 無用

1. Public Class Form1
   
2.     Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
   
3.     Public Const SPI_SETDESKWALLPAPER = 20
   
4. 
   
5.     Const SPIF_UPDATEINIFILE = &H1
   
6.     Const SPIF_SENDWININICHANGE = &H2
   
7. 
   
8. 
   
9.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
10.         Dim lngSuccess As Integer
    
11.         Dim strBitmapImage As String
    
12. 
    
13.         strBitmapImage = "J:\抓圖\0000.bmp"
    
14.         
    
15.         '5ds0wo.jpg
    
16.         lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    
17. 
    
18.     End Sub
    
19. End Class

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員