Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

como puedo unir estas 3 cosas

Estas en el tema de como puedo unir estas 3 cosas en el foro de Visual Basic clásico en Foros del Web. lo que kiero es simplemente hacer que el intervalo de un timer para un formulario q va aser una pantalla de bienvenida (la que durara ...
  #1 (permalink)  
Antiguo 14/07/2009, 10:32
 
Fecha de Ingreso: julio-2009
Mensajes: 10
Antigüedad: 14 años, 9 meses
Puntos: 0
Exclamación como puedo unir estas 3 cosas

lo que kiero es simplemente hacer que el intervalo de un timer para un formulario q va aser una pantalla de bienvenida (la que durara 3 segundos) yunirla co ua barrade progreso, cosa que mientras el itervalo avanza tambien el valor de la barra de progreso.

:D

ademas si alguien me puede responder como, osea a travez de que codigo yo puedo traer al frente una ventana de widows queesta inactiva, XD en otras palabras como a travez de un comado puedoactivar una pantalla que estaba inactiva en la pantalla de windows.
  #2 (permalink)  
Antiguo 14/07/2009, 23:04
 
Fecha de Ingreso: noviembre-2008
Mensajes: 136
Antigüedad: 15 años, 5 meses
Puntos: 2
Mensaje Respuesta: como puedo unir estas 3 cosas

Saludos, prueba esto, necesitas dos formularios y un modulo

En el modulo agrega este procedimiento:
Código vb:
Ver original
  1. Public Sub main()
  2.     Dim fSplash As New frmSplash
  3.    
  4.     DoEvents
  5.     Load frmMain
  6.     frmSplash.Show vbModal
  7.     frmMain.Show
  8.    
  9.     Set fSplash = Nothing
  10. End Sub

En el formulario Splash:

Código vb:
Ver original
  1. Dim intContador As Integer
  2.  
  3. Private Sub Form_Load()
  4.     intContador = 0
  5.     Timer1.Interval=100
  6.     ProgressBar1.Max=30
  7. End Sub
  8.  
  9. Private Sub Timer1_Timer()
  10.     intContador = intContador + 1
  11.     ProgressBar1.Value = intContador
  12.     If ProgressBar1.Value = 30 Then
  13.         Timer1.Enabled = False
  14.         Unload Me
  15.     End If
  16. End Sub

Espero que te sea de utilidad
  #3 (permalink)  
Antiguo 15/07/2009, 00:17
 
Fecha de Ingreso: julio-2009
Mensajes: 10
Antigüedad: 14 años, 9 meses
Puntos: 0
Respuesta: como puedo unir estas 3 cosas

si me sirvio de verdadmuchas gracias, pero sabes como, osea a travez de que codigo yo puedo traer al frente una ventana de widows queesta inactiva, XD en otras palabras como a travez de un comado puedoactivar una pantalla que estaba inactiva en la pantalla de windows.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:19.