EVENTOS

JEANCOELHO 03/08/2010 02:58:03
#349235
Preciso acionar um evento numa classe e nao to sabendo como, Gostaria de saber como declarar esse evento, e como setar a funcao nele, Ex:
Public Event Login()

ai dentro da classe nao sei aonde se e no Private Sub Class_Initialize() ou aonde eu consiga exibir meu form de login

desde ja Grato!
JAMESBOND007 03/08/2010 10:49:44
#349262
se eu entendi direito tenta colocar no form load do formulario e faz um teste

Class_Initialize
JSFF77 03/08/2010 11:26:01
#349269 Resposta escolhida
Bom dia.

Amigo,

Você precisa desses quatro passos:

1. Na Classe (em Declarations):

Public Event Login()


2. Execute o evento na classe onde precisar chamar com:

RaiseEvent Login


3. No Form utilizador da classe (em Declarations):

Dim WithEvents clsSuaClasse As SuaClasse


4. Ainda no Form utilizador da classe, programe o evento como precisar dessa forma:

	Private Sub clsSuaClasse_Login()
        [ô]CÓDIGO...
	End Sub


é isso.

Até mais.


JSFF77
JEANCOELHO 03/08/2010 12:44:44
#349276
Estou tentando seguir esse exemplo aqui, http://www.codeproject.com/KB/system/winlogon_notification_package.aspx so que em VB, intao gostaria saber como que eu consigo fazer essa fução ativar:
\Logon REG_SZ StartProcessAtWinLogon
\Logoff REG_SZ StopProcessAtWinLogoff

Grato...
JEANCOELHO 03/08/2010 12:49:15
#349277
Citação:

:
Estou tentando seguir esse exemplo aqui, http://www.codeproject.com/KB/system/winlogon_notification_package.aspx so que em VB, intao gostaria saber como que eu consigo fazer essa fução ativar:
Logon REG_SZ StartProcessAtWinLogon
Logoff REG_SZ StopProcessAtWinLogoff

Grato...


So que no caso eu nao quero criar um processo, quro somente chamar a função que abre o form de Login, que quando foi feito log off, dar o logout no usuario Atual, o sistema todo e um activex dll sem uso de aplicativo externo.
JAMESBOND007 03/08/2010 13:17:46
#349279
Tenta esse codigo:

[ô]Num módulo:
Public Declare Function ExitWindowsEx Lib [Ô]user32[Ô] _
Alias [Ô]ExitWindowsEx[Ô] (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF As Long = 0 [ô]Faz Logoff do usuário.
Public Const EWX_SHUTDOWN As Long = 1 [ô]Desligar o compitador.
Public Const EWX_REBOOT As Long = 2 [ô]Reiniciar o computador.
Public Const EWX_FORCE As Long = 4 [ô]Força a ação desejada.

[ô]No evento que você desejar:
Dim RET as Long
[ô]P/ fazer logoff do usuário:
RET = ExitWindowsEx(EWX_LOGOFF, 0)
[ô]P/ desligar o computador:
RET = ExitWindowsEx(EWX_SHUTDOWN, 0)
[ô]P/ reiniciar o computador
RET = ExitWindowsEx(EWX_REBOOT, 0)

[ô]Se você quizer [Ô]forçar[Ô] a ação a ser executada, faça
[ô]da seguinte maneira:

[ô]P/ fazer logon com outro usuário:
RET = ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
[ô]P/ desligar o computador:
RET = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)
[ô]P/ reiniciar o computador
RET = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
[ô]P/ reiniciar o computador
RET = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0
JEANCOELHO 03/08/2010 14:04:20
#349282
Não não meu kiridu, no meu caso o winlogon me [Ô]Notifica[Ô] que esta sendo feito Logon e Logoff, Shuttdown e outros eventos, o que eu preciso e saber como receber essa notificação dele no meu activex dll. mas valew a dica!
Pq quando eu receber a Notificação de Logon preciso solicitar um Usuario e senha, e quando receber a Notificação de Logoff e Shuttdow preciso encerrar tal seção!

Abraços
JEANCOELHO 03/08/2010 20:16:22
#349330
Alguma novidade? rs...
JEANCOELHO 05/08/2010 00:30:13
#349488
Bom vo apela pra minha necessidade! kkkkk
se alguem se habilitar a gerar a bse do projeto podemos combinar um valor! segue exemplos links para noção!
Basta fazer a dll dando um msgbox em cada evento!



http://www.codeproject.com/KB/system/winlogon_notification_package.aspx

http://msdn.microsoft.com/en-us/library/aa380544%28VS.85%29.aspx
Tópico encerrado , respostas não são mais permitidas
Voltar