Proprietà non riconosciute

[lofcarlos]

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

[lofcarlos]

nessuno che può darmi una mano? vi prego

[Gigi84]

Originariamente inviato da lofcarlos
MV_rtfoutput è impostata nelle option explicit come RichTextBox

in esecuzione mi da un errore di proprietà. mi dice che quelle

ma in che senso??

hai una RichTextBox come oggetto sul tuo form??
oppure hai solo dichiarato una variabile di tipo RichTextBox?

[lofcarlos]

ho una RichTextBox nel mio form, e quella procedura scritta sopra, ce l'ho in una modulo

[Gigi84]

allora è ovvio che dal modulo non vedi l'oggetto RichTextBox!!!!!

puoi:
passare l'oggetto come paramentro della funzione

oppure
recuperare il riferimento all'oggetto con NomeFormCheLoContiene.NomeRichTextBox.SelStart...

[lofcarlos]

come faccio? (sia nel primo che nel secondo caso)

[Gigi84]

primo caso:
fai una funzione che accetta come parametro la tua richtextbox:

Public Sub AddToOutput (i tuoi paramtri e , rtf As RichTextBox)
.
.
.
with rtf
.selstart....

secondo caso:
arrivi al riferimento della richtextbox passando dalform che la contiene, per esempio se il form dentro il quale c'è la rtb si chiama frmEdita

Public Sub AddToOutput(strFrom As String, strData As String, Colore As OLE_COLOR, intImg As Integer) 
With frmEdita.MV_rtfOutput

spero di essermi spiegato bene..

ciauz!!