Using multi pictures with timer function?

pityocamptes · #1 03-01-2004, 08:43 AM

Hi. I've been working on a small project and wanted to display 26 pictures every three seconds (for example: picture one diplays for three seconds, disappears, then pic two does likewise, wanted to keep looping all 26 pics until application is terminated). I have 26 pic boxes that are arrayed (picA(0) to picA(25)). I have tried different methods in the timer function but I cannot seem to accomplish my goal. Could someone be kind enough to pass on some simple code that will allow what I'm trying to do happen? Thanks a bunch!

Aquila · #2 03-01-2004, 09:06 AM

Quote:
Originally Posted by pityocamptes
Hi. I've been working on a small project and wanted to display 26 pictures every three seconds (for example: picture one diplays for three seconds, disappears, then pic two does likewise, wanted to keep looping all 26 pics until application is terminated). I have 26 pic boxes that are arrayed (picA(0) to picA(25)). I have tried different methods in the timer function but I cannot seem to accomplish my goal. Could someone be kind enough to pass on some simple code that will allow what I'm trying to do happen? Thanks a bunch!

Place an extra picture box on your form, as well as a timer set for interval 3000

Code:

dim m_lngLoopNumber as long

  private sub form_load()
    m_lngLoopNumber = 1
  end sub
  
  private sub tmrFoo_Timer
    picShowPicture.picture = pica(m_lngLoopNumber).picture
    m_lngLoopNumber = ubound(pica) -1 then
      m_lngLoopNumber = 1
    else
      m_lngLoopNumber = m_lngLoopNumber + 1
    end if
    doevents
  end sub

pityocamptes · #3 03-01-2004, 09:45 AM

Quote:
Originally Posted by Aquila
Quote:
Originally Posted by pityocamptes
Hi. I've been working on a small project and wanted to display 26 pictures every three seconds (for example: picture one diplays for three seconds, disappears, then pic two does likewise, wanted to keep looping all 26 pics until application is terminated). I have 26 pic boxes that are arrayed (picA(0) to picA(25)). I have tried different methods in the timer function but I cannot seem to accomplish my goal. Could someone be kind enough to pass on some simple code that will allow what I'm trying to do happen? Thanks a bunch!

Place an extra picture box on your form, as well as a timer set for interval 3000

Code:

dim m_lngLoopNumber as long private sub form_load() m_lngLoopNumber = 1 end sub private sub tmrFoo_Timer picShowPicture.picture = pica(m_lngLoopNumber).picture m_lngLoopNumber = ubound(pica) -1 then m_lngLoopNumber = 1 else m_lngLoopNumber = m_lngLoopNumber + 1 end if doevents end sub

Thanks again. I added a new picture (picShowPicture) and included the code you provided. However, when I run it now the UBound portion is highlighted and a compile error msg of "expected array" displays. Any ideas? Thanks again.

Code:

Private Sub tmrPicture_Timer()
'sets picture loop

picShowPicture.Picture = picA(lngLoopNumber).Picture
If lngLoopNumber = UBound(picA) - 1 Then
    lngLoopNumber = 1
Else
    lngLoopNumber = lngLoopNumber + 1
End If
DoEvents

End Sub

pityocamptes · #4 03-01-2004, 10:06 AM

Thanks for your help. I figuered out my mistake and it works perfectly

!!!

spike4366 · #5 03-05-2004, 01:24 PM

Quote:
Originally Posted by pityocamptes
Thanks for your help. I figuered out my mistake and it works perfectly !!!

can you show me your code for the project cause i'm trying to do the same thing and my pic box is named piccornfed do i have a seperate picture box for each picture or do i just have 2 pic boxs and 1 timer

**passel** · #6 03-05-2004, 08:11 PM

In case you want to display the indiviual pictures in their respective pictureboxes
(so that you could position them around the form for variety, or over top of
each other, if so desired). You can just set one of them visible at a time.

This simple code will cycle through however many pictures you have in the
control array. Change the name of the control to your control's name, of course.

Code:

 
Dim p As Long
 
Private Sub Form_Load()
Dim i As Long
Picture1(0).Visible = True 'show the first picture
For i = 1 To Picture1.UBound 'leave picture(0) visible, hide all the others
	Picture1(i).Visible = False 
Next
Timer1.Interval = 3000 '3 seconds
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Picture1(p).Visible = False 'Hide the currently showing picture
p = (p + 1) Mod (Picture1.UBound + 1) 'select the next picture (mod will wrap back to 0)
Picture1(p).Visible = True 'Show the new picture
End Sub