[VB6]: Alternare colore del bordo di uno Shape con un Timer

[andrea toniolo]

e' fattibile?
ad esempio vorrei che ogni secondo mi cambia il colore dello shape, o magari metto tre shape e a sequenza cambiano colore, insomma, vorrei sapere se si puo' fare e se si un piccolo emsempio

[wallrider]

ma non ti basta mettelo nel codice del timer? :master:

[andrea toniolo]

credo di si, solo che non so cosa metterci
cioe', non credo si possa fare cosi':

Private Sub Timer1_Timer()
Shape1.BorderColor = vbYellow
Shape1.BorderColor = vbRed
Shape1.BorderColor = vbBlue
Shape1.BorderColor = vbBlack
End Sub

capisci?

[oregon]

E invece e' (quasi) proprio cosi' .

Invece delle costanti ci devi mettere una variabile numerica long contenente il colore ...

Shape1.BorderColor = Colore

che cambierai sempre all'interno dell'evento timer in base ai criteri da te voluti ...

Ma perche' non provi prima di scrivere nel forum?

Imparare a programmare e' soprattutto provare e riprovare ...

[andrea toniolo]

hem...non e' che hai un esempio?
sono proprio un novellino e per giunta co ho provato ma nn capisco come fare, cioe' ho capito ma in parte, provo a dire come ho fatto:

Private Sub Timer1_Timer()
Dim colore As Double
colore = txtColore.Text
Select Case colore
Case "1"
colore = vbBlack
Case "2"
colore = vbBlue
End Select
Shape1.BorderColor = colore

End Sub

tutto sbagliato ne?

[andrea toniolo]

ho messo long al posto di double ma cmq non succede niente se cambio il testo del textbox, abbiate pazienza xfavore

[andrea toniolo]

ci sono riuscito! dopo prove e riprove