Predmet:Re: Zabrana Slova Å ,Ć,Č,Đ,Ž
Evo ovako probaj na oba sa ovim kodom.
Mora ti nesto dati:
PreuzmiIzvorni kôd (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
MsgBox "Slovo je: " & slovo & vbcr & "Asc kod slova je :" & KeyAscii & vbcr & U tvom stringu je na mjestu: " & Poz
KeyAscii = 0
End If
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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.