[VB6] Errore "Il carattere di dichiarazione tipo non corrisponde al tipo di dati..."

[vr-claudio]

Ciao ragazzi,
una cosa strana, ho scaricato clsPDFCreator per studiarlo, ho aperto un nuovo progetto
ho studiato il metodo e me lo sono personalizzato, e fin qui tutto bene...funziona molto bene.
Non ho fatto altro che copiare pari pari lo stesso codice incluso il modulo, in un altro progetto esistente, da me creato, ma mi da questo errore:

'Errore di compilazione:
Il carattere di dichiarazione tipo non corrisponde al tipo di dati dichiarato

L'errore si trova nel modulo clsPDFCreator in questa funzione alla parola 'Right$':

Private Function InitObj(Optional intObj As Integer) As Integer

If intObj = 0 Then intObj = intMaxObject + 1
If intObj > intMaxObject Then intMaxObject = intObj
ReDim Preserve arrXREF(1 To intMaxObject)

arrXREF(intObj) = Right$("0000000000" & (Seek(mvarFileNumber) - 1), 10) & " 00000 n"
WriteObj CStr(intObj) & " 0 obj"
InitObj = intObj
End Function

mi sembra un po' strano, perchè non ho fatto altro che copiare il modulo di classe
in un altro progetto.

Grazie per l'attenzione
vrclaudio

[MdE2005]

Originariamente inviato da vr-claudio
Ciao ragazzi,
una cosa strana, ho scaricato clsPDFCreator per studiarlo, ho aperto un nuovo progetto
ho studiato il metodo e me lo sono personalizzato, e fin qui tutto bene...funziona molto bene.
Non ho fatto altro che copiare pari pari lo stesso codice incluso il modulo, in un altro progetto esistente, da me creato, ma mi da questo errore:

'Errore di compilazione:
Il carattere di dichiarazione tipo non corrisponde al tipo di dati dichiarato

L'errore si trova nel modulo clsPDFCreator in questa funzione alla parola 'Right$':

Private Function InitObj(Optional intObj As Integer) As Integer

If intObj = 0 Then intObj = intMaxObject + 1
If intObj > intMaxObject Then intMaxObject = intObj
ReDim Preserve arrXREF(1 To intMaxObject)

arrXREF(intObj) = Right$("0000000000" & (Seek(mvarFileNumber) - 1), 10) & " 00000 n"
WriteObj CStr(intObj) & " 0 obj"
InitObj = intObj
End Function

mi sembra un po' strano, perchè non ho fatto altro che copiare il modulo di classe
in un altro progetto.

Grazie per l'attenzione
vrclaudio

Sei sicuro precisamente alla parola Right$?

Il primo argomento della funzione Right è una String?

[Brainjar]

Secondo me, quando la Right$ non funziona più nel VB60 è perchè c'è qualche libreria o componente mancante o mal referenziato.
Controlla i riferimenti nel progetto che funziona e vedi se hai gli stessi nel progetto che
non funziona.