[VB6] Textbox a capo ogni 10 caratteri

[Grumpy]

Originariamente inviato da S0nic
scusami, è che essendo un novellino non riesco a fare tutto!

Nessun problema. La differenza che sottolineavo tra "contare" e "misurare" significa che non hai bisogno della variabile DinLenght per contare i caratteri; è più comodo usare la funzione Len che ti restituisce sempre la lunghezza del testo:

Len(Text1.Text)

Se il valore restituito è uguale a 10 devi aggiungere un ritorno a capo:

Text1.Text = Text1.text & vbCrLf

... e così via.

[S0nic]

Originariamente inviato da Grumpy
Nessun problema. La differenza che sottolineavo tra "contare" e "misurare" significa che non hai bisogno della variabile DinLenght per contare i caratteri; è più comodo usare la funzione Len che ti restituisce sempre la lunghezza del testo:

Len(Text1.Text)

Se il valore restituito è uguale a 10 devi aggiungere un ritorno a capo:

Text1.Text = Text1.text & vbCrLf

... e così via.

ok ok si infatti se vedi l'ultima parte di codice che ho postato
è fatto proprio in questo modo!

unico problema è che funziona solo scrivendo manualmente!!

se scrivo nella text1 e poi premo il commandButton per far l'encodinc con il Base64 l'output non va a capo...

[Grumpy]

Certamente. Gli eventi Key...qualche cosa, come dice il loro nome, si attivano quando si premono dei tasti. Come ti suggeriva gibra (che non so a chi vorrebbe tagliare la testa ) c'è anche l'evento Change.

[S0nic]

Originariamente inviato da Grumpy
Certamente. Gli eventi Key...qualche cosa, come dice il loro nome, si attivano quando si premono dei tasti. Come ti suggeriva gibra (che non so a chi vorrebbe tagliare la testa ) c'è anche l'evento Change.

io ho fatto così:

Private Sub Text2_Change()

Call TestoACapo

End Sub

Public Function TestoACapo()


Dim TestoAttuale As String

TestoAttuale = Text2.Text


If Len(Text2.Text) = MaxLenght Then

MaxLenght = MaxLenght + 12

Text2.Text = TestoAttuale & vbCrLf
Text2.SelStart = Len(Text2.Text)


End If


End Function


ma non vunziona....

[wallrider]

ma perchè la funzione di "spezzettamento" non la lanci nel codice del command button dopo la conversione? così non stai a spaccarti la testa nei vari keyCosi

[S0nic]

Originariamente inviato da wallrider
ma perchè la funzione di "spezzettamento" non la lanci nel codice del command button dopo la conversione? così non stai a spaccarti la testa nei vari keyCosi

xkè ciò gia' provato e nemmeno in quel modo funziona

[gibra]

Originariamente inviato da S0nic
io ho fatto così:
.......
ma non vunziona....

Ettecredo!
Non capisco come tu possa "sperare" che quel codice abbia un senso...

Supponiamo che tu tu abbia in Text1 il testo normale, e voglia riportare in Text2 quello formattato:

' puoi usare un pulsante: 
Private Sub Command1_Click()
    Text2.Text = TestoACapo2(Text1.Text)
End Sub

' oppure l'evento Change 
Private Sub Text1_Change()
    Text2.Text = TestoACapo2(Text1.Text)
End Sub

Public Function TestoACapo2(ByVal sText As String) As String
    Dim i As Long
    Dim sTmp As String
    
    sTmp = ""
    For i = 1 To Len(sText) Step 10
        sTmp = sTmp & Mid(sText, i, 10) & vbCrLf
    Next i
    'Debug.Print sTmp
    TestoACapo2 = sTmp
End Function

Non so se è davvero questo che vuoi....

[S0nic]

Originariamente inviato da gibra
Ettecredo!
Non capisco come tu possa "sperare" che quel codice abbia un senso...

Supponiamo che tu tu abbia in Text1 il testo normale, e voglia riportare in Text2 quello formattato:

' puoi usare un pulsante: 
Private Sub Command1_Click()
    Text2.Text = TestoACapo2(Text1.Text)
End Sub

' oppure l'evento Change 
Private Sub Text1_Change()
    Text2.Text = TestoACapo2(Text1.Text)
End Sub

Public Function TestoACapo2(ByVal sText As String) As String
    Dim i As Long
    Dim sTmp As String
    
    sTmp = ""
    For i = 1 To Len(sText) Step 10
        sTmp = sTmp & Mid(sText, i, 10) & vbCrLf
    Next i
    'Debug.Print sTmp
    TestoACapo2 = sTmp
End Function

Non so se è davvero questo che vuoi....

provato ma non mi funziona

[oregon]

Originariamente inviato da S0nic
provato ma non mi funziona

Che vuoi dire con "non mi funziona"?

Potresti dare qualche dettaglio in piu' "volontariamente" invece di doverlo chiedere sempre ?

[gibra]

Originariamente inviato da S0nic
provato ma non mi funziona

A me si