/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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.

Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408907
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste