Tenho varios textbox em um form e desabilitei o mouse. Com isso o foco segue a sequencia do TabIndex. Caso o usuario queira voltar para o foco anterior ele tecla F7 e o foco volta. O problema é que em alguns textbox eu criei algumas rotinas no LostFocus e parece que o VB da preferencia para o LostFocus ante o KeyDown. Como poderia resolver esse problema?

Não entendi direito a sua questão, para mim são coisas muito distintas, por exemplo eu jamis poderia colocar no KeyDown a verificação do cnpj, pois a cada digíto haveria a mensagem de número inexistente, algumas de minhas aplicações possuem procedimentos dos dois tipos e não verifiquei nenhum problema.

Eu uso o seguinte código no evento keydown do textbox txtBairro:

If KeyCode = vbKeyF7 Then
txtNome.SelStart = 0
txtNome.SelLength = Len(txtNome.Text)
txtNome.SetFocus
End If

Com isso ao pressionar a tecla F7 o foco que está em txtBairro volta para txtEndereço.

Porém, quando o textbox tem código no evento LostFocus ele ignora o presionamento de F7(keydown) e só faz o que está no evento LostFocus. É o que acontece em txtCNPJ que tem o verificador de CNPJ no evento LostFocus. Eu gostaria que o foco voltasse para txtNome ao presionar F7 só que ele verifica o CNPJ e passa para o txtInscriçãoEstadual.

Bom Dia Regina...

 

Tenta, ao invez de colocar sua rotina no LostFocus, coloque-a no Validate

 

Para ficar menor Seu Programa Crie algumas Subs e Functions em um form generico para poder ser usado em todos os seus projetos

 

Public Sub Foco(Byref Obj as Object)

    On Error Resume Next

    Obj.SelStart = 0

    Obj.SelLength = Len(Obj)

    Err.Clear

End Function

 

Public Sub Key13(Byref Keyascii as Integer)

    If Keyascii = 13 then

        Keyascii = 0

        SendKeys "{TAB}"

    End if

End Sub