[VB6] XPButton ed errore nell'uso della funzione Right$

[814(k m49!(]

Ho un problema su questo codice:

Private Sub Command1_Click()
Text2.Text = Right$(Text1.Text, 4)
End Sub

se nel progetto ho il componente XPButton mi viene questo errore:

e mi evidenzia "Rght", se invece non ho il componente nel progetto funziona perfettamente.
qualcuno ha riscontrato lo stesso errore? qualche consiglio per risolverlo?
grazie

[LMondi]

Ciao 814(k m49!(,
ho provato il codice, sia con il solo XpButton e due Txt standard, sia con tre controlli XP, ma l'errore che lamenti non è apparso. C'è qualcosa d'altro ...

Private Sub Command1_Click()
    Dim sProva As String
    sProva = "ABCDEFGHI"
    
    Text1.Text = sProva
    Text2.Text = Right$(Text1.Text, 4)
End Sub

[814(k m49!(]

ciao LMondi,
potrebbe trattarsi di un conflitto con l'antivirus o qualcosa di simile? non so dove sbattere la testa

[LMondi]

Non credo si tratti di conflitto con antivirus. Hai provato a fare il passaggio:
sProva = "ABCDEFGHI"
Text1.Text = sProva

prova anche a togliere il $

[814(k m49!(]

ho provato ma l'errore lo da comunque
credo che sia un problema del mio sistema, ho formattato una settimana fa e sul sistema vecchio (fino a quando un virus mi ha cancellato grand parte dei file di sistema) non mi dava questo tipo di problematiche

credo che l'unica soluzione sia formattare di nuovo

[Boolean]

è un bug dell'XPButton... o meglio, più che un Bug, è un conflitto tra le costanti dichiarate internamente al controllo (nello specifico quelle per l'allineamento della picture nel controllo) e le funzioni di VB6

il problema è stato già risolto da tempo, infatti devi avere una delle prime versioni del controllo... prova a riscaricarlo dal sito vbcorner.net

in ogni caso puoi risolvere il problema, anteponendo alle funzioni Left e Right la parola VBA, in pratica:

a = VBA.Left(Text1.Text, 3)
b = VBA.Right(Text1.Text, 3)

Boolean

[814(k m49!(]

io ho scaricato XPButton.ocx da questo link, se e' una versione vecchia potresti darmi il link dell'ultima?

ho provato con vba.right e funziona, grazie!

[Boolean]

il link è quello giusto, ma ti consiglio di scaricare la suite completa XPControls dove l'ocx è sicuramente aggiornato...

altrimenti puoi scaricare il sorgente dell'XPButton (sempre dallo stesso link di cui parlavi) e correggere da te questo bug, compilando poi l'OCX

Boolean

[814(k m49!(]

non credo che sarei in grado di correggere l'errore
cmq ho gia cambiato tutti i left e right nel mio progetto
ciao e grazie per l'aiuto offertomi