Imprimir Página - Error en un código [Para cambiar el fondo de pantalla]

Título: Error en un código [Para cambiar el fondo de pantalla]
Publicado por: USUARIO_DE_SOFTWARE_LIBRE en 16 Diciembre 2005, 21:48 pm

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

Título: Re: Error en un código [Para cambiar el fondo de pantalla]
Publicado por: -Riven-Ward- en 16 Diciembre 2005, 21:50 pm

Código:

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í:

Código:

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!

Título: Re: Error en un código [Para cambiar el fondo de pantalla]
Publicado por: Thaorius en 16 Diciembre 2005, 22:10 pm

Te saque esto de la APi-Guide:

Código:

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

Título: Re: Error en un código [Para cambiar el fondo de pantalla]
Publicado por: USUARIO_DE_SOFTWARE_LIBRE en 17 Diciembre 2005, 00:40 am

Cita de: Niño PHP en 16 Diciembre 2005, 21:50 pm

Código:

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í:

Código:

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...

Cita de: M@rT1n en 16 Diciembre 2005, 22:10 pm

Te saque esto de la APi-Guide:

Código:

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... :(

Título: Re: Error en un código [Para cambiar el fondo de pantalla]
Publicado por: Thaorius en 17 Diciembre 2005, 01:23 am

Bueno, la verdad no se yo lo saque de la apiguide.

Saludos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: USUARIO_DE_SOFTWARE_LIBRE en 16 Diciembre 2005, 21:48 pm