Prikazi cijelu temu 03.01.2015 09:46
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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 kôd (Visual Basic):
  1. Private Sub NAZIV_KeyPress(KeyAscii As Integer)
  2. Const Strg = "#@%$#!/*?&+.,;:-<>\|[]{}§Å Å¡Å½Å¾
  3. "
  4. Dim Slovo As String
  5. Dim Poz As Integer
  6.  
  7. Slovo = ChrW(KeyAscii)
  8. Poz = InStr(1, Strg, Slovo)
  9. If Poz > 0 Then
  10. KeyAscii = 0
  11. End If
  12. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.