poner imagenes todos los dias
Publicado por osmar (3 intervenciones) el 22/10/2008 22:13:05
Hola a todos del foro, tengo una duda con respecto a como colocar imagenes en mi programa, y que estas cambien de acuerdo cambia la fecha, uso el control image, y me ice bolas en:
'************************
Private Sub Form_Activate()
fecha_anterior = Mid(fecha_anterior, 1, 2)
If a <> Mid(Date, 1, 2) Then
Image1.Picture = LoadPicture(App.Path & "untitled4.bmp")
End If
End sub
*************************
el problema es como guardar y donde?, mi fecha actual para que mañana sea comparada y muestre una nueva imagen.
Gracias de antemano.
'************************
Private Sub Form_Activate()
fecha_anterior = Mid(fecha_anterior, 1, 2)
If a <> Mid(Date, 1, 2) Then
Image1.Picture = LoadPicture(App.Path & "untitled4.bmp")
End If
End sub
*************************
el problema es como guardar y donde?, mi fecha actual para que mañana sea comparada y muestre una nueva imagen.
Gracias de antemano.
Valora esta pregunta
0