Problemer med KeyDown og detekt af keykode 13 (Return)

Retrun in VB is VBCRLF (constant)

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
\'Hvad der skal ske... Evt Buttonklik... Nu bruger jeg bare lige en MessageBox som eksempel
MsgBox \"Det virker sku!\"
End If
End Sub

Terry i know!!

Magik duer ikke har prøvet.
Jeg er ikke helt Newbie..

God Jul

Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 13 Then MsgBox \"Du trykket enter !\"

End Sub

Skumbaq > Som jeg sagde jeg er ikke Newbie!
Er prøvet.
Det virker ikke.

Fandt lidt gammel kode på min h-disk


\' I et Modul
Public Declare Function GetAsyncKeyState Lib \"user32\" (ByVal vKey As Long) As Integer


Private Sub Timer1_Timer()

    If GetAsyncKeyState(vbEnter) Then
        MsgBox \"It works :)\"
    End If

End Sub

>>etlekana: Hvorfor er det lige det ikke virker på din com når det virker alle andre steder... Det bliver da ikke sværere at programmere fordi man ikke er newbie ;) Alle kan da overse et eller andet en gang imellem...

Prøv dette. Det virker.

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then MsgBox \"yui\"
End Sub

Magik> Det er jo netop det, det her program er ikke bygget helt alm op, det er ikke en alm form det er bygget op i men en usercontrol, jeg kan sagtens få det til at virke i en form, men ikke i usercontrolen, og alle de andre user dialogs er lavet i user controls, da vi er 2 om at programmere det, så jeg fortsætter bare som ham den anden.

Mvh Etlekana.

Johs, prøv at læse de andres besvarelser inden du kommer med en :o) Ellers tak for tippet.

Skumbaq > Takker for koden men det virker heller ikke :o( Den reagerer slet ikke på enter :o(

Mvh Etlekana

>Etlekana.
Hvad mener du med at jeg skal klæse de andres svar først. Det har jeg gjort. Mit svar er ikke magen til de andres.
Hvis det ikke virker, kan det jo også skyldes at du ikke har stillet dit sørgsmål specifikt nok.
/johs

Ingen svar der virkede :o(