FLASHING image

[luca90]

how to flashing two image ?
attached the image

alternate the two color image:

yellow
red
yellow
red
ecc...

[Arnoutdv]

Timer and 2 picture boxes?

[Zvoni]

Timer and 2 picture boxes?

Timer and 1 PictureBox, but 2 BitMaps.
Just Load alternate BitMap on Timer-Event, or load both into Memory, and then just assign on Timer-Event
Probably needs Repainting/Refresh, too.

If it's really just those small squares, a Label might be an Option.
No Caption, Autosize=False, Background opaque, and then just set Background-Color on Timer-Event

[luca90]

Timer and 1 PictureBox, but 2 BitMaps.
Just Load alternate BitMap on Timer-Event, or load both into Memory, and then just assign on Timer-Event
Probably needs Repainting/Refresh, too.

If it's really just those small squares, a Label might be an Option.
No Caption, Autosize=False, Background opaque, and then just set Background-Color on Timer-Event

I think not is for me..E.
can you post an example.?
tks

[Elroy]

Ask AI.

[SteveM22]

I that the job now, "Ask AI" when we know AI makes too many mustkes. Quote from AI. lol

[Eduardo-]

Use a Shape, FillStyle = 0 (solid). Change the FillColor with a timer.

[baka]

what Arnoutdv wrote. this is where u start. u use what VB offers. its simple. its intuitive. its learning exercise.
later when you ready, u will be ready for more.
if u can't even use the common component of VB u should just quit trying. this after 20+ years.

[Zvoni]

Use a Shape, FillStyle = 0 (solid). Change the FillColor with a timer.

Nice.
For some unfathomable reason, i always forget the Shape-Control.
Probably because i never used it

[luca90]

nice.
For some unfathomable reason, i always forget the shape-control.
Probably because i never used it

infact never used

[baka]

shape is good, but not as good as a picturebox.
shape has the same issue like an image object, they can flicker.

even so, to realize that, u need to try it. thats when u see the good and the bad.
thats when u evolve and start looking for something that can fix the limitations.

[Eduardo-]

something that can fix the limitations.

DrawingControls for VB6: Shape and Line controls replacement with anti-aliasing

[ChrisE]

nothing fancy...

2x Shape
1x Timer

set your timer Interval as you need it

Private Sub Form_Load()
Shape1.FillStyle = 0
Shape1.Height = 330
Shape1.Left = 2415
Shape1.Top = 1995
Shape1.FillColor = vbYellow

Shape2.FillStyle = 0
Shape2.Height = 330
Shape2.Left = 2415
Shape2.Top = 1995
Shape2.FillColor = vbRed

Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Shape2.Visible = Not Shape2.Visible
End Sub

[Zvoni]

Alternative to Chris with 1 Shape
Untested

Private col(0 To 1) As Long

Private Sub Form_Load()
  col(0) = vbYellow
  col(1) = vbRed
  Shape1.FillStyle = 0
  'Where's "Width"? :)
  Shape1.Height = 330
  Shape1.Left = 2415
  Shape1.Top = 1995
  Shape1.FillColor = col(0)
  Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Static a As Long
  If a = 0 Then a = 1 Else a = 0
  Shape1.FillColor = col(a)
End Sub

[luca90]

nothing fancy...

2x Shape
1x Timer

set your timer Interval as you need it

Private Sub Form_Load()
Shape1.FillStyle = 0
Shape1.Height = 330
Shape1.Left = 2415
Shape1.Top = 1995
Shape1.FillColor = vbYellow

Shape2.FillStyle = 0
Shape2.Height = 330
Shape2.Left = 2415
Shape2.Top = 1995
Shape2.FillColor = vbRed

Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Shape2.Visible = Not Shape2.Visible
End Sub

GREAT CODE!!!!

tested and work perfect
tks bro!

[luca90]

Alternative to Chris with 1 Shape
Untested

Private col(0 To 1) As Long

Private Sub Form_Load()
  col(0) = vbYellow
  col(1) = vbRed
  Shape1.FillStyle = 0
  'Where's "Width"? :)
  Shape1.Height = 330
  Shape1.Left = 2415
  Shape1.Top = 1995
  Shape1.FillColor = col(0)
  Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Static a As Long
  If a = 0 Then a = 1 Else a = 0
  Shape1.FillColor = col(a)
End Sub

GREAT CODE!!!!

tested and work perfect
tks bro!