textboxiin pelkästään numeroita

aapuuva......

Elikkäs törmäsin tallaiseen ongelmaan ohjelmoidessani yhtä ohjelmaa (VB6). Elikkä mulla on lomakkeella textbox joka pitäisi saada ymmärtämään pelkkiä numeroita, eikä kirjaimia. Vielä parempi olisi että kirjaimia siihen ei voisi laittaa ollenkaan. Jos kirjaimia siihen kirjottaa, niin silloin pukkaa erroria. Onhan tämä nyt vähän noob kysymys, mutta apua tarvitseisin :D

2

377

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Etsija vaihda

      Ainakin Pascalista (Delphi/Lazarus) löytyy sellainen kuin MaskEdit johon voi määritellä mitä merkkejä kyseinen komponentti lukee. On todennäköistä että myös VB:ssä on samantapainen Edit(text)-käyttöliittymäkomponentti jossa on tämä ominaisuus (eli etsi ja vaihda sopiva komponentti vanhan tilalle).

      • xxxxx

        On Visual Basicissakin tuo maskaus, mutta itse käytän Keypress-eventissä tarkastusta.

        Sivulla http://www.woodger.ca/vbsamp.htm on esimerkki:

        'this is brute-force method of limiting to number but mask is easier.
        Sub Text1_KeyPress (KeyAscii As Integer)
        If KeyAscii = 8 Then 'Allow BACKSPACE through
        Exit Sub
        End If
        'Only digits are valid characters.
        If Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9" Then
        KeyAscii = 0 'Set character to null if out of range
        Beep
        End If
        End Sub


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Heh, Riikka runnoi Suomen BKT:n miinukselle

      Suomi on Riikan irvistysten ansiosta ainoa negatiivisen talouskasvun maa EU:ssa. Ei tästä ainakaan EU:ta voi syyttää, ku
      Maailman menoa
      29
      4987
    2. Sanna vaihteeksi Australian "60 minuuttia" ohjelmassa

      Kansanvälinen superstaramme esiintyi tällä kertaa toisella puolen maapalloa esitettävässä ohjelmassa. Kiinnostus on kova
      Maailman menoa
      62
      1862
    3. HihhuIi-Päivi täpinöissään Viktorin tapaamisesta

      Eiköhän nyt kaikille ole vihdoin selvää kenen joukoissa tämäkin putinisti seisoo. https://www.iltalehti.fi/politiikka/a
      Maailman menoa
      109
      1784
    4. Minkä lempinimen olet

      antanut kaivatullesi?
      Ikävä
      111
      1650
    5. Erään T miehen viimeinen aloitus tänne

      Moi Olen kirjoittanut täällä säännöllisesti yli 5 vuotta. Kaivannut kuten kuuluukiin, mutta myös unohdellut ja selvitel
      Ikävä
      29
      1484
    6. Björn Wahlroos ykkösaamussa nautittavaa kuunneltavaa

      Ehdottomasti viisaimpia ja tietävämpiä ihmisiä mitä Suomesta koskaan tullut. Naureskeli viherpiipertäjille jotka ihan p
      Maailman menoa
      220
      886
    7. Kumpi teki aloitteen?

      🤗🤗🤗🤗
      Ikävä
      71
      881
    8. Leikitään tavuleikkiä

      Millaiset nimitavut muodostuvat jos yhdistät oman etunimesi ensimmäisen tavun ja kaipaamasi ihmisen etunimen ensimmäisen
      Ikävä
      53
      769
    9. Yritän saada sinut pois mielestäni ja ajatuksistani nainen

      Turhaan. Mitä enemmän yritän, sitä enemmän haluan sinut ja sinua. Miten voitkaan olla niin ihana ja tuntua niin hyvältä.
      Ikävä
      40
      764
    10. Mitkä on ne piirteet

      Mitkä kaivatussasi vetoaa tai mihin ihmiset kiinnittävät huomiota
      Ikävä
      53
      762
    Aihe