Código de Access ¿en excel?

15/12/2004 - 17:13 por Lamari | Informe spam
Hola de nuevo, tengo un código en access para hacer que parezca que se
mueven unas imágenes y me gustaría poner lo mismo en excel pero el código no
vale, ¿podría cambiarlo de alguna manera para poder hacerlo?

menteAtenta, Gracias

(El código es este, por si podéis ayudarme)
Option Compare Database
Option Explicit

'Al declarar esta variable fuera de los procedimientos, se puede utilizar en
todos ellos, se le_
'conoce como global. Solo se puede utilizar en el código que hay del
formulario.

Dim clockname As Integer


Private Sub Form_Load()
IblClock.Caption = Now

End Sub

Private Sub Form_Open(Cancel As Integer)
'Control de errores
On Error GoTo Err_Form_Open

'Para situar el formulario en una posición predeterminada. No se si hace
falta, tú misma.
DoCmd.MoveSize 890, 400, 9790, 4753


'Inicializar la variable global.
clockname = 1

'Mandar el cursor al botón de comando, este está invisible y el cursor
entonces desaparece, truco del almendruco
'cmdEmpty.SetFocus

Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Error$
Resume Exit_Form_Open

End Sub

Private Sub Form_Timer()

'Establecer la hora del sistema, no se la finalidad y yo la quitaria.
' Me![time] = time

clockname = clockname + 1

If clockname > 4 Then
clockname = 1
End If

Select Case clockname
Case 1
Me![gear1].Visible = True
Me![gear2].Visible = False
Me![gear3].Visible = False
Me![gear4].Visible = False
Case 2
Me![gear1].Visible = False
Me![gear2].Visible = True
Me![gear3].Visible = False
Me![gear4].Visible = False
Case 3
Me![gear1].Visible = False
Me![gear2].Visible = False
Me![gear3].Visible = True
Me![gear4].Visible = False
Case 4
Me![gear1].Visible = False
Me![gear2].Visible = False
Me![gear3].Visible = False
Me![gear4].Visible = True
End Select

End Sub

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
16/12/2004 - 04:02 | Informe spam
hola, Lamari !

Mostrar la cita
el siguiente codigo [al final] 'muestra/oculta' alternadamente 4 objetos 'label' de un userform
->obviamente podrias sustituirlos por imagenes<-
los que 'estrategicamente' posicionados... produce un efecto 'similar' al movimiento
hago una 'llamada' a la API de windows 'Sleep' en el modulo/libreria 'Kernel32'
para 'manipular' un retardo en la secuencia ->por milesimas de segundo<-
seguramente podras 'experimentar' otros eventos/instrucciones/procedimientos/etc.
[como 'hacer' que sea un procedimiento 'secundario' y llamarlo desde otras partes de codigo]
[probablemente] debieras agregar una instruccion 'DoEvents' [para no 'interferir' con otros procesos]

[en fin...] haz la prueba y... ¿comentas?
saludos,
hector.
[NO 'olvides' los objetos 'label 1 a 4' o las imagenes] ;)
en el modulo de codigo de 'X' formulario ==Private Declare Sub Retardo Lib "Kernel32" Alias "Sleep" _
(ByVal MiliSegundos As Long)
Private Sub UserForm_Activate()
Dim Siguiente As Integer
For Siguiente = 1 To 80
Retardo 200 ' <= si pones 1000, 'equivale' a 1 segundo [mil milisegundos] ;) '
Label1.Visible = ((Siguiente Mod 4) = 0)
Label2.Visible = ((Siguiente Mod 4) = 1)
Label3.Visible = ((Siguiente Mod 4) = 2)
Label4.Visible = ((Siguiente Mod 4) = 3)
Me.Repaint
Next
Unload Me
End Sub
#2 Lamari
16/12/2004 - 12:11 | Informe spam
Gracias lo primero y el UserForm muy bien gracias, pero no sé lo que me
falta por hacer que no aparece en la hoja que yo quiero (bueno en ningún
sitio del libro) ¿Qué me falta o algo...?

menteAtenta

"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita
imagenes
Mostrar la cita
'label' de un userform
Mostrar la cita
movimiento
Mostrar la cita
'Kernel32'
Mostrar la cita
eventos/instrucciones/procedimientos/etc.
Mostrar la cita
partes de codigo]
Mostrar la cita
'interferir' con otros procesos]
Mostrar la cita
milisegundos] ;) '
Mostrar la cita
#3 Héctor Miguel
16/12/2004 - 17:19 | Informe spam
hola, Lamari !

Mostrar la cita
alguna macro o evento que 'provoque' la aparicion del formulario [?] p.e
Sub Macro_X()
NombreDelFormulario.Show
End Sub

saludos,
hector.
#4 Lamari
17/12/2004 - 14:22 | Informe spam
ME RINDO, LO DEJO, soy INCAPAZ, soy incapaz de que apararezca y una vez
(que ya no sé lo que he hecho) que ha aparecido esta inmóvil. Da igual era
un capricho en la presentación y me rindo, muchas gracias por tu tiempo y
por tus respuestas, siento haber sido tan torpe.
"Héctor Miguel" escribió en el mensaje
news:uBTp#
Mostrar la cita
aparece en la hoja que yo quiero
Mostrar la cita
p.e
Mostrar la cita
#5 Lamari
17/12/2004 - 14:25 | Informe spam
ME RINDO, NO PUEDO MÁS, soy INCAPAZ, no he conseguido que aparezca y una vez
que ha aparecido (que ya no sé lo que he hecho) esta inmóvil, así que ha
podido conmigo, da igual era un capricho para una presentación y me rindo,
siento haberte hecho perder tu tiempo, y siento haber sido tan torpe.

menteAtenta, Gracias
"Héctor Miguel" escribió en el mensaje
news:uBTp#
Mostrar la cita
aparece en la hoja que yo quiero
Mostrar la cita
p.e
Mostrar la cita
Ads by Google
Search Busqueda sugerida