Reproducir una imagen en el ordenador cada cierto tiempo
Hola, la pregunta es la siguiente, necesito que una imagen se muestre en un PC cada cierto tiempo.
¿Cómo puedo hacer esto?
Muchas gracias.
¿Cómo puedo hacer esto?
Muchas gracias.
1 respuesta
Respuesta de raulxiempre
1
Haber si te entendí:
Esto es como fondo de escritorio
1.-Primero crea un nuevo proyecto
2.-Cree un modulo y agregue el siguiente 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
3.-En el formulario agregue en la parte donde se publica variables
'Publicar
Const a = &H1
Const b = 20
Const c = &H2
Public s As Integer
4.-Luego en el formulario agrega un timer y en la propiedad name sera tmr_tie y el inteval de 2000 y agregamos dentro el siguinente código
Private Sub tmr_tie_Timer()
'Variable acumulativa
s = s + 1
'Declaramos
Dim X As Long
Dim m As String
m = "d:\foto" + Str(s)
Print m
'Cambiar
If s = 1 Then X = SystemParametersInfo(b, 0&, "d:\foto1", a Or c)
If s = 2 Then X = SystemParametersInfo(b, 0&, "d:\foto2", a Or c)
'Volver
If s = 2 Then s = 0
End Sub
Espero que the sirva. Atentamente. Raulxiempre
Esto es como fondo de escritorio
1.-Primero crea un nuevo proyecto
2.-Cree un modulo y agregue el siguiente 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
3.-En el formulario agregue en la parte donde se publica variables
'Publicar
Const a = &H1
Const b = 20
Const c = &H2
Public s As Integer
4.-Luego en el formulario agrega un timer y en la propiedad name sera tmr_tie y el inteval de 2000 y agregamos dentro el siguinente código
Private Sub tmr_tie_Timer()
'Variable acumulativa
s = s + 1
'Declaramos
Dim X As Long
Dim m As String
m = "d:\foto" + Str(s)
Print m
'Cambiar
If s = 1 Then X = SystemParametersInfo(b, 0&, "d:\foto1", a Or c)
If s = 2 Then X = SystemParametersInfo(b, 0&, "d:\foto2", a Or c)
'Volver
If s = 2 Then s = 0
End Sub
Espero que the sirva. Atentamente. Raulxiempre
Ups me olvidaba tienes que poner imágenes en la unidad d: de tu pc con los nombre de foto1 y otro con foto 2 de lo contrario solo cambia la ruta donde se encuentra tus imágenes cambia en "d\foto1" y "d\foto2"
