---

Jeg har nogle tekstbokse hvor der indtastes nogle værdier til videre
beregning.

Men det er muligt at indtaste flere komma'er hvilket er ret uheldigt.
Hvordan klarer jeg den?

Mvh Jan Hansen

---

"Jan Hansen" <jh@fa.dk> skrev i melding
news:QcTC6.53$Zd1.8819@news.get2net.dk...
> Jeg har nogle tekstbokse hvor der indtastes nogle værdier til videre
> beregning.
>
> Men det er muligt at indtaste flere komma'er hvilket er ret uheldigt.
> Hvordan klarer jeg den?

Something like this;
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(Text1.Text, Chr$(44)) And KeyAscii = 44 Then KeyAscii = 0
End Sub

--
Snutten

---

Takker mange gange, det virker.

Mvh Jan Hansen

Helge Bjørkhaug <helge@techie.online.no> skrev i en
nyhedsmeddelelse:sFTC6.270$TAb.170970624@news.telia.no...
> "Jan Hansen" <jh@fa.dk> skrev i melding
> news:QcTC6.53$Zd1.8819@news.get2net.dk...
> > Jeg har nogle tekstbokse hvor der indtastes nogle værdier til videre
> > beregning.
> >
> > Men det er muligt at indtaste flere komma'er hvilket er ret uheldigt.
> > Hvordan klarer jeg den?
>
> Something like this;
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> If InStr(Text1.Text, Chr$(44)) And KeyAscii = 44 Then KeyAscii = 0
> End Sub
>
> --
> Snutten
>
>

---

Helge Bjørkhaug skrev:
> If InStr(Text1.Text, Chr$(44)) And KeyAscii = 44 Then KeyAscii = 0

Hvorfor ikke bare bruge:

If InStr(Text1.Text, ",") And KeyAscii = Asc(",") Then KeyAscii = 0

Så slipper man for at skulle have ASCII tabellen fremme hver gang man ser på
koden

-------
Tomas

---

"Tomas Christiansen" <toc@blikroer.dk.removethis> skrev i melding
news:sRVC6.95$Zd1.18973@news.get2net.dk...
> Helge Bjørkhaug skrev:
> > If InStr(Text1.Text, Chr$(44)) And KeyAscii = 44 Then KeyAscii = 0
>
> Hvorfor ikke bare bruge:
>
> If InStr(Text1.Text, ",") And KeyAscii = Asc(",") Then KeyAscii = 0
>
> Så slipper man for at skulle have ASCII tabellen fremme hver gang man ser
på
> koden

Speechless......

--
Snutten

---

-Fordi du anvende Asc-funktionen i stedet for at teste på KeyAscii-værdien
(44), som allerede har i hånden. Du laver altså performenceoverhead.

Hilsen Lars

"Tomas Christiansen" <toc@blikroer.dk.removethis> wrote in message
news:sRVC6.95$Zd1.18973@news.get2net.dk...
> Helge Bjørkhaug skrev:
> > If InStr(Text1.Text, Chr$(44)) And KeyAscii = 44 Then KeyAscii = 0
>
> Hvorfor ikke bare bruge:
>
> If InStr(Text1.Text, ",") And KeyAscii = Asc(",") Then KeyAscii = 0
>
> Så slipper man for at skulle have ASCII tabellen fremme hver gang man ser
på
> koden
>
> -------
> Tomas
>
>

---

SandahlOlsen skrev:
> -Fordi du anvende Asc-funktionen i stedet for at teste på KeyAscii-værdien
> (44), som allerede har i hånden. Du laver altså performenceoverhead.

....og så?

Hvis man ikke er glad for performance overheads, bruger man OVERHOVEDET ikke
Visual Basic

Det er vigtigere at lave læselige programmer, end at undgå at introducere et
ekstremt minimalt performance overhead, som formentlig vil være næsten
umåleligt.

Men okay - her er en version specielt til dig:

Private Const ANSI_NUL As Byte = 0 ' NUL
Private Const ANSI_KOMMA As Byte = 44 ' ,

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr(Text1.Text, ",") And KeyAscii = ANSI_KOMMA Then KeyAscii =
ANSI_NUL
End Sub

....og det er faktisk også sådan, at det bør gøres (altså bruge konstanter,
hvor funktioner kan undgås).

-------
Tomas