Søg
Avatar billede manhunter Nybegynder
16. november 2004 - 09:59 Der er 5 kommentarer og
1 løsning

HURTIGT Vigtigt spørgsmål om Ascii værdi

Hey har fået et tekstfelt til KUN at skrive tal fra 0-9 og så har jeg fået Backspace til at virke, men HVORDAN kan det lade sig gøre ?!

Private Sub txtFilmsk_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

Det skal kunne forklares til en fremlægning ! :D

PLz help hurtigt
Avatar billede bennytordrup Nybegynder
16. november 2004 - 10:00 #1
backspace er keyascii 8

Tallene 0 - 9 er KeyAscii 48 -> 57
Avatar billede bennytordrup Nybegynder
16. november 2004 - 10:00 #2
skulle være svar
Avatar billede hmortensen Nybegynder
16. november 2004 - 10:02 #3
Du kan se værdierne på www.asciitable.com
Avatar billede skwat Praktikant
16. november 2004 - 10:03 #4
hvis du vil være lidt mere overbevisende kan du skrive
Private Sub txtFilmsk_KeyPress(KeyAscii As Integer)
If KeyAscii = asc(vbBack) Then Exit Sub
If KeyAscii < asc("0") Or KeyAscii > asc("9") Then
KeyAscii = 0
End If
End Sub
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
16. november 2004 - 10:03 #5
Lidt mere forklarende:

Ascii 8 er ganske rigtigt backspace. Og i og med, at du bare Exit'er, så godkendes værdien.

Du kunne alternativt skrive det således:

Select Case KeyAscii
  Case 8, 48 to 57
    exit sub
  case else
    KeyAscii =0
end select
Avatar billede Make IT Easy - Thomas Jepsen Praktikant
16. november 2004 - 10:05 #6
Eller:

Select Case KeyAscii
  Case vbkeyBack, vbkey0 to vbkey9
    exit sub
  case else
    KeyAscii =0
end select
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
02/0814:53 TV4ever 3.0 Af valby i Diverse
01/0816:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
01/0809:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
White papers
Flere white papers »