[vb6]Textarea: A capo in automatico

[ianstilo]

come fare?

sto creando una specie di notepad e vorrei sapere come impostare l'accapo automatico per esempio dopo 20 caratteri...

(Anche se nel notepad non c'è l'accapo)

[junx]

Function ACapo(Stringa As String, Caratteri As Integer) As String
    Dim i As Long
    
    For i = 1 To Len(Stringa) Step Caratteri
        ACapo = ACapo & Mid(Stringa, i, Caratteri) & vbCrLf
    Next
    
End Function

[ianstilo]

penso che funzionerà di certo....ma non so da dove cominciare...
dove la metto?

[junx]

come dove la metti?

mmmm allora....

Copia e incolla il codice che ti ho postato nella sezine generale di (ad esempio Form1)

Inserisci (sempre nel Form1) un pulsante (Command1) e due caselle di testo (Text1 e Text2).

ora incolla questo codice:

Private Sub Command1_Click()
    Text2 = ACapo(Text1, 20)
End Sub

Sono stato chiaro?

[ianstilo]

ok ma io voglio impostarlo come opzione per la textarea...non le input text

[junx]

ma che è la text area????

ma parli di VB6?

ma non è che ti confondi con HTML?

Comunque se alla TextBox imposti Multiline a True e dai le scrollbars...dovresti avere ciò che tu chiami TextArea....

[ianstilo]

il fatto è che se io non do l'enter non mi va mai a capo

[junx]

allora non ho capito....
tu vuoi che in fase di digitazione, ciò che scrivi vada a capo ogni tot caratteri?

prova così:

Dim j As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
j = j + 1
If j = 20 Then
    Text1 = Text1 & vbCrLf
    Text1.SelStart = Len(Text1)
    j = 0
End If
End Sub

...anche se poi in realtà un po' te lo dovrai modificare....