Exit do Text - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: Exit do Text

Irenko

BELO HORIZONTE
MG - BRASIL

Postada em 07/10/2006 10:44 hs

Esse exit tá complicado já tentei de tudo! É o seguinte:

No módulo:
Dim BotAcionado As Integer

No Form:

Private Sub CmdSair_Click()
BotAcionado = 1
Unload Me
End Sub

No Exit do Text:

Private Sub TxtCod_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If BotAcionado = 1 And TxtCod.Text = "" Then Exit Sub

If TxtCod.Text = "" Then

MsgBox "É necessário informar o seu código!!", vbInformation
Cancel = True
TxtCod.SetFocus
TxtCod.SelStart = 0
TxtCod.SelLength = Len(TxtCod)
Exit Sub
Else
CarregaDados
End If

End Sub

O problema é que quando dou o click no botão SAIR(CmdSair) ele pede a MsgBox. Gostaria de fechar o Form sem dar a mensagem e no Exit do TextCod se estiver vazio tambem carregar a MsgBox. tem jeito?

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 09/10/2006 00:50 hs

tente o seguinte:

Num módulo crie uma sub como pública para tratar o conteúdo da textbox... ou Privada, dentro do seu form mesmo...

Bom, agora, na entrada (evento ENTER) de cada controle do seu form MENOS do botão e da textbox q vc está fazendo a consistência vc chama esta procedure....

No evento exit do textbox da consistência vc seta para outro controle q não seja o botão de saída!! Assim vc garante q sua verificação funcionará direito.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next
CommandButton2.SetFocus
End Sub

O q vai acontecer é q a consistência q vc colocou acima vai ocorrer qdo mudar de foco pra um outro controle MENOS pro botão de sair. :)

Creio q vc vai ter q fazer umas consistências mas o caminho é por ae colega...

Espero q tenha ajudado...qq dúvida é só postar.

at+

Página(s): 1/1


		CyberWEB Network Ltda. © Copyright 2000-2026 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site