 Autor
|
Tema: Cambiar fondo de escritorio (Leído 7,130 veces)
|
OnLOL
 Desconectado
Mensajes: 25
|
Hola, estoy intentando hacer una aplicacion que cambie el fondo do escritorio cada X cantidad de tiempo, los fondos estan listados en un listbox. pero el tema es que encontre este ejemplo: 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 tema es que es solo BMP y yo quiero que funcionen los formatos mas conocidos( jpg, gif y bmp). Gracias adioos!
|
|
|
|
|
En línea
|
|
|
|
VonN
Desconectado
Mensajes: 151
Learnin' Python&C++
|
La api que utilizas unicamente admite .bmp lamentablemente.
|
|
|
|
|
En línea
|
  Se toma por necios a aquellos que dicen lo que todos pesamos |
|
|
|
seba123neo
|
si mal no estoy por mas que pongas como fondo de pantalla un jpg, el mismo windows lo cambia a bmp...eso lo podes ver viendo la carpeta donde esta guardado el wallpaper que tenes actualmente...windows lo guarda en una carpeta...fijate que esta en .bmp ...aunque originalmente hayas puesto un jpg. lo que podrias hacer es que al elegir el wallpaper jpg, lo guardes en una variable StdPicture al jpg y lo guardes al disco con Savepicture y pongas como wallaper ese .bmp que seria la misma imagen que el .jpg
saludos.
|
|
|
|
|
En línea
|
|
|
|
Darioxhcx
Desconectado
Mensajes: 2.294
|
la pasa a bmp windows
la copia a
C:\Documents and Settings\Darioxhcx\Configuración local\Datos de programa\Microsoft
Walpaper1.bmp se llama si no me ekivoco
clave de registro x si te sirve
HKEY_CURRENT_USER\Control Panel\Desktop]
leo lo habia echo en .bat...
capas q despeus de cambiar todo.. necesite la emulacion de la tecla F5 sobre el escritorio... no se
un saludo
|
|
|
|
|
En línea
|
|
|
|
OnLOL
Desconectado
Mensajes: 25
|
buenas, Hice lo que dijiste seba, y lo guarde en la carpeta que dijo dario. pero no anda, osea el walklpaper sobreescribe al viejo pero no se cambia, le doy F5 y tampoco. aca el codigo: Private Sub Command1_Click()
Dim X As New StdPicture
Set X = LoadPicture("E:\Documents and Settings\Administrador\Mis docs\Mis imágenes\AW\1201279846571.jpg")
Set Picture1.Picture = X
SavePicture Picture1.Picture, "C:\Documents and Settings\Administrador\Configuración local\Datos de programa\Microsoft\Wallpaper1.bmp"
End Sub no tengo ni la menor idea de por que no se camiba. |
|
|
|
|
En línea
|
|
|
|
el_c0c0
Desconectado
Mensajes: 307
|
buenas, Hice lo que dijiste seba, y lo guarde en la carpeta que dijo dario. pero no anda, osea el walklpaper sobreescribe al viejo pero no se cambia, le doy F5 y tampoco. aca el codigo: Private Sub Command1_Click()
Dim X As New StdPicture
Set X = LoadPicture("E:\Documents and Settings\Administrador\Mis docs\Mis imágenes\AW\1201279846571.jpg")
Set Picture1.Picture = X
SavePicture Picture1.Picture, "C:\Documents and Settings\Administrador\Configuración local\Datos de programa\Microsoft\Wallpaper1.bmp"
End Sub no tengo ni la menor idea de por que no se camiba. eso esta bien, pero es necesario que llames al Api que mencionaste en el primer post.- saludos
|
|
|
|
|
En línea
|
 '- coco "Te voy a romper el orto"- Las hemorroides |
|
|
OnLOL
Desconectado
Mensajes: 25
|
Bien!! gracias gracias funciono! el tema ahora es que para guardarlo en esa carpeta tengo que usar la varialbe de sistema APPDATA y por lo que lei se usa asi SavePicture Picture1.Picture, Environ("%APPDATA%") & "\Wallpaper1.bmp"el problema es que no funciona. No me guarda la imagen en la carpeta que seria C:\Documents and Settings\Administrador\Configuración local\Datos de programa\ ya se que no es la carpeta donde va el fondo de escritorio, pero no importa es de prueba |
|
|
|
|
En línea
|
|
|
|
el_c0c0
Desconectado
Mensajes: 307
|
Bien!! gracias gracias funciono! el tema ahora es que para guardarlo en esa carpeta tengo que usar la varialbe de sistema APPDATA y por lo que lei se usa asi SavePicture Picture1.Picture, Environ("%APPDATA%") & "\Wallpaper1.bmp"el problema es que no funciona. No me guarda la imagen en la carpeta que seria C:\Documents and Settings\Administrador\Configuración local\Datos de programa\ ya se que no es la carpeta donde va el fondo de escritorio, pero no importa es de prueba Es Environ("APPDATA") sin los signos de porcentaje. saludos
|
|
|
|
|
En línea
|
'- coco "Te voy a romper el orto"- Las hemorroides |
|
|
OnLOL
Desconectado
Mensajes: 25
|
changos me confundi, es que %APPDATA% te lleva a:
C:\Documents and Settings\Administrador\Datos de programa
y necesitaba ir a:
C:\Documents and Settings\Administrador\Configuración local\Datos de programa\Microsoft\
damn, y depende del idioma del so y del usuario
|
|
|
|
|
En línea
|
|
|
|
OnLOL
Desconectado
Mensajes: 25
|
por favor muchachos, ayudenme con esto por que estoy trabado ahi, es lo unico que me falta
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Cambiar automaticamente fondo escritorio [bash]
Scripting
|
El_Java
|
2
|
6,818
|
18 Abril 2011, 11:06 am
por El_Java
|
|
|
|
No puedo cambiar el fondo de escritorio en Windows 7
« 1 2 »
Windows
|
3L1T3
|
13
|
6,334
|
26 Agosto 2014, 10:10 am
por Eleкtro
|
|
|
|
Ayuda Bloquear Fondo Escritorio con Xfconf usando un script en XUbuntu
Scripting
|
i12laroa
|
0
|
1,750
|
28 Abril 2021, 18:02 pm
por i12laroa
|
|
|
|
Xylateware - Establece un Gif fondo de escritorio
Software
|
**Aincrad**
|
0
|
2,022
|
20 Mayo 2021, 06:14 am
por **Aincrad**
|
|
|
|
Predominacion de politica de fondo de escritorio
Windows
|
_CrisiS_
|
1
|
4,819
|
12 Agosto 2021, 17:43 pm
por Randomize
|
 |
