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
 

Leer las respuestas

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

... tengo un codigo en access para hacer que parezca que se mueven unas imagenes
... me gustaria poner lo mismo en excel pero el codigo no vale
... ¿... alguna manera para poder hacerlo? [...]



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

Preguntas similares