바탕화면 이미지 바꾸기SystemParametersInfo

[올란도]

1. 모듈에 다음의 API 와 상수를 선언합니다.

Public 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

Public Const SPI_SETDESKWALLPAPER = 20
Public Const SPIF_SENDWININICHANGE = &H2
Public Const SPIF_UPDATEINIFILE = &H1

' 바탕화면 이미지를 바꾸는 함수를 만듬 ^^ (넘 간단)
Public Sub SetWallpaper(ByVal strFile As String)
    Dim x As Long

    x = SystemParametersInfo(SPI_SETDESKWALLPAPER, _
        0&, strFile, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)
End Sub

2. 폼에 CommandButton 을 하나 만들고 다음과 같이 코딩하시기 바랍니다.

Private Sub Command1_Click()
    ' 물론 c:\temp.bmp 는 여러분이 가지고 있는 이미지로 바꿔야 겠죠 ^^
    SetWallpaper "c:\temp.bmp"
End Sub

3. 위와 같이 한후 실행을 하고 버튼을 클릭해 보시기 바랍니다. 그러면 바탕화면의
   이미지가 바뀌어 있는 것을 알수 있을 것입니다. 참고로 바탕화면의 이미지는
   BMP 파일만 가능합니다. 만약 GIF, JPG 의 이미지도 바탕화면의 이미지로 바꾸고
   싶다면 간단한 트릭을 써서 가능합니다.
   즉 폼에 PictureBox 를 하나 만들고 일단 선택한 GIF(또는 JPG)파일을
   PictureBox 에 불러들인후 SavePicture 라는 함수를 이용해서 이미지를 BMP
   파일로 저장을 하고 나서 이 새로운 BMP 파일로 SetWallpaper 을 호출하면 되겠죠 ^^