KeyPress problem :(

[ manix @ 20.04.2009. 08:39 ] @

Potrbno mi je da iskljucim tacku (.)

Probao sam na sledeci nacin, u KeyPress events text box-a sam dodao

Code:
If e.KeyChar = "." Or Not IsNumeric(e.KeyChar) Then
'neki kod (obavestenje...)
e.Handled = True
End If

Sto se tice numerickih tastera to sve lepo radi ali se i tacka (.) svrstava u iste
pokusao sam i umesto e.KeyChar = "." da stavim e.KeyChar = ChrW(46) ili e.KeyChar = ChrW("46")

Gde gresim?

[ WhiteAngelBoy75 @ 20.04.2009. 14:52 ] @

Tvoj kod radi... u Visual Studio 2008... !!!

Code:

   Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
   Handles TextBox1.KeyPress
        If e.KeyChar = "." Or Not IsNumeric(e.KeyChar) Then
            MsgBox("Uneli ste tacku ili slovo !!!")
            e.Handled = True

        End If

[ manix @ 20.04.2009. 18:29 ] @

hmm.... sad ni meni nije jasno u cemu je stvar.
Bas sam zbog toga sto bi tako trebalo da radi i postavio pitanje.

Pogledacu sta bi moglo biti ....

[ manix @ 20.04.2009. 21:15 ] @

nasao sam problem ... izvinjavam se na pometnji :)
Sada me zanima jos nesto.
Imam polje u koje se moze umositi samo broj (decimalni) i naravno del, back i enter....
Mozda je preterano ali me zanima kako da zabranim da se kacka ponovi 2 puta u unosu?
Da se recimo nebi mogao dogoditi unos tipa 2.35. ako me razumete

P.S. Greska je bila u dozvoli enter, del i back

[ WhiteAngelBoy75 @ 22.04.2009. 08:41 ] @

Evo ti nesto iz moje glave... verovatno postoji neki strucniji nacin ali ovo je jednostavno i radi posao... !!!
Obrati paznju da u nekim zemljama umesto "." ljudi koriste "," !!!

Code:

Public BrojTacaka As Short = 0
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
    Handles TextBox1.KeyPress
        If e.KeyChar = "." Then
            BrojTacaka += 1 ' broji tacke
            If BrojTacaka > 1 Then 'ako ima vise od jedne, greska
                MsgBox("Uneli ste dve ili vise tacaka!")
                BrojTacaka = 0 ' resetuje brojcanik na nulu
                TextBox1.Text = ""  'obavezno isprazniti TextBox1.Text
                e.Handled = True

            End If
        End If
    End Sub