PROBLEMAS COM TEXTBOX MULTILINE

ELMO01 10/08/2009 15:32:56
#319466
Olá pessoal,

Estou com um pequeno problema no textbox multiline, quando teclo enter para pular para a próxima linha, o programa pula para um text box inicial, ou seja, vai para o primeiro text box com a instruçãoTABINDEX = 0.

Como posso contornar este erro??

Obrigado,
RODRIGOFERRO 10/08/2009 15:35:49
#319468
Amigo teria de postar um trecho do codigo para podermos avaliar melhor...

Abraços
DOUTORX 10/08/2009 15:37:30
#319469
Se você estiver com 100% que colocou a opção MultiLine da textbox como true, então o problema deve estar em algum desses 2 eventos da sua TextBox

Evento:
KeyDown
KeyPress


olha o que tem neles e comenta para fazer um teste.
ELMO01 10/08/2009 15:47:04
#319471
ai pessoal o problema reside no evento KEYPRESS, se eu retirar este evento, não vou conseguir passar de um text box para outro. Como faço para que quando acessar somente o text box com multiline, este evento passe de TRUE para FALSE??
DOUTORX 10/08/2009 16:24:33
#319484
Tenta algo assim, só que no evento KeyDown e retire o que tem no KeyPress

  
Private Sub tdbTCampo_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyReturn, vbKeyDown
      SendKeys [Ô]{Tab}[Ô]
    Case vbKeyUp
      SendKeys [Ô]+{Tab}[Ô]
    End Select
End Sub
KERPLUNK 11/08/2009 16:03:56
#319587 Resposta escolhida
Use Shift + Enter que vai...
THIAGO.CC 11/08/2009 16:35:55
#319594
Tenta no evento do Form assim :

Private Sub Form_KeyPress(KeyAscii As Integer)

[ô]Objetivo: Navega com o <ENTER>
If KeyAscii = vbKeyReturn Then SendKeys ([Ô]{TAB}[Ô])

End Sub


Só um detalhe no form em propriedades na opção keyPreview coloque como True.

Thiago
Tópico encerrado , respostas não são mais permitidas
Voltar