Irenko
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 14/02/2007 17:06 hs
Exite maneira de fazer uma SUB(LOSTFOCUS) para varios controles com arrays diferentes? Suponhamos: tenho 10 Textbox nomeados de TxtNome com array de 0 a 9 e 10 Textbox nomeados de TxtCliente com array de 0 a 9, como fazer essa sub digamos (Muda_LostFocus) que trata a perda do foco para ambas sem usar um LostFocus para cada uma? Ééééé...Não sei se fui claro!
|
|
|
|
|
|
|
|
Postada em 14/02/2007 17:17 hs
ÉÉÉÉÉÉÉHHHHH, interessante, mas não sei se funciona, mas algumas perguntas nos chamam a atenção, parecem ser complicadas, mas podem se tornar simples, teste e de retorno Dim oOBJ as Control Private Sub txtCLIENTE_GotFocus(Index As Integer) Set oOBJ = txtCLIENTE End Sub Repita no GotFocus do txtNOME Private Sub oOBJ_LostFocus(Index As Integer) aqui o evento End Sub Será???? vlu// |
|
|
|
|
|
Postada em 15/02/2007 01:05 hs
Nesta linha: Set oOBJ = txtCLIENTE Troque por: Set oOBJ = txtCLIENTE(Index) vlu// |
|
|
|
|
|
Postada em 15/02/2007 11:57 hs
Não entendi a pergunta... se vc tem um array de controles a sub não é uma só do lostfocus? Se vc for colocar o mesmo código para o evento lostfocus tanto do array TxtNome e TxtCliente coloque a chamada de uma Procedure (Sub) para ambos os eventos: Private Sub TxtNome_LostFocus(Index As Integer)
Call Procedimento
End Sub Private Sub TxtCliente_LostFocus(Index As Integer)
Call Procedimento
End Sub Era isso a sua dúvida?? |
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 15/02/2007 16:41 hs
para mudar o foco de uma para outra (na sequencia) digamos de 0 a 10; no 10 o foco irá para um bt Private Sub TxtNome_LostFocus(Index As Integer) if index=10 then command1.setfocus else TxtNome(index+1).setfocus endif para chamar outros procedimentos select case index case 0 chama o procedimento case... case n chama procedimento
end select
End Sub |
|
|
|
