• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

zephirus

GotFocus e LostFocus em MainForm

3 mensagens neste tópico

Olá,

Estou a dar em maluco com uma dúvida muito simples. Só encontro exemplos para controles e nada para a MainForm ou Form1.

Tenho a minha janela principal do meu programa, "MainForm" e quero mudar o text de um label consoante a form tem o focus ou não. O código que tenho é este:

	Sub MainFormGotFocus(sender As Object, e As EventArgs) Handles MainForm.GotFocus
	Label10.Text = "Selected"
End Sub

Sub MainFormLostFocus(sender As Object, e As EventArgs) Handles MainForm.LostFocus
	Label10.Text = "Not Selected"
End Sub

Isto dá um erro:

Handles clause requires a WithEvents variable defined in the containing type or one of its base types. (BC30506)

Eu sei por o WithEvents num controle mas na MainForm não estou a conseguir. Alguém me pode ajudar?

Obrigado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não são esses eventos que deves usar e sim estes:

Private Sub MainForm_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
         Label10.Text = "Selected"
End Sub

Private Sub MainForm_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
        Label10.Text = "Not Selected"
End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora