rajoitus?

miten?

Miten saa laitettua rajoituksen TextBox:n niin ettei siihen voi syöttää muuta kuin numeroita?

Olisin tosi kiitollinen tästä neuvosta.
Ja muistakin linkeistä Visual Basic oppaisiin.

2

267

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kunde

      Tässä yksi tapa, joka salliin 1 pilkun ja luvut 0-9
      Ei ollut nyt VB:tä tällä koneelle ,allaoleva toimii ainakin VBA:ssa,mutta räätälöimällä sen saa toimimaan Vb:ssä(jos edes tarvitsee muuttaa)

      Private Sub TxtLeveys_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
      If InStr(1, TxtLeveys.Text, ",") > 0 And KeyAscii = Asc(",") Then ' tarkistetaan ettei kirjoiteta 2 pilkkua
      ' muuta pilkku pisteeksi jos käytät desimaalierottimena pistettä
      KeyAscii = 0
      Exit Sub
      End If
      Select Case KeyAscii
      Case Asc("0") To Asc("9"), Asc(",") ' tässä voit valita mitä merkkejä voidaan syöttää
      Case Else
      KeyAscii = 0
      End Select
      End Sub

    • .............

      mentalis.orgista:

      'This project needs a TextBox
      Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
      Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
      Const GWL_STYLE = (-16)
      Const ES_NUMBER = &H2000&
      Public Sub SetNumber(NumberText As TextBox, Flag As Boolean)
      Dim curstyle As Long, newstyle As Long

      'retrieve the window style
      curstyle = GetWindowLong(NumberText.hwnd, GWL_STYLE)

      If Flag Then
      curstyle = curstyle Or ES_NUMBER
      Else
      curstyle = curstyle And (Not ES_NUMBER)
      End If

      'Set the new style
      newstyle = SetWindowLong(NumberText.hwnd, GWL_STYLE, curstyle)
      'refresh
      NumberText.Refresh
      End Sub
      Private Sub Form_Load()
      'KPD-Team 1999
      'URL: http://www.allapi.net/
      'E-Mail: [email protected]

      SetNumber Text1, True
      Me.Caption = "Now, try typing some letters into the textbox"
      End Sub

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

    Luetuimmat keskustelut

    1. Valtion alijäämä = yritystukien määrä = 10 mrd. euroa

      Mutta persut eivät vaan suostu tasapainottamaan valtion budjettia, vaikka yritystuet on tiedetty haitallisiksi. Miksi p
      Maailman menoa
      95
      7277
    2. Suomi käyttää sosiaalietuuksiin suhteessa eniten rahaa koko maailmassa

      Suomi käyttää sosiaaliturvaetuuksiin enemmän rahaa suhteessa bruttokansantuotteeseen kuin mikään muu maa maailmassa. Su
      Maailman menoa
      357
      6348
    3. Grahn-Laasonen: "Kansalainen joutuu pettymään, jos demareita äänestää"

      Ministeri viittaa tuoreeseen Helsingin Sanomien juttuun, jossa demarijohtajan keinoja Suomen suunnan muuttamiseksi esite
      Maailman menoa
      58
      3693
    4. Vähän fiksumpi Nimi kisa ? :=)

      Kirjoita teidän etunimet allekkain. Jos nimissä on joku kirjain sama, poista se. Tee sama tarkistus kaikille kirjaimill
      Ikävä
      29
      3429
    5. Mikä on suurin luonne- eroavuus sinussa

      Ja kaivatussasi? Vaikuttaako se huonoon vai hyvään suuntaan siinä, että teistä voisi tulla jotain?
      Ikävä
      192
      1931
    6. Kenen haluaisit voittavan Amazing Racen: Tuomas ja Esko, Millu ja Karoliina vai Maria ja Vilma?

      Amazing Race Suomi huipentuu lauantaina finaaliin. Jäljellä on kolme paria ja tiedossa on tehtäviä, jotka järkyttävät os
      Tv-sarjat
      17
      1628
    7. Mitä haluaisit sanoa tänään hänelle?

      Rakastamallesi ihmiselle.
      Ikävä
      60
      1363
    8. Gallup: Katsotko Salkkareita tai oletko katsonut?

      Salatut elämät on suomalaisten suosikkisarja vuosikymmenestä toiseen. Salkkareiden parissa viettää aikaa sukupolvet laps
      Tv-sarjat
      18
      1356
    9. Elämäni biisi starttaa uudessa muodossa - Voi olla pettymys faneille!

      Elämäni biisi ja juontaja Katja Ståhl ovat suomalaisten suosikkeja. Lauantai-iltaisin ohjelma on vetänyt tv-katsojat arv
      Tv-sarjat
      1
      1260
    10. Amazing Race Tomas rehellisenä Esko-appiukon, 63, tilasta: "Sairastelut ja..."

      Tomas Grekov ja Esko Rotola-Pukkila ovat mukana Amazing Race Suomi -kisassa. Ja nyt vuorossa on finaali. Hankaluuksia m
      Tv-sarjat
      1
      1237
    Aihe