Autor
|
Tema: Error en un código [Para cambiar el fondo de pantalla] (Leído 1,700 veces)
|
USUARIO_DE_SOFTWARE_LIBRE
|
hola, encontre algunos codigos de vb... y este que es para cambiar el fondo de pantalla me salta error...:
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 Form_Load() Dim fallo As Integer fallo = SystemParametersInfo(20, 0, "C:\WINDOWS\FONDO.BMP", 0) End Sub
el error me lo marca en lo que está antes de private sub form_load()...me lo marca en rojo... yo pense que tenia que ponerlo en un modulo pero no va... gracias de antemano
|
|
|
En línea
|
|
|
|
-Riven-Ward-
RivenSoft
Desconectado
Mensajes: 2.215
Do you like Mario? xDDDDDDDDDDDD
|
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 Ponlo así: 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 Esque me parece que se tienen que declarar esas funciones "públicas", no "privadas". Salu2!
|
|
|
En línea
|
Usuario Banneado
|
|
|
Thaorius
|
Te saque esto de la APi-Guide: 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 SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = &H1 SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "C:\imagen.bmp", SPIF_UPDATEINIFILE Saludos
|
|
|
En línea
|
|
|
|
USUARIO_DE_SOFTWARE_LIBRE
|
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 Ponlo así: 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 Esque me parece que se tienen que declarar esas funciones "públicas", no "privadas". Salu2! ma salta error igual que antes... Te saque esto de la APi-Guide: 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 SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = &H1 SystemParametersInfo SPI_SETDESKWALLPAPER, 0, "C:\imagen.bmp", SPIF_UPDATEINIFILE Saludos en este, no pasa nada, el fondo queda igual...
|
|
|
En línea
|
|
|
|
Thaorius
|
Bueno, la verdad no se yo lo saque de la apiguide.
Saludos
|
|
|
En línea
|
|
|
|
|
|