Textbox og lyd

Jeg klippede lige noget jeg havde der måske ligner dit problem, ved ikke om det kan bruges:

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then    'Enter
        SendKeys "{TAB}"        'Gi'r ikke et beep
    End If
End Sub

hej kjeld

det virker ikke, har du andre ide'er

Jeg fandt lige noget mere:

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then        'Enter
        SendKeys "{BS}"        'Så teksten ikke skifter linie
        SendKeys "{TAB}"        'Gi'r ikke et beep
    End If
End Sub

Text2 skal være Multiline

Det er meget længe siden jeg har nørklet med det, men ovenstående virker omend det ikke ser smukt ud ;-\

hej igen

SÅDAN..... :-) det virker bare. lav lige et svar så du kan få dine point.

Tak For hurtig svar.. :)

:-)

i kan bare gøre såden :-)


Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0
  End If
End Sub

hej sjh

det virker også fint, dit svar er lidt bedre da man ikke behøver at sætte textbox's Multiline=true