|
| ENTER Fra : Kjeld Sørensen |
Dato : 25-11-00 10:18 |
|
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
| |
Lindstrom (25-11-2000)
| Kommentar Fra : Lindstrom |
Dato : 25-11-00 10:39 |
|
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
>
>
| |
Lars Hoffmann (25-11-2000)
| Kommentar Fra : Lars Hoffmann |
Dato : 25-11-00 14:05 |
|
"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.
| |
|
|