Título: Un label q diga "Se activara en 30 segundos", luego 29, luego 28, etc Publicado por: renga73 en 6 Abril 2006, 08:07 am Suponer q al apretar un CommandButton, aparece un label y diga q quedan 30, despues 29, despues 28, etc y asi hasta 0. Osea q vaya cambiando el numerito nada mas.
Ami se me ocurrio crear 30 label y q vayan apareciendo en secuencia. Pero me parece una burrada esa. Como puedo hacer entonces q en un laberl mismo vaya haga el conteo. Edito porque ya lo pude hacer funcionar pero le quiero agregar q cuando llegue a 0, la aplicacion se minimize, q aparezca al lado del reloj de windows. El codigo fue este: Dim x Private Sub Command1_Click() Timer1.Enabled = 1 End Sub Private Sub Form_Load() x = 30 End Sub Private Sub Timer1_Timer() If x >= 0 Then Label1.Caption = "se activara en :" & x & " segundos" x = x - 1 End If End Sub Título: Re: Un label q diga "Se activara en 30 segundos", luego 29, luego 28, etc Publicado por: FaiF (A¥åHøRå) en 6 Abril 2006, 14:44 pm para que se minimizarlo en la barra de tareas utiliza esto:
Código: Me.WindowState = 1 para que ese "iconice" en la bandeja del sistema descarga el objeto csystray.ocx e insertalo, le pones la propiedad Intray en true y la propiedad ShowInTaskBar del formulaario en false. salu2 Título: Re: Un label q diga "Se activara en 30 segundos", luego 29, luego 28, etc Publicado por: [VolkS] en 7 Abril 2006, 14:25 pm para saber cuanod esta en 0:
if label.caption = "0" then 'Evento de minimizar con el Systray.ocx End IF Título: Re: Un label q diga "Se activara en 30 segundos", luego 29, luego 28, etc Publicado por: .:CorTeX:. en 7 Abril 2006, 16:15 pm Pues yo el codigo lo haria de la siguiente forma:
Código: Dim Ti 'Defino la variable que va a tener el contador Y en cuanto a lo de minimizarse en la Barra de Tareas pues yo te recomiendo que uses un ActiveX llamado HOONotifyIcon que lo puedes descargar de www.canalvisualbasic.net . Te recomiendo que visites esa Web ahi encontraras muchas info acerca de la programacion en Visual Basic. ;) |