Danks tegnsæt

hvad mener du med DK tegnsæt ?

i alle intastningsfelter denne kode

Private Sub _KeyPress(KeyAscii As Integer)
KeyAscii = Dansk(Chr(KeyAscii))
End Sub

ret selv Text1 til din boksnavn

I et Modul

Public Function Dansk(Tast)
Select Case Tast
' lav en kode for hver tast der sidder forskellig fra dansk
Case ";": Dansk = Asc("æ")
Case ":": Dansk = Asc("Æ")

' osv......
Case Else
Dansk = Asc(Tast) ' alle andre som er ens både i DA og EN
End Select
End Function

visualdeveloper>> Ja


kabbak >> Hvad så når man skriver ";" eller ":"?

Glem min kommentar, den dur kun hvis brugeren bruger et engelsk tegnsæt, og måden at kontrollere det på kender jeg ikke.

Hvis brugeren nu har dansk tegnsæt går det galt.

Lukker