CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede hardsoft Nybegynder
03. februar 2003 - 14:43 Der er 3 kommentarer

Tjek TextBox for tal...

Hvordan tjekker jeg om en textbox kun indeholder tal (ex. 123) eller om den også indeholde bogstaver (ex 1g255d)

haster - tak!
Avatar billede brobaek Nybegynder
03. februar 2003 - 15:08 #1
Du kan tjekke det efterhånden som der tastes ind i text boxen.

Private Sub txtCPR_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii < 48 Or KeyAscii > 57 Then
      KeyAscii = 0
  End If
End Sub

Mvh
Martin
Avatar billede michaelemanuel Nybegynder
03. februar 2003 - 15:14 #2
Eller du kan gennemløbe den indtastede tekst

Dim IsNotOnlyNumbers As Boolean
For i = 1 to Len(Text1.Text)
  If Asc(Mid(Text1.Text, i, 1)) < 48 Or Asc(Mid(Text1.Text, i, 1)) > 57 Then
    IsNotOnlyNumbers = True
    Exit For
  End If
Next
Avatar billede sjh Nybegynder
03. februar 2003 - 16:27 #3
kan også bruge "IsNumeric()"

Private Sub Text1_Change()
Dim strText As String
  strText = Text1.Text
  If Not IsNumeric(strText) And Len(strText) > 0 Then
    MsgBox "Der må ikke være bogstaver i boksen."
  End If
End Sub
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
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 3 25/04/202414:26 28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic 0 08/12/202320:00 -
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic 2 04/12/202320:07 09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic 0 09/10/202309:14 -
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
I dag 11:15 dll fejl - MSVCP140.ddl VCRUNTIME140.dll VCRUNTIME140_1.dll Af Uvanga i Windows
I dag 01:09 Hjælp til SEO Af Emil Knudsen i Søgemaskiner
I går 21:53 Tilslutning af SSD sata Interne harddisk 1tb Af jonpet i PC
I går 20:11 Hvorfor virker Skype ikke på Lenovo YOGA TAB3 Plus Af eksmojo i Apps til Android
I går 17:19 YouSee App går i sort ved opstart på Tizen styresystem Af Blød trafikant i Fjernsyn & projektorer
White papers
Flere white papers »


Premium
Teaser billede
Netcompany henter ny dansk topchef – tidligere TDC- og SAS-direktør tager over
Læs mere »
Atea vinder årets måske største udbud og skal levere Microsoft-løsninger til 4,1 milliarder kroner: "Prisstigningerne er en stor udfordring"
Tre år efter implementering af Netcompany-system: Sagsbehandlingstider i Københavns Kommune overskrides med op til 263 procent
Just Eat er opkøbt: Aktionærer forgyldes i handel til 31 milliarder kroner
Se alle »
Computerworld
Teaser billede
Test: Verdens vildeste trådløse højttaler trodser naturlovene og udløser et sjældent seks-tal
Læs mere »
Selv pc’er fra 2020 efterlades i kulden: Her er de processorer som mister Microsoft Windows-support
Ny Windows-opdatering skaber store problemer for brugerne: Alvorlige fejl
Microsoft klar med banebrydende kvante-chip efter 17 års udvikling: Så vild er Majorana 1
Se alle »
CIO
Teaser billede
Microsoft gør klar til at lukke for WSUS efter 20 år - alle it-admins bør forberede sig
Læs mere »
Tre ud af fire it-projekter løber af sporet og går over budgettet - og det er der en særlig forklaring på
Regioner klar med licens-aftale med Microsoft: Priserne stiger markant
IBM har defineret 67 risici ved kunstig intelligens: Dem bør du løbe igennem, før du starter et AI-projekt
Se alle »
Job & Karriere
Teaser billede
40 år gammelt dansk it-selskab fusionerer med hollandsk firma og skifter navn
Læs mere »
Her er deres månedsløn: Så meget tjener CIO'erne i de danske regioner - den bedst lønnede får mere end digitaliseringsministeren
Lønninger i den danske it-branche fortsætter med at stige - så meget tjener de danske it-folk i gennemsnit
Nørgaard: I de gode gamle dage havde jeg for vane at fyre alle mine medarbejdere jævnligt
Se alle »
White paper
Teaser billede
Sikkerhed gjort enkelt: Beskyt din virksomhed direkte i browseren
Læs mere »
TIDSBEGRÆNSET KAMPAGNE: Overvejer du at udskifte eller tilføje printere i din forretning? Vi kan tilbyde én eller flere maskiner GRATIS.
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »