Últimos mensajes - Powered by IBM

Palabras claves

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

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Responder a este mensaje

#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:

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

Responder a este mensaje

#3 Héctor Miguel

16/12/2004 - 17:19 | Informe spam

hola, Lamari !

... el UserForm muy bien ... pero no se lo que me falta por hacer que no aparece en la hoja que yo quiero
... (bueno en ningun sitio del libro) ¿Que me falta o algo...?

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

saludos,
hector.

Responder a este mensaje

#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#

hola, Lamari !

> ... el UserForm muy bien ... pero no se lo que me falta por hacer que no

aparece en la hoja que yo quiero

> ... (bueno en ningun sitio del libro) ¿Que me falta o algo...?

alguna macro o evento que 'provoque' la aparicion del formulario [?]

p.e

Sub Macro_X()
NombreDelFormulario.Show
End Sub

saludos,
hector.

Responder a este mensaje

#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#