Prikazi cijelu temu 02.01.2015 18:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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