[RESOLVED] IF-Then Problem.

[russow kid]

I have a button that changes a picture in a picture box, and I tried using If Then Statements to change it like so..

If imgtour.Tag = "pic01" Then
Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic02.jpg")
imgtour.Tag = "pic02"
End If

The problem is that I have 20+ If Then statements in this button, when I press the button, it cycles through every picture to the end. How can I make it "pause" at each picture until I click it again?

My knowledge of VB is pretty limited, so the most basic answers would be most appreciated

Thanks in advance,
Shawn

[westconn1]

try using select case imgtour.tag

[opus]

?? What are you trying to do?
-a- Show a different picture on each click of the command button OR
-b- Show a "Slide Show" of ALL pictures when clicking on the button??

[russow kid]

Could you elaborate on Select Case please?

What is it?
How should it be used?

Opus: I am having it show a different picture each time I click the button.

[Siddharth Rout]

I am not sure if slelect case would be different then an IF-Then.

It totally depends on your code in the button click event.

Can I have a look at your button click code?

[jeroen79]

You can put the pictureboxes and tags in arrays and then use one Long to cycle the index.

'make a control array of pictureboxes called imgtor
 
Dim tag() As String
'make as much tags as there are image boxes
'put an appropriate string in each tag
 
If imgtour(index).Tag = Tag(index) Then
    '...
End If
index = index + 1
If index > UBound(imgtour) Then index = 0

[opus]

I assume you have named all your pictures like: "smallpics\pic01.jpg", the number starts at 01 and ends at max at 99.
in the commandbutton_click event routine

Dim ActualPicture as Integer
ActualPicture=CInt(Right(imgtour.Tag;2))
ActualPicture=ActualPicture+1
'You have to set the correct maximum-number of pictures in here!
If ActualPicture>99 then
  ActualPicture=1
End If
Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic" &CStr(ActualPicture) & ".jpg")

imgtour.Tag = "pic" & CStr(ActualPicture)

[russow kid]

I don't quite understand what arrays are.

I understand your code opus but I get a "compile error: Expected: list separator or )" for line

ActualPicture=CInt(Right(imgtour.Tag;2))

[opus]

Sorry that should have been

ActualPicture=CInt(Right(imgtour.Tag,2))

[russow kid]

When I compile it and press the button the first time, it works. when I press it the second time I get an error "Run-time error '13': Type mismatch"

I also changed the code a little and used it as a prev button. That button works about 20 times or so, then I get the same error.

Dim ActualPicture As Integer
ActualPicture = CInt(Right(imgtour.Tag, 2))
ActualPicture = ActualPicture - 1
'You have to set the correct maximum-number of pictures in here!
If ActualPicture < 1 Then
  ActualPicture = 27
End If
Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic" & CStr(ActualPicture) & ".jpg")

imgtour.Tag = "pic" & CStr(ActualPicture)

[Doogle]

I think that you need to make sure that the leading zero is added when you get to single digits

Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic" & _
      Left$("0", 2 - Len(CStr(ActualPicture))) & CStr(ActualPicture) & ".jpg")

[Siddharth Rout]

@russow kid: post 4 ?

[russow kid]

To make the opus' code work, I actually removed the 0 in the image names and tag names so its just pic1, pic2, etc... now.

My 2 buttons are

Private Sub Next_Click()
Dim ActualPicture As Integer
ActualPicture = CInt(Right(imgtour.Tag, 2))
ActualPicture = ActualPicture + 1
'You have to set the correct maximum-number of pictures in here!
If ActualPicture > 27 Then
  ActualPicture = 1
End If
Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic" & CStr(ActualPicture) & ".jpg")

imgtour.Tag = "pic" & CStr(ActualPicture)
End Sub

Private Sub Prev_Click()
Dim ActualPicture As Integer
ActualPicture = CInt(Right(imgtour.Tag, 2))
ActualPicture = ActualPicture - 1
'You have to set the correct maximum-number of pictures in here!
If ActualPicture < 1 Then
  ActualPicture = 27
End If
Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic" & CStr(ActualPicture) & ".jpg")

imgtour.Tag = "pic" & CStr(ActualPicture)
End Sub

[Doogle]

I suggest you put the leading zeros back otherwise you'll have to perform another test before

ActualPicture = CInt(Right$(imgtour.Tag, 2))

beacuse where you have a single digit the rightmost 2 characters wont be numeric (eg Right$ ("Pic1",2) will return "c1" and will give you a type mismatch
whereas Right$("Pic01",2) will return "01" which is numeric)

[russow kid]

Thanks everyone for your help, it is now working after adding the leading 0 back in.

[Siddharth Rout]

just a suggestion. if your pictures are named as 01 to 27 then you will have to use this way to achieve what you want

Sub numberformat()
    Dim ActualPicture As Integer
    ActualPicture = 1
    MsgBox CStr(Format(ActualPicture, "00"))
    'Comment the above and uncomment the below
    'Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic" & CStr(Format(ActualPicture, "00")) & ".jpg")
End Sub

[Dungeon Keeper]

I have a button that changes a picture in a picture box, and I tried using If Then Statements to change it like so..

If imgtour.Tag = "pic01" Then
Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic02.jpg")
imgtour.Tag = "pic02"
End If

The problem is that I have 20+ If Then statements in this button, when I press the button, it cycles through every picture to the end. How can I make it "pause" at each picture until I click it again?

My knowledge of VB is pretty limited, so the most basic answers would be most appreciated

Thanks in advance,
Shawn

If imgtour.Tag = "pic01" Then
   Set imgtour.Picture = LoadPicture(App.Path & "smallpics\pic02.jpg")
   imgtour.Tag = "pic02"

   Exit Sub

End If