Red de conocimiento informático - Problemas con los teléfonos móviles - VB cambia el fondo de pantalla del escritorio para que surta efecto esta vez y el fondo de pantalla se restaurará después de reiniciar. ¡Código!

VB cambia el fondo de pantalla del escritorio para que surta efecto esta vez y el fondo de pantalla se restaurará después de reiniciar. ¡Código!

Coloque un botón en el formulario llamado Command1 y pegue el siguiente código: Const SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = amp 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 Private Sub Command1_Click() 'Cambie el fondo de pantalla a c:/456.bmp, con efecto inmediato. Después de reiniciar, restaurará automáticamente el fondo de pantalla antes de que lo modificara. Llamar a SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:/456.bmp", SPIF_SENDWININICHANGE) Fin Sub