Keskustelu: Ohjelmointikysymykset: VB6: TextBox

Puoliväkisten [26.01.2009 18:26:10]

Voinko määritellä TextBoxin niin että siihen ei voi syöttää kun numeroita?

osaan rajata arvon tiettyyn väliin mutta nyt jos käyttäjä syöttää vahingossa kirjaimen niin ohjelma kaatuu :D

If TukiAla3.Checked = True Then
            Dim Kysymys, otsikko, luku As String
            Dim arvo As Short
            Kysymys = ("Anna tuen keskikohdan etäisyys L3 kiskon reunasta. Mitta C:n arvo mitattu tästä samasta pisteestä")
            otsikko = "Mittaluvun syöttö"

            Do
                luku = InputBox(Kysymys, otsikko)
                If IsNumeric(luku) Then
                    If Val(luku) >= 25 And Val(luku) <= 1600 Then
                        arvo = Val(luku) 'palautetaan luku numeromuotoon
                        Exit Do
                    Else
                        MsgBox("Arvon täytyy olla välillä 25 - 1500mm")
                    End If
                Else
                    MsgBox("Virheellinen syöte anna numeroarvo!")
                End If
            Loop
            PubTukiAla3 = arvo
            TxtTuki3ala.Text = arvo
            If PubTukiAla3 > 0 Then

                TxtTuki3ala.Visible = True
            End If

        Else
            TxtTuki3ala.Visible = False
        End If

Voiko boxin määritellä jotenkin helpommin kuin soveltamalla ylläolevaa.

Löysin vinkkiä mutta heittää erroria
"Error 1 'Public Event TextChanged(sender As Object, e As System.EventArgs)' is an event, and cannot be called directly. Use a 'RaiseEvent' statement to raise an event."

Short Php [26.01.2009 19:21:12]

Mikset suoraan käytä masked textboxia?

Puoliväkisten [26.01.2009 19:52:43]

AAAARHG...... Oi miksi en tuota ole huomannut. Ostamani opuskaan ei noteeraa boksia mitenkään.... Huoh.

Kiitokset vinkistä

Leinonen [04.02.2009 21:49:24]

niin ja eikös tämän voi välttää Try...Catch - lauseella?

novice [06.02.2009 09:24:29]

Leinonen kirjoitti:

niin ja eikös tämän voi välttää Try...Catch - lauseella?

Tosiaan, tein joksus itsekin sen tuolla Try...Catch lauseella, mutta nyt en millään muista miten... enkä löydä mistään siihen ohjettakaan.

Miten se tehdään?

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku