Osa merkeistä sensuuriin

Mitänkä tämä menisi vb.netissä? Googlella löysin tällaista:


Private Sub frmGame_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
Dim keyascii As Integer = AscW(e.KeyChar)
End Sub


Ei onnistu pistämällä keyascii = 0.

lalalallaaaaal kirjoitti:

Mitänkä tämä menisi vb.netissä? Googlella löysin tällaista:


Private Sub frmGame_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
Dim keyascii As Integer = AscW(e.KeyChar)
End Sub


Ei onnistu pistämällä keyascii = 0.

Lue lisää

Pistä sinne kontrollin KeyPress eventiin ao. koodin pätkä. Pitäisi estää a,b ja c kirjainten kirjoitus.

Select Case e.KeyChar
Case "a","b","c"
   e.Handled=True
Case Else
   e.Handled=False
End Select