Jump to content
Xetly

Alerta "Skype" "MSN" de entrada de pessoa

Recommended Posts

ribeiro55

Não é complicado.

Não tentaste nada?


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
scorch

Basta criar um form que apareça no lado inferior direito do monitor. :)


PS: Não respondo a perguntas por mensagem que podem ser respondidas no fórum.

Share this post


Link to post
Share on other sites
ribeiro55

O que já tentaste?

Até te podia escrever uma solução, mas aprendias o que?

Se colocares:

        Me.Top = My.Computer.Screen.WorkingArea.Height - Me.Height - 20
        Me.Left = My.Computer.Screen.WorkingArea.Width - Me.Width - 20
        Me.ShowInTaskbar = False
        Me.TopMost = True
        Me.BringToFront()

digamos, no form_load do form que queres que seja o teu alerta, ele coloca-se na tal posição que indicas.

Fazê-lo deslizar também não é complicado... achas que já chegas lá ?


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
asdff

Boas, já consegui fazer o alerta, agora se me pode sem ajudar, podiam me dize quando e que um form Fecha passado um tempo determinado por nos ?

Share this post


Link to post
Share on other sites
Andrepereira9

boas.

Metes um timer na janela do Alerta, defines o tempo que queres que a janela esteja visivel.

Depois no evento form load, activas o timer.

No evento .tick do timer, metes Me.close()


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Andrepereira9

Vais ao Quadro de Ferramentas (ToolBox), e inseres um timer no form

depois metes este codigo

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = "2000"  ' Tempo em Milisegundos que a janela vai estar apresentada. 1segundo = 1000 Milisegundos
        Timer1.Enabled = True  ' Activa o Timer
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Close()  ' Quando o timer atngir o valor indicado, este evento é disparado, e fecha a janela
    End Sub


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • 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.