VB6: If statement til textbox til tal, fejlbesked ved bogstaver

If IsNumeric(Textbox1.Text) Then
  MsgBox "Et nummer"
Else
  MsgBox "Ikke et nummer"
End If

If IsNumeric(txtMins.Text) Then
    lblFejl.Caption = "The Minutes Online field only supports numbers"
  End If


Burde det ikke virke?

Skal vel snarere være:

If Not IsNumeric(txtMins.Text) Then

Meget smartere:

Du kan forhindre, at man overhovedet KAN indtaste andet end tal i et textfelt.

Hvis dit text-felt hedder Text1, kan du copy-Paste nedenstående:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  'Sikrer, at der kun tastes lovlige karakterer ind i Text1 (0-9)
  Select Case KeyAscii
    Case vbKeyReturn      'Enter-tasten
        KeyAscii = 0    'fjerner tegnet
        SendKeys "{tab}" 'simulerer et tryk på Tabulatortasten
    Case vbKeyBack        'Backspace-tasten
    Case 48 To 57        'tallene 0 - 1
    Case Else            'alle øvrige tegn
        KeyAscii = 0    'fjerner tegnet
  End Select
End Sub

rasmusmoller's eksempel virkede, så læg et svar, så deler du point mellem dig og martin_moth som også kom med et godt trick

martin_moth: Takker... er det en du selv lige har lavet eller fået fra en side? Hvis det er fra en side vil jeg meget gerne have adressen... er begyndt at kode en del her på det sidste, og kunne godt bruge nogle flere eksempler som du lige har givet!

smen: Det er skam "hjemmelavet" helt og alene til dig :o)

smen=omen

Lyder som om du har styr på det.. såh, du får 60 flere point for næste spørgsmål.

Hvordan får man en lblVersion til automatisk hente det versions nummer som VB6 gennerer ved hver build? Det er sat til Auto Increment!

Ok har den:

Private Sub Form_Load()
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
End Sub