<rp id="wnpn7"><ruby id="wnpn7"></ruby></rp>
<progress id="wnpn7"><track id="wnpn7"><rt id="wnpn7"></rt></track></progress>
<ruby id="wnpn7"></ruby>
<ruby id="wnpn7"><blockquote id="wnpn7"><div id="wnpn7"></div></blockquote></ruby>

    1. <em id="wnpn7"><ruby id="wnpn7"><input id="wnpn7"></input></ruby></em>
      1. <button id="wnpn7"><acronym id="wnpn7"></acronym></button><button id="wnpn7"><acronym id="wnpn7"></acronym></button>

        <rp id="wnpn7"><acronym id="wnpn7"></acronym></rp>

        <li id="wnpn7"><object id="wnpn7"><u id="wnpn7"></u></object></li>
        VB.net 2010 視頻教程 VB.net 2010 視頻教程 python基礎視頻教程
        SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
        當前位置:
        首頁 > 編程開發 > vb >
        • vb教程之用VB編程實現任意修改Windows桌面背景

         文/YUANXIANG_W

          眾所周知在Windows中可以通過屬性面板任意修改背景圖案,要在VB的程序設計中實現這一功能其實也很方便,具體實現方法如下:

          首先在VB中創建一個窗體并在其中加入一個命令按鈕,第一步在窗體的通用段中輸入以下代碼:


          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

          注:如果以上的聲明放在“一般模塊”下,應在Const之前加上Public保留字,并且將Private保留字去掉。

          然后在命令按鈕中的Click事件中輸入以下代碼:

          '將桌面圖片設定成c:\windows\CIRCLES.bmp

          Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"c:\windows\CIRCLES.bmp", SPIF_UPDATEINIFILE)

          '將桌面圖片清除

          Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0,"",SPIF_UPDATEINIFILE)

          但以上程序設定圖片之后,必須等到下次Windows重新啟動時才生效,如果要設定之后立刻生效,則程序須修改如下:

          Const SPIF_SENDWININICHANGE = &&H2

          Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\CIRCLES.bmp", SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE )

          此外如果只有本次使用Windows時改變桌面圖片(下次開機時還原原狀),則程序如下:

          Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\windows\CIRCLES.bmp", SPIF_SENDWININICHANGE ) '去掉SPIF_UPDATEINIFILE
        相關教程
                
        免费看成年人视频大全_免费看成年人视频在线观看