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):Private Sub T_KeyPress(KeyAscii As Integer)
If Provjera(KeyAscii) = False Then KeyAscii = 0
End Sub
Ovu proceduru mozete staviti bilo gdje u bilo koji modul.
PreuzmiIzvorni kôd (Visual Basic):Function Provjera(Taster As Integer) As Boolean
Const znaci = "ABCDSG" ' Ovdje ukucate znakove koje zelite dozvoliti da se mogu ukucati
Dim Znak As String
Znak = Chr(Taster)
If InStr(1, znaci, Znak) > 0 Then
Provjera = True
Else
Provjera = False
End If
End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.