Prikazi cijelu temu 24.01.2014 20:16
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:kontrola unosa znakova
Kako dozvoliti ukucavanje samo odredjenih znakova u neko polje:
Napravite neko tekst polje i dajte mu ime T.
Na Key Press stavite ovaj kod ispod:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub T_KeyPress(KeyAscii As Integer)
  2. If Provjera(KeyAscii) = False Then KeyAscii = 0
  3. End Sub

Ovu proceduru mozete staviti bilo gdje u bilo koji modul.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Provjera(Taster As Integer) As Boolean
  2. Const znaci = "ABCDSG" ' Ovdje ukucate znakove koje zelite dozvoliti da se mogu ukucati
  3. Dim Znak As String
  4.  
  5. Znak = Chr(Taster)
  6. If InStr(1, znaci, Znak) > 0 Then
  7. Provjera = True
  8. Else
  9. Provjera = False
  10. End If
  11.  
  12. End Function

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.