---

Hej. jeg er igang med at lave et lille program, og i det program skal
der være en tekstboks hvor man kun kan lave tal og jeg har koden her, men
det er som om den ikke virker

tag en kigger:
Protected Sub TextBox1_keypress(ByVal KeyAscii As Integer)

If (KeyAscii <> 8) And ((KeyAscii < 48) Or (KeyAscii > 57)) Then

KeyAscii = 0

End If

End Sub

---

"Henrik" <DU_SKAL_SVARE_VIA@NYHEDSGRUPPEN.DK> skrev i en meddelelse
news:46064d96$0$2087$edfadb0f@dtext02.news.tele.dk...
> Hej. jeg er igang med at lave et lille program, og i det program skal
> der være en tekstboks hvor man kun kan lave tal og jeg har koden her, men det er som om
> den ikke virker
>
> tag en kigger:
> Protected Sub TextBox1_keypress(ByVal KeyAscii As Integer)
>
> If (KeyAscii <> 8) And ((KeyAscii < 48) Or (KeyAscii > 57)) Then
>
> KeyAscii = 0
>
> End If
>
> End Sub
>

Prøv denne kode....

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


Den virker hos mig i VB5.0 sp3

---

Det dur stadig ikke... andre forslag?

---

Henrik wrote:
> Det dur stadig ikke... andre forslag?
>

Til hvad??

---

Til at der kun kan står "tal" i min textbox

---

Henrik wrote:
> Til at der kun kan står "tal" i min textbox

Se det kunne man jo ikke lige se. Det er fint med korte svar, men hvis
man ikke kan se, hvad der er svaret på, bliver de _for_ korte.

Jeg så godt det oprindelige spg, men da andre havde svaret slettede jeg
det naturligvis.

Har du overvejet at udskifte textboxen med en 'masked edit' control? I
den kan du kontrollere indholdet allerede i indtastningsøjeblikket.


mvh

Krabsen

---

Private Sub txtTALFELT_KeyPress(KeyAscii As Integer)
KeyAscii = KunTal(KeyAscii)
End Sub


Public Function KunTal(KeyAscii As Integer) As Integer
If (Chr(KeyAscii) Like "[!0-9]") And _
(KeyAscii <> vbKeyBack) Then
KeyAscii = 0
Else
KunTal = KeyAscii
End If
End Function


--
----------------
reply my mail:
remove 'nomail.'
-----------------

---

"Jens Brandt" <JensBrandt@NOMAIL.mail.tele.dk> skrev i en meddelelse
news:MPG.2076cd86f74da6f498969f@news.kmd.dk...
>
> Private Sub txtTALFELT_KeyPress(KeyAscii As Integer)
> KeyAscii = KunTal(KeyAscii)
> End Sub
>
>
> Public Function KunTal(KeyAscii As Integer) As Integer
> If (Chr(KeyAscii) Like "[!0-9]") And _
> (KeyAscii <> vbKeyBack) Then
> KeyAscii = 0
> Else
> KunTal = KeyAscii
> End If
> End Function
>
>
> --
> ----------------
> reply my mail:
> remove 'nomail.'
> -----------------

Den vil ingen af delene...

---

Vis DIN kode istedet for bare at svare at andres ikke virker. Det
er sandsunligvist DIG der laver fejl og f.eks. har kludder med
controls-navn eller lignende.



--
/\ preben nielsen
\/\ prel@post.tele.dk


"Henrik" <Henrik.kralle@hense.dk> skrev i en meddelelse
news:460cee9b$0$2099$edfadb0f@dtext02.news.tele.dk...
>
>
>
> "Jens Brandt" <JensBrandt@NOMAIL.mail.tele.dk> skrev i en
> meddelelse news:MPG.2076cd86f74da6f498969f@news.kmd.dk...
>>
>> Private Sub txtTALFELT_KeyPress(KeyAscii As Integer)
>> KeyAscii = KunTal(KeyAscii)
>> End Sub
>>
>>
>> Public Function KunTal(KeyAscii As Integer) As Integer
>> If (Chr(KeyAscii) Like "[!0-9]") And _
>> (KeyAscii <> vbKeyBack) Then
>> KeyAscii = 0
>> Else
>> KunTal = KeyAscii
>> End If
>> End Function
>>
>>
>> --
>> ----------------
>> reply my mail:
>> remove 'nomail.'
>> -----------------
>
> Den vil ingen af delene...
>

---

"Henrik" <DU_SKAL_SVARE_VIA@NYHEDSGRUPPEN.DK> skrev i en meddelelse
news:46064d96$0$2087$edfadb0f@dtext02.news.tele.dk...
> Hej. jeg er igang med at lave et lille program, og i det program skal
> der være en tekstboks hvor man kun kan lave tal og jeg har koden her, men
> det er som om den ikke virker
>

hvad med denne

Protected Sub TextBox1_keypress(ByVal KeyAscii As Integer)

On error resume next
err.clear

If (KeyAscii != 8) then
If (KeyAscii < 48 Or KeyAscii > 57) Then
KeyAscii = 0
End If
End If

if err.number <> 0 then
msgbox ("Error: " & err.message)
end if

End Sub



Thomas Johansen