Jump to content
joaomiranda

[Resolvido] Label Piscante

Recommended Posts

joaomiranda

Boa tarde gostaria se é possivel no visual basic 2010 express meter uma label a piscar. Ou seja eu estou a fazer uma PAP (Prova de Aptidão Profissional) e gostaria que antes de entrar no programa aparece-se uma label a piscar a dizer "Aguarde", criar a Label é facil mas mete-la a piscar é que eu não sei muito bem. Alguém me pode ajudar sff?

obrigado pela a atenção

Share this post


Link to post
Share on other sites
nelsonr

Talvez possas criar um timer e no event tick alteras a visibilidade/propriedades do label de forma a piscar.

Share this post


Link to post
Share on other sites
joaomiranda

boas desde já agradeço teres respondido já pensei nisso mas eu queria algo assim:

Aguarde.

Aguarde..

Aguarde...

Aguarde....

Mas o Aguarde sempre a piscar juntamente com os pontos

Share this post


Link to post
Share on other sites
nelsonr

Então, em cada tick do event atualizas o label com o texto

Isso é VB.NET? (colocaste o post na secção de VB Classico, mas dizes VB2010)

Algo do tipo, no inicio da class, defines um contador e uma propriedade para o piscar

Dim contadorAguarde as byte = 1
dim estadoAguarde as byte = 0

Depois no evento do timer

' ...
label.text="Aguarde" & New String(".", contadorAguarde)
contadorAguarde = contadorAguarde +1
if contadorAguarde=4 then
  contadorAguarde = 1
endif
' Piscar
if estadoAguarde=0 then
  label.forecolor = color.black
else
  label.forecolor = color.red
endif
estadoAguarde = 1 - estadoAguarde

  • Vote 2

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.