Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim keyascii As Integer = AscW(e.KeyChar), teksti As String, pituus As Integer, lyhenne As String
teksti = e.KeyChar & " = " & keyascii
pituus = Len(teksti)
lyhenne = Right(teksti, pituus - 1)
TextBox1.Text = lyhenne
End SubMiksi tuo erroroi tuon Right(teksti, pituus - 1) kohdalla? Eikö se ole oikein
Errori:
'Public ReadOnly Property Right() As Integer' has no parameters and its return type cannot be indexed.
jooh, korjasin ite ongelmani kun ei ollut muita kykeneviä joten ei tarvitse enää vastata.
näin sen kuuluu olla:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim keyascii As Integer = AscW(e.KeyChar), teksti As String
teksti = e.KeyChar & " = " & keyascii
TextBox1.Text = teksti.Substring(1)
End SubHei Kingi here's the Queen...
Hyvin toimii...kiitos sulle!
Aihe on jo aika vanha, joten et voi enää vastata siihen.