/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Kan ikke finde fejlen i min kode?
Fra : Henrik


Dato : 25-03-07 11:23

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



 
 
Desserten (25-03-2007)
Kommentar
Fra : Desserten


Dato : 25-03-07 12:57


"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



Henrik (29-03-2007)
Kommentar
Fra : Henrik


Dato : 29-03-07 17:20

Det dur stadig ikke... andre forslag?




Gert Krabsen (29-03-2007)
Kommentar
Fra : Gert Krabsen


Dato : 29-03-07 18:45

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

Til hvad??


Henrik (29-03-2007)
Kommentar
Fra : Henrik


Dato : 29-03-07 18:47

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



Gert Krabsen (29-03-2007)
Kommentar
Fra : Gert Krabsen


Dato : 29-03-07 19:02

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

Jens Brandt (30-03-2007)
Kommentar
Fra : Jens Brandt


Dato : 30-03-07 07:33


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.'
-----------------

Henrik (30-03-2007)
Kommentar
Fra : Henrik


Dato : 30-03-07 12:04




"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...



preben nielsen (09-04-2007)
Kommentar
Fra : preben nielsen


Dato : 09-04-07 13:55

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...
>



Thomas Bøjstrup Joha~ (30-03-2007)
Kommentar
Fra : Thomas Bøjstrup Joha~


Dato : 30-03-07 19:30


"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



Søg
Reklame
Statistik
Spørgsmål : 177549
Tips : 31968
Nyheder : 719565
Indlæg : 6408820
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste