Predmet:Re: Zabrana Slova Š,Ć,Č,Đ,Ž
  
  
  Interesantno a nema ni u helpu.
Za vece asc 0d 256 koristi se chrw naredba i to od verzije 2000,
Stare verzije rade sa chr.
PreuzmiIzvorni kd (Visual Basic):Private Sub NAZIV_KeyPress(KeyAscii As Integer)
 
Const Strg = "#@%$#!/*?&+.,;:-<>\|[]{}ŠšŽž
 
"
 
Dim Slovo As String
 
Dim Poz As Integer
 
 
 
Slovo = ChrW(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.