Prikazi cijelu temu 24.01.2014-20:16
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: 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:
DownloadIzvorni kod (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.
DownloadIzvorni kod (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

Pozdrav