[VB6] cambiare colore ad un campo di testo

[agmama]

ciao a tutti,

sto cercando di fare un programma in visual basic 6.0.

vorrei fare in modo che quando un campo di tsto viene attivato lo sfondo cambia colore (es. diventa giallo al posto che bianco) e se ci sono scritte le scritte vengano evidenziate, poi, appena viene disattivato ritorna come era prima (quindi normale con le scritte nn disattivate), io ho provato a farlo ma mi viene sempre lo sfondo nero (sia quando è attivo e sia quando è inattivo) e non mi evidenzia le scritte.

come posso fare?



Agmama

[yyzyyz]

Dim onoff As Boolean
Private Sub Command1_Click()
If onoff = False Then
    Text1.BackColor = RGB(155, 0, 0)
    onoff = True
    Else
    Text1.BackColor = RGB(255, 255, 255)
    onoff = False
End If

End Sub
Private Sub Form_Load()
onoff = False
End Sub

[agmama]

con quel codice cambia colore ad ogni clik, io invece voglio che ogni volta che nel campo di testo è attivo (quindi quando uno ci può scrivere dentro) sia di un colore, quando è inattivo (quindi quando non ci puoi scrivere perchè è selezionato un altro campo di testo o una qualsiasi altra cosa) diventi di un altro colore.
ho provato con GotFocus ma c'è qualcosa che non va...

[vonkranz]

cos'e' che non va'?

[yyzyyz]

Originariamente inviato da agmama
con quel codice cambia colore ad ogni clik, io invece voglio che ogni volta che nel campo di testo è attivo (quindi quando uno ci può scrivere dentro) sia di un colore, quando è inattivo (quindi quando non ci puoi scrivere perchè è selezionato un altro campo di testo o una qualsiasi altra cosa) diventi di un altro colore.
ho provato con GotFocus ma c'è qualcosa che non va...

Private Sub Text1_GotFocus()
Text1.BackColor = RGB(155, 0, 0)
End Sub

Private Sub Text1_LostFocus()
Text1.BackColor = RGB(255, 255, 255)
End Sub

:master:

[agmama]

ok, grazie mille, funge tutto anche se nn capisco come mai a me nn andava, eppure mi ricordo di aver fatto così... bha.. sicuramente avevo sbagliato qualche cosa hihi grazie ancora