Colocar um icone na barra do Windos ao lado do relogio
Vou dar logo a má noticia antes que você tente executar este código.
Isto só vai funcionar no Windows!
Dim tr As New TrayItem
Dim p AS Picture
'Nova imagem 32 x 32
p = NewPicture(32,32,32)
'Desenha um icone critico
'Mas poderia ter cido qualquer imagem
p.Graphics.DrawCautionIcon(0,0)
tr.Icon = p
'texto q aparece ao passar o mouse
tr.HelpTag = "Isso e um icone!"
APP.AddTrayItem tr
Dim p AS Picture
'Nova imagem 32 x 32
p = NewPicture(32,32,32)
'Desenha um icone critico
'Mas poderia ter cido qualquer imagem
p.Graphics.DrawCautionIcon(0,0)
tr.Icon = p
'texto q aparece ao passar o mouse
tr.HelpTag = "Isso e um icone!"
APP.AddTrayItem tr
Pronto, ele ja está lá!
E se você olhar um pouco mais a fundo pode descobrir inúmeras aplicações para estas linhas. O DoubleClick, LeftMouseButton, RightMouseButton, juntamente com o System.MouseX ou .MouseY, pode ampliar bem o leque de utilização, permitindo posicionar menús popups ou algo do gênero.
Nenhum comentário:
Postar um comentário
Escreva à-vontade. mas dê prioridade ao idioma Português, e lembre-se, aqui não é o MSN, ICQ, etc. mais de uma pessoa vai ler, então tente escrever a palavra toda.
E a propósito.
Os comentários estão sem moderação. Caso sua TESTOSTERONA ou TPM esteja em níveis elevados, lembre-se que crianças visitam esse blog. ;)