/ 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
chr(13) i textbox..
Fra : Per


Dato : 12-02-01 21:11

Hej..

Jeg har en form med en række textboxe under hinanden.
Hver textbox udfyldes med en textstreng fra en barcodescanner.
Den sender en textstreng eftefulgt af chr(13).
Hvordan får jeg flyttet focus automatisk til næste efterfølgende textbox
ved brug af stregkodelæseren
når denne har sendt en textstreng afsted. ???

mvh pjl


 
 
Tomas Christiansen (12-02-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 12-02-01 22:16

Per skrev:
> Hvordan får jeg flyttet focus automatisk til næste efterfølgende textbox
> ved brug af stregkodelæseren

Hvis tekstboksene har differentierede navne (f.eks. txtFørste, txtAnden,
txtTredie osv.), er du nødt til at have noget kode i hver tekstboks'
KeyPress event. Eksempel:

Private Const NytFeltIndikator As Byte = 13
Private Const IngenBeepTak As Byte = 0

Private Sub txtFørste_KeyPress(KeyAscii As Integer)
If KeyAscii = NytFeltIndikator Then
KeyAscii = IngenBeepTak
txtAnden.SetFocus
End If
End Sub

Private Sub txtAnden_KeyPress(KeyAscii As Integer)
If KeyAscii = NytFeltIndikator Then
KeyAscii = IngenBeepTak
txtTredie.SetFocus
End If
End Sub

osv. osv. osv.

Har du derimod oprettet tekstboksene som et "control array" (dvs. samme at
alle har samme navn, men "Index" er forskelligt), kan én stump kode håndtere
hele molevitten:

Private Sub TextBox_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = NytFeltIndikator Then
If Index < TextBox.Count - 1 Then
KeyAscii = IngenBeepTak
TextBox(Index + 1).SetFocus
Else
'Vi er nået til den sidste tekstbox
End If
End If
End Sub

-------
Tomas



Per (12-02-2001)
Kommentar
Fra : Per


Dato : 12-02-01 22:26

Tak for lynhurtigt svar...
Hurtigere end at jeg har kunnet montere stregkodelæseren.
Textboxene er oprettet som control array, så det er dit sidste forslag som
er brugbart i dette tilfælde.
Jeg vender tilbage når det fungerer.

mvh pjl

Tomas Christiansen wrote:

> Per skrev:
> > Hvordan får jeg flyttet focus automatisk til næste efterfølgende textbox
> > ved brug af stregkodelæseren
>
> Hvis tekstboksene har differentierede navne (f.eks. txtFørste, txtAnden,
> txtTredie osv.), er du nødt til at have noget kode i hver tekstboks'
> KeyPress event. Eksempel:
>
> Private Const NytFeltIndikator As Byte = 13
> Private Const IngenBeepTak As Byte = 0
>
> Private Sub txtFørste_KeyPress(KeyAscii As Integer)
> If KeyAscii = NytFeltIndikator Then
> KeyAscii = IngenBeepTak
> txtAnden.SetFocus
> End If
> End Sub
>
> Private Sub txtAnden_KeyPress(KeyAscii As Integer)
> If KeyAscii = NytFeltIndikator Then
> KeyAscii = IngenBeepTak
> txtTredie.SetFocus
> End If
> End Sub
>
> osv. osv. osv.
>
> Har du derimod oprettet tekstboksene som et "control array" (dvs. samme at
> alle har samme navn, men "Index" er forskelligt), kan én stump kode håndtere
> hele molevitten:
>
> Private Sub TextBox_KeyPress(Index As Integer, KeyAscii As Integer)
> If KeyAscii = NytFeltIndikator Then
> If Index < TextBox.Count - 1 Then
> KeyAscii = IngenBeepTak
> TextBox(Index + 1).SetFocus
> Else
> 'Vi er nået til den sidste tekstbox
> End If
> End If
> End Sub
>
> -------
> Tomas


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste