splash screen

12/05/2004 - 21:01 por msfromuy | Informe spam
Hola a todos
estoy tratando de incluir una pantalla inicial en la planilla excel, pero me encuentro con algún problema, a ver si hay alguna ayuda

- cree un form init donde puse una imagen y una etiquet
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single
Init.Hid
End Su

- enThisWorkbook puse
Private Sub Workbook_Open(
Init.Sho
End Su
- quisiera

saludo
Miguel
 

Leer las respuestas

#1 Héctor Miguel
13/05/2004 - 07:15 | Informe spam
hola, Miguel !

... una pantalla inicial en la planilla [...] cree un form init donde puse una imagen y una etiqueta [...]
- enThisWorkbook puse:
Private Sub Workbook_Open()
Init.Show
End Sub


______
pon las siguientes lineas en el modulo de codigo del formulario
para que el formulario se muestre 'solo' por unos ['digamos' 5?] segundos...
=> se puede usar [tambien] el control 'Timer' en VBA, pero [creo que] los siguientes ejemplos son mas 'sencillos' <= ;)
opcion 1.- 'congela' TODA actividad de la aplicacion [excepto el re-calculo o impresion] ==Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("0:00:05")
Unload Me
End Sub
opcion 2.- 'permite' que [por el mismo codigo?] se 'ejecuten' otras acciones ==Private Sub UserForm_Activate()
Dim Actual As Date, Cerrar As Date
Actual = TimeValue(Now())
Cerrar = TimeValue(Now()) + TimeValue("0:00:05")
Do While Actual < Cerrar
DoEvents
Actual = TimeValue(Now())
Loop
Unload Me
End Sub
'tip' para 'evitar' que el usuario 'cierre' [o cancele] la presentacion del formulario ==Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
con relacion al tamaño 'dinamico' [al momento de mostrarse]...
podria usarse la propiedad 'zoom' [del formulario]... =>conociendo la proporcion<'entre' el tamaño de la aplicacion [al momento de diseñarse] y el que 'tenga' [al momento de 'ejecutarse']
[podrian ser un 'buen numero' de [posibles] variantes que =>'dependen'<= del usuario/pc 'en turno'] :((
[creo que] seria mejor 'conservar' el formulario 'dentro' de un tamaño 'razonable' [???] ;)

saludos,
hector.

Preguntas similares