Autor
|
Tema: Un label q diga "Se activara en 30 segundos", luego 29, luego 28, etc (Leído 2,527 veces)
|
renga73
Desconectado
Mensajes: 53
|
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
|
|
« Última modificación: 6 Abril 2006, 11:24 am por renga73 »
|
En línea
|
|
|
|
FaiF (A¥åHøRå)
|
para que se minimizarlo en la barra de tareas utiliza esto: 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
|
|
« Última modificación: 6 Abril 2006, 14:47 pm por A¥åHøRå »
|
En línea
|
|
|
|
[VolkS]
Desconectado
Mensajes: 288
[Argentina]
|
para saber cuanod esta en 0:
if label.caption = "0" then 'Evento de minimizar con el Systray.ocx End IF
|
|
|
En línea
|
|
|
|
.:CorTeX:.
Desconectado
Mensajes: 135
The Gimp User
|
Pues yo el codigo lo haria de la siguiente forma: Dim Ti 'Defino la variable que va a tener el contador
Function Aumentar_Ti() 'Hago una funcion que me disminuye el contador Ti = Ti - 1 'Le resto a Ti lo que tiene una vez Label1.Caption = "Faltan: " & Ti & " Segundos Para Morir!" 'Muestro el letrerito del tiempo If Ti = 0 Then 'Comparo si Ti es igual a Cero MsgBox ("Haz muerto!") 'Reemplaza las sentencias a ejecutar Sentencia a Ejecutar End If 'Cierro el If End Function
Private Sub Form_Load() Timer1.Interval = 1000 'Timer va a valer un segundo Ti = 30 'Ti va a ser igual a Treinta Label1.AutoSize = True 'El label1 va a tomar el tamaño que mejor le parezca Label1.Caption = "Faltan: 30 Segundos Para Morir!" 'Que muestre el letrero End Sub
Private Sub Timer1_Timer() Call Aumentar_Ti 'Esta va a llamar la funcion "Aumentar Ti" lo cual hara disminuir Ti End Sub
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.
|
|
|
En línea
|
Orgullosamente Colombiano
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Wikileaks se defiende luego de ser etiquetados como sitio inseguro por Spamhaus
Noticias
|
Novlucker
|
2
|
2,422
|
16 Diciembre 2010, 12:06 pm
por Artikbot
|
|
|
Erdogan promete "arrancar de raíz" Twitter, diga lo que diga el mundo
Noticias
|
wolfbcn
|
0
|
1,467
|
21 Marzo 2014, 01:39 am
por wolfbcn
|
|
|
ingresar 3 nombres y luego buscar uno entre esos 3 y que me diga la posicion
Programación C/C++
|
Emily
|
1
|
2,144
|
18 Abril 2017, 18:20 pm
por MAFUS
|
|
|
Problemas luego de crear una funcion que "extrae" subcadenas
Programación C/C++
|
Beginner Web
|
2
|
1,990
|
12 Julio 2018, 06:44 am
por CalgaryCorpus
|
|
|
40 segundos
Multimedia
|
Zorronde
|
7
|
5,620
|
26 Febrero 2021, 14:22 pm
por Zorronde
|
|