Predmet:Re: Zabrana Slova Å ,Ć,Č,Đ,Ž
PreuzmiIzvorni kôd (Visual Basic):Private Sub Text0_KeyPress(KeyAscii As Integer)
Const Strg = "#@%$#!/*?&+.,;:-<>\|[]{}§Å Å¡
Žž"
Dim Slovo As String
Dim Poz As Integer
Slovo = Chr(KeyAscii)
Poz = InStr(1, Strg, Slovo)
If Poz > 0 Then
KeyAscii = 0
End If
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.