Prikazi cijelu temu 25.03.2015 23:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zabrana Slova Å ,Ć,Č,Đ,Ž
Evo ovako probaj na oba sa ovim kodom.
Mora ti nesto dati:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub NAZIV_KeyPress(KeyAscii As Integer)
  2. Const Strg = "#@%$#!/*?&+.,;:-<>\|[]{}§Å Å¡Å½Å¾ "
  3. Dim Slovo As String
  4. Dim Poz As Integer
  5. Slovo = ChrW(KeyAscii)
  6. Poz = InStr(1, Strg, Slovo)
  7. If Poz > 0 Then
  8. MsgBox "Slovo je: " & slovo & vbcr &  "Asc kod slova je :"  & KeyAscii & vbcr & U tvom stringu je na mjestu: " & Poz
  9. KeyAscii = 0
  10. End If
  11. End Sub

U stvari kopiraj samo ovaj dio:
MsgBox "Slovo je: " & slovo & vbcr & "Asc kod slova je :" & KeyAscii & vbcr & U tvom stringu je na mjestu: " & Poz

I probaj.
Mora ti nesto reci.
Bar ce ti reci koji to tvoj znak mijenja slovo a.
Const Strg = "#@%$#!/*?&+.,;:-<>\|[]{}§Å Å¡Å½Å¾ "
ovo su tvoji znakovi i mozes ih mijenjati po zelji.
"#@%$#!/*?&+.,;:-<>\|[]{}§Å Å¡Å½Å¾ "
Neki od njih glumi slovo a a vidjet ces koji je sa gornjim kodom odnosno reci ce ti na kojem je mjestu slijeva na desno kada brojis.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.