Keskustelu: Ohjelmointikysymykset: VB6: TextBoxin käsittely

Näitä en kyllä löytänyt hakemalla...

Tarkoitus olisi saada textbox vaihtamaan riviä aina kun 40 merkkiä / rivi tulee täyteen..

Siis jotain tämän tapaista, mutta tuo laskenta pitäisi kohdistaa aina sille riville millä ollaan.

Private Sub Text1_Change()
    If Len(Text1) = 40 Then
        Text1.text = text1.text + vbCrLf
    End If
End Sub

Ja vielä, mikä vastaa ctrl-m (rivinvaihto) komentoa textboxissa? Eli mitä kirjoitan boxiin, jotta tulee sama asia kuin ctrl-m tekee?

Dim ed As Integer

Private Sub Text1_Change()
   If Len(Text1) - ed = 40 Then
     Text1.text = text1.text + vbCrLf
     ed = Len(Text1)
   End If
End Sub

Ctrl + m on sma kuin Chr$(13)