---

Hej
Jeg har før fået go' hjælp så jeg prøver igen.
Jeg ønsker at kunne hoppe mellem nogle tekstbokse vha. ENTER, men følgende
kode...

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}"
End If
End Sub

....gi'r et "Ding" i højttaleren, når man trykker ENTER. Hvorfor det?
Er der måske en bedre metode?

Mvh
Kjeld

---

Hej

hvis du bruger nedenstående kode slipper du for "ding" lyden:

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = Asc(vbCr) Then
KeyAscii = 0
End If
End Sub

"Kjeld Sørensen" <kjeld.s@mobilixnet.dk> skrev i en meddelelse
news:DULT5.3658$n3.296423@news0.mobilixnet.dk...
> Hej
> Jeg har før fået go' hjælp så jeg prøver igen.
> Jeg ønsker at kunne hoppe mellem nogle tekstbokse vha. ENTER, men følgende
> kode...
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> If KeyAscii = 13 Then
> SendKeys "{TAB}"
> End If
> End Sub
>
> ...gi'r et "Ding" i højttaleren, når man trykker ENTER. Hvorfor det?
> Er der måske en bedre metode?
>
> Mvh
> Kjeld
>
>

---

"Kjeld Sørensen" wrote:
>
> Hej
> Jeg har før fået go' hjælp så jeg prøver igen.
> Jeg ønsker at kunne hoppe mellem nogle tekstbokse vha. ENTER, men følgende
> kode...
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> If KeyAscii = 13 Then
> SendKeys "{TAB}"
> End If
> End Sub

Hvad med at bruge:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   text2.SetFocus
End If
End Sub

hvis du har dine textbox's i et array er det vel endnu nemmere at
skrive:

private sub text1_keypress(index as integer, KeyAscii as integer
   if KeyAscii= 13 then
      if index < Ubound(text1) then
         text1(index+1).setfocus
      else
         text1(0).SetFocus
      end if
   end if
end sub




--
/Lars

A computer scientist is someone who, when told to 'Go to Hell',
sees the 'go to', rather than the destination, as harmful.