salve
Volevo chiarire un dubbio col vostro aiuto
Public Sub AddToOutput(strFrom As String, strData As String, Colore As OLE_COLOR, intImg As Integer)
With MV_rtfOutput
.SelLength = 0
.SelStart = Len(.Text)
If intImg > 0 Then
InsertPicture intImg
strFrom = " " & strFrom
End If
LeggiFont
.SelColor = Colore
.SelText = strFrom & "-> " & strData & vbCrLf
.UpTo " .?!:->", True, False
End With
End Sub
MV_rtfoutput è impostata nelle option explicit come RichTextBox
in esecuzione mi da un errore di proprietà. mi dice che quelle proprietà (.SelLength,.SelStart,ecc......) non appartengono ad un oggetto RichTextBox.
Mi spiegate cosa c'è che non va?
Grazie per le risposte

Rispondi quotando