empêcher le bip??Résolu

Question

Salut,
Jai deux text box dans ma form. Lorsque j'&#233;cris quelque chose dans une, et que je p&#232;se sur enter, le texte apparait dans la 2ieme textbox...seulement ca me fait le horrible "bip" de window a chaque foi...une fa&#231;on d'emp&#234;cher cela?

Merci
Jn

cs_casy · Accepted Answer

Private Sub Text2_KeyPress(KeyAscii As Integer)

    If KeyAscii 13 Then KeyAscii 0

End Sub



Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyReturn Then

        Text1.Text = Text1.Text & vbCrLf & ">" & Text2.Text

        Text2.Text = ""

    End If

End Sub





<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

PCPT · Answer

salut,

pour tes prochains topics, essaie de copier un bout de code stp (et le langage, accessoirement ...)



donc tu as du faire quelque chose du genre...

si "entr&#233;e", Txt2 =  Txt1



il faut aussi que tu annules le "entr&#233;e"



donc  KeyAscii  ou KeyCode (selon ce fameux code manquant)



Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii  13 Then KeyAscii 0: Text2.Text = Text1.Text

End Sub



voil&#224;



++

PCPT [AFCK]

jnbrunet · Answer

Salut,
d&#233;sol&#233; pour le code...je vais le mettre a l'instant car &#231;a ne marche pas plus 

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
KeyCode = 0
Text1.Text = Text1.Text & vbCrLf & ">" & Text2.Text
Text2.Text = ""

End If
End Sub

Jn

PCPT · Answer

re,

fonctionne tr&#232;s bien chez moi.

tu as bien mis multiligne pour ton Txt1 ?

Empêcher le bip??

4 réponses

Discussions similaires