壁紙を変更する

Option Explicit

    Declare Function SystemParametersInfo Lib "user32" Alias
"SystemParametersInfoA" _
       (ByVal uiAction As Long, _
       ByVal uiParam As Long, _
        pvParam As Any, _
        ByVal fWinIni As Long) As Long

    Public Const SPI_SETDESKWALLPAPER = 20
    Dim strDeskWallpaper      As String
    Dim lngWin32apiResultCode As Long


Public Const SPIF_SENDWININICHANGE = &H2

Public Const SPIF_UPDATEINIFILE = &H1

'
'壁紙を変更する
'   引数:strFileName ファイル名称
'
'
Public Sub changeKabegami(strFileName As String)

    Dim strWallpaperName As String  '壁紙名称


'    strWallpaperName = "C:\Windows\花見.bmp"     ' デスクトップの壁紙を設定
    strWallpaperName = "C:\WINNT\lanmannt.bmp"

    lngWin32apiResultCode = SystemParametersInfo(SPI_SETDESKWALLPAPER, _
                                                 0, _
                                                 ByVal strWallpaperName, _
                                                 SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE)



End Sub

トップページに戻る

Tips一覧に戻る