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 Sub
Miksi 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 Sub
Hei Kingi here's the Queen...
Hyvin toimii...kiitos sulle!
Aihe on jo aika vanha, joten et voi enää vastata siihen.