Wallpaper Changer
If you are wondering how you can change your desktop picture this code is the awnser. It's very easy to understend and it's very short.
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
Option Explicit 'This code is developed by Ivan Uzunov 'e-mail: kicheto@goatrance.com 'Just add this code on a form add a Command1 and press F5 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 Const SPI_SETDESKWALLPAPER = 20 Private Sub Command1_Click() Dim WallPaper As Long 'Just change "C:\REDCAP.bmp" with a existing bitmap on your computer WallPaper = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "C:\REDCAP.bmp", 0) End Sub
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine