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

271

    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. Omakotitalossa väkivaltaa ounasrinteellä

      Kertoo iltalehdet Mitä lienee Tapahtui. Verinen ihminen kannettu lanssiin
      Rovaniemi
      11
      1308
    2. Martinan hevoset.

      Tämä todella kaunis ja ketterä harmaa hevonen jolla monet kilpailut voitetaan ei ole Martinan.Tytär ratsastaa sillä tait
      Kotimaiset julkkisjuorut
      306
      1200
    3. Persut jakavat tekoälyllä tehtyjä kuvia maahanmuuttajista somessa

      Eivät mainitse, että ovat tekoälyllä tehtyjä. Eivät näe asiassa mitään ongelmaa. Valehtelijapuolue taas vauhdissa. Unka
      Maailman menoa
      380
      1147
    4. Ethän leiki kanssani J- mies

      Jos oletkin joku pelimies, jolla monia vaihtoehtoja, katkon kylmästi yhteyden. En jaksa sellaisia miehiä.
      Ikävä
      100
      853
    5. Miesmäinen vanha nainen joka kulkee lastenvaunujen kanssa

      Mikähän kaheli tämä yks kaupungilla karvahattu päässä kulukeva vanha eukko on joka työntää lastenvaunuja. Onhan sitte
      Kuhmo
      13
      761
    6. Molemmat päät

      aivan tulessa😫 Miksi pitää ihmisen tällaisesta kärsiä??? Jos koko ajan pnettaa, niin miksi sitä seksiä ei voi sitten s
      Ikävä
      113
      760
    7. Miltä kaivattusi näyttää?

      Mitä vikoja? jne
      Ikävä
      34
      702
    8. Kasteen merkityksestä ihmiselle

      Jeesuksen hyvä ystävä Nikodemus meni heti Jeesuksen kasteen jälkeen kysymään häneltä kasteen merkityksestä ihmiselle. J
      Kaste
      371
      690
    9. Liikenne onnettomuus

      Luin juuri Ampparista Konneveden kauheasta onnettomuudesta jossa menehtyi 60-luvulla syntynyt mies. Onko kellään tarkemp
      Konnevesi
      6
      680
    10. kukaan ei pakota kasteeseen..

      Kommentointi estetty, joten kommentoin tähän.Kukaan ei pakota pakkokasteesta puhuvaa kastamaan lastansa.Noloa edes ehdot
      Kaste
      222
      661
    Aihe