Visual Basic - como hacer que un label sea intermitente

Life is soft - evento anual de software empresarial
 
Vista:

como hacer que un label sea intermitente

Publicado por dison m (14 intervenciones) el 20/10/2002 15:37:34
como poner que el texto de un label o un text box aparezca intermitente

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como hacer que un label sea intermitente

Publicado por Pedro (26 intervenciones) el 21/10/2002 00:27:23
Hola,
puedes poner controles Timer en el formulario para que te regulen intermitencias (cada Timer hará una intermitencia). Ej:
Tenemos en un formulario un control Label1 y cuatro controles Timer, la propiedad Visible del Label debe ser False y la propiedad Interval del Timer debes regularla a tu gusto, 1000 equivale a 1 segundo de intervalo.
Private Sub Timer1_Timer()
Label1.Visible = True 'la propiedad Visible del label debe ser false
End Sub
Private Sub Timer2_Timer()
Label1.Visible = False
End Sub
Private Sub Timer3_Timer()
Label1.Visible = True
End Sub
Private Sub Timer4_Timer()
Label1.Visible = False
End Sub
Espero que te sirva, un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como hacer que un label sea intermitente

Publicado por Richi317 (95 intervenciones) el 21/10/2002 13:28:51
Lo que dice Pedro es correcto. Pero... ¿para qué cuatro Timers si con uno basta?

si quieres que parpadee cada medio segundo:
Timer1.interval = 500
Con un único Timer1, en el evento del Timer1 pon lo siguiente
Label1.visible = Not label1.visible
doevents

Con esto harás que la etiqueta aparezca y desaparezca produciendo un efecto de parpadeo. Si lo que quieres parpadear es sólo el texto y no el control entero, por esto en su lugar:

if Text1.Text = "" then
text1.text = "texto"
else
text1.text = ""
endif

Un saludo.
Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

COMBOBOX.ADDITEM

Publicado por CARLOS (1 intervención) el 21/10/2002 19:19:59
Hola, perdona por mi atrevimiento:
Estoy tratando de hacer que me funcione el siguiente código en una hoja de excell:
Private Sub ComboBox1_Change()
ComboBox1.AddItem "Febrero"
ComboBox1.AddItem "Marzo"
ComboBox1.AddItem "Abril"
End Sub
Pero cuando abro la hoja, el combo está vacío y cuando salen, por cada vez que selecciono un valor, aparte de no quedar seleccionado, se van duplicando.
¿Tu serías tan amable de echarme una mano?
Te doy las gracias por adelantado
saludos

Carlos M.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:COMBOBOX.ADDITEM

Publicado por Pedro (26 intervenciones) el 21/10/2002 23:08:12
Hola, esto lo he hecho en código escrito en Word, no sé si en Excel funciona, puedes probarlo:

Private Sub UserForm_Initialize()

With ComboBox1
.AddItem "enero"
.AddItem "febrero"
.AddItem "marzo"
.AddItem "abril"
.AddItem "mayo"
.AddItem "junio"
.AddItem "julio"
.AddItem "agosto"
.AddItem "septiembre"
.AddItem "octubre"
.AddItem "noviembre"
.AddItem "diciembre"
End With
End Sub

En Word, cuando el formulario que he diseñado se inicia con el evento initialize el Combobox1 automáticamente queda cargado con todas las palabras que escribas después de additem.
Espero que te sirva
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar