---

Følgende har altid virket i VB6.0

Private Sub Textbox1_KeyPress (KeyAscii as Integer)
Select case KeyAscii
case Asc("0") to Asc ("9")
Case Else
KeyAscii = 0
End Select
End Sub

Dette gør der kun kan indtastes tal.
Men det må skulle gøres på en anden måde i VB2005, nogen der ved hvordan??

---

"Ingelsen" <SLET@mig.dk> wrote in message
news:45a5fc96$0$880$edfadb0f@dread12.news.tele.dk...
> Følgende har altid virket i VB6.0
>
> Private Sub Textbox1_KeyPress (KeyAscii as Integer)
> Select case KeyAscii
> case Asc("0") to Asc ("9")
> Case Else
> KeyAscii = 0
> End Select
> End Sub

Først og fremmest mener jeg du skal kigge på en kontrol hvori du kan
afgrænse dette pr. property. Jeg mener den er lavet.

Ellers har jeg denne omskrevne funktion:

Private Sub txtRange_KeyPress1(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles txtRange.KeyPress

OnlyDigits(e)

End Sub



Public Sub OnlyDigits(ByRef e As KeyPressEventArgs)

Try

If Char.IsDigit(e.KeyChar) _

Or e.KeyChar = "+" _

Or e.KeyChar = "-" _

Or e.KeyChar = ","

Then

Else

e.Handled = True

End If

Catch ex As Exception

End Try





mvh

///M