How can I Clear an Image during run time (Newbie)

[Tomservo]

The Image box is being populated via an If & Then statement, but I need to clear it before the condition changes.
Are there any 'one-liners' out there?

[Dököll]

Greetings, Tomservo!

You may be closer than you think. Since you if statement produces the image, why no set visibility to true/false, whereby replacing one image with another.

Example:

If this and that Then
MyPic0.Visible = True
MyPic1.Visible = False

ElseIf this and that Then
MyPic0.Visible = False
MyPic1.Visible = True

ElseIf this...
My...
My...

Else

MsgBox "Darn!"

End If

If this does not do it for you, post your if statement so we can have a look.

Have fun :-)

Dököll

[Tomservo]

Greetings, Tomservo!

You may be closer than you think. Since you if statement produces the image, why no set visibility to true/false, whereby replacing one image with another.

Example:

If this and that Then
MyPic0.Visible = True
MyPic1.Visible = False

ElseIf this and that Then
MyPic0.Visible = False
MyPic1.Visible = True

ElseIf this...
My...
My...

Else

MsgBox "Darn!"

End If

If this does not do it for you, post your if statement so we can have a look.

Have fun :-)

Dököll

Thanks Dököll! I'll get on it now.

[devonknows]

The Image box is being populated via an If & Then statement, but I need to clear it before the condition changes.
Are there any 'one-liners' out there?

Also a quick hint, if your actually trying to clear the picture and not just make it non-visible, then use this code,

Pic1.Picture = Nothing

That will clear the image box so you can use something like this i guess...

Pic1.Picture = LoadPicture("C:\MyPictures\MyPic.jpg")

Im not to sure which one you meant so i thought i would just give a little hint aswell :D

Kind Regards
Devon.

[Tomservo]

Also a quick hint, if your actually trying to clear the picture and not just make it non-visible, then use this code,

Pic1.Picture = Nothing

That will clear the image box so you can use something like this i guess...

Pic1.Picture = LoadPicture("C:\MyPictures\MyPic.jpg")

Im not to sure which one you meant so i thought i would just give a little hint aswell :D

Kind Regards
Devon.

Thanks Devon,
That was what I meant, the first suggestion made it invisible but didn't clear it.
This one clears the image but for some reason it stays clear and won't allow it to be populated again.
Have a look at the code (I know it's amateurish but I'm getting there...)

Private Sub BackToMenu_Click()
 
    Image1 = Nothing
    SingleMenu.Show
 
End Sub
Private Sub Form_Load()
 
    If (SingleMenu.Command1) = True Then
    Image1 = LoadPicture("C:\Frames\f1.gif")
 
ElseIf (SingleMenu.Command2) = True Then
    Image1 = LoadPicture("C:\Frames\f2.gif")
 
ElseIf (SingleMenu.Command3) = True Then
    Image1 = LoadPicture("C:\Frames\f3.gif")
 
ElseIf (SingleMenu.Command4) = True Then
    Image1 = LoadPicture("C:\Frames\f4.gif")
 
ElseIf (SingleMenu.Command5) = True Then
    Image1 = LoadPicture("C:\Frames\f5.gif")
 
ElseIf (SingleMenu.Command6) = True Then
    Image1 = LoadPicture("C:\Frames\f6.gif")
End If
 
End Sub

Whats happening is, I can choose any picture from the Menu (command buttons on a previous form) and they load, but then when I go back to the Menu and choose a different one, the original one remains loaded.

regards
Tom

[Dököll]

Good work Devon, thanks for adding your code, Tom...

Tom use Devon's and my idea to set visibility the way you want, should get you covered. Also you can set up a dummy frame or snapshot the pulls up nothing:

(1) Use the paint program that comes with Win XP or previous versions
(2) Create a blank image and use as background, if Nothing background shows

What this means is, you want to select Pic1 = "Nothing", be sure to also set vivibilty to your background image (dummy image) to True. You should be able to show other snapshots as needed.

See if that works out...

[Dököll]

I should perhaps mention you can also use your code, if you prefer. Still use a background:

 
If (SingleMenu.Command1) = True Then
    Image1 = LoadPicture("C:\Frames\f1.gif")
 
ElseIf (SingleMenu.Command1) = False Then
    Image1 = LoadPicture("C:\Frames\MyBackground.gif")
 
ElseIf...
 
 

Where you background is again, a blank snapshot...

[Tomservo]

Ok Thanks for your trouble Guys
I'll play with that this evening.
Best regards
Tom

[Tomservo]

I should perhaps mention you can also use your code, if you prefer. Still use a background:

 
If (SingleMenu.Command1) = True Then
    Image1 = LoadPicture("C:\Frames\f1.gif")
 
ElseIf (SingleMenu.Command1) = False Then
    Image1 = LoadPicture("C:\Frames\MyBackground.gif")
 
ElseIf...
 
 

Where you background is again, a blank snapshot...

Hi Dököll, Me again,
No matter what I try of your suggestions it seems to remain either with the same image, or if I use the 'Nothing' parameter, blank.
I found this link,

http://support.microsoft.com/?id=814675

left by someone who has the same problem, the trouble is the solution explained is a bit over my head at the moment...
I'd appreciate your view on this if you could give it a look.
As an alternative...as ending the program clears the memory, is there a way of ending the Imagebox and reinstating it from code?
regards Tom

[Dököll]

Hey Tom!

I will read http://support.microsoft.com/?id=814675 momnetarily. Try having the background as the first image to come up, in which case it isn't really an image bu a blank. Sorry for your troubles, wil give it a go with your code, see what the deal is, seems to work with my code.

In a bit!

[Dököll]

Why is SingleMenu important to your code?

Are you hoping when the form loads for the image area to not have an image, thus only adding an image if a Command button is pressed?

Dököll

[Dököll]

You are correct, Tom, regardless our efforts, the code does not seem to work. I wanted to offer a simpler solution:

 
Private Sub Command1_Click()
    Image1.Visible = True
    Image2.Visible = False
    Image3.Visible = False
End Sub
 
Private Sub Command2_Click()
    Image2.Visible = True
    Image3.Visible = False
    Image1.Visible = False
End Sub
 
Private Sub Command3_Click()
    Image3.Visible = True
    Image2.Visible = False
    Image1.Visible = False
End Sub
 
 

Assuming you do have the Command buttons mentioned in your code:

(1) You would need to layer your Image locations, thus Image1 linked to f1.gif, Image2 linked to f2.gif and so on...

(2) The above code would work to make visible each framed image.

I will take another look at your code to see what's up...

Talk soon!

[Tomservo]

Why is SingleMenu important to your code?

Are you hoping when the form loads for the image area to not have an image, thus only adding an image if a Command button is pressed?

Dököll

Yes, the program is a Windowframe pricing prog; you choose a style of Windowframe on the form named "SingleMenu" via a command button, and that brings up the calculating form with the correct Windowframe displayed.
Having priced one frame, I need it to be possible to price another, possibly different Windowframe, so I programmed a button to take me back to the 'Single section' Windowframe Menu...it's all working fine except for this!

[Tomservo]

You are correct, Tom, regardless our efforts, the code does not seem to work. I wanted to offer a simpler solution:

 
Private Sub Command1_Click()
    Image1.Visible = True
    Image2.Visible = False
    Image3.Visible = False
End Sub
 
Private Sub Command2_Click()
    Image2.Visible = True
    Image3.Visible = False
    Image1.Visible = False
End Sub
 
Private Sub Command3_Click()
    Image3.Visible = True
    Image2.Visible = False
    Image1.Visible = False
End Sub
 
 

Assuming you do have the Command buttons mentioned in your code:

(1) You would need to layer your Image locations, thus Image1 linked to f1.gif, Image2 linked to f2.gif and so on...

(2) The above code would work to make visible each framed image.

I will take another look at your code to see what's up...

Talk soon!

Layering!!... I never thought of that! that could work, I'll give it a go in the morning.
Thankyou!
regards Tom

[Dököll]

Quite welcome, Tom...

[Dököll]

Greetings Tom!

This should get you going. Slight modification to the code:

 
'BG ::Specific to C:\Frames\Background.gif"
'Image1 ::Specific to Image1 = LoadPicture("C:\Frames\f1.gif") in your code
'Image2 ::Specific to Image1 = LoadPicture("C:\Frames\f2.gif") in your code
'Image3 ::Specific to Image1 = LoadPicture("C:\Frames\f3.gif") in your code
 
 
Private Sub Command1_Click()
    BG.Visible = False
    Image1.Visible = True
    Image2.Visible = False
    Image3.Visible = False
End Sub
 
Private Sub Command2_Click()
    BG.Visible = False
    Image1.Visible = False
    Image2.Visible = True
    Image3.Visible = False
End Sub
 
 
Private Sub Command3_Click()
    BG.Visible = False
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = True
End Sub
 
'this is where you would need to revert to blank image as needed (C:\Frames\Background.gif)
Private Sub RefreshMenu_Click()
  Unload Me
  SingleMenu.Show
End Sub
 
 
'form loads with blank background snapshot set to true for visibility
Private Sub Form_Load()
 
BG.Visible = True 'Specific to C:\Frames\Background.gif"
 
End Sub
 
'Note: you should change the Image frame  that will be used for background to BG in Name: so it is clear that Image1 = f1.gif, an so on...
 
 

Keep the gif files the way they are. If you want, consider creating images using .bmp extension, better resolution since you have a lot of snapshots to load.

The gif files you now have should not be (re)saved as bmp since the are already in that format, will look about the same, try for next time.

Have fun, Tom, and good luck...

Dököll

[Tomservo]

Greetings Tom!

This should get you going. Slight modification to the code:

 
'BG ::Specific to C:\Frames\Background.gif"
'Image1 ::Specific to Image1 = LoadPicture("C:\Frames\f1.gif") in your code
'Image2 ::Specific to Image1 = LoadPicture("C:\Frames\f2.gif") in your code
'Image3 ::Specific to Image1 = LoadPicture("C:\Frames\f3.gif") in your code
 
 
Private Sub Command1_Click()
    BG.Visible = False
    Image1.Visible = True
    Image2.Visible = False
    Image3.Visible = False
End Sub
 
Private Sub Command2_Click()
    BG.Visible = False
    Image1.Visible = False
    Image2.Visible = True
    Image3.Visible = False
End Sub
 
 
Private Sub Command3_Click()
    BG.Visible = False
    Image1.Visible = False
    Image2.Visible = False
    Image3.Visible = True
End Sub
 
'this is where you would need to revert to blank image as needed (C:\Frames\Background.gif)
Private Sub RefreshMenu_Click()
  Unload Me
  SingleMenu.Show
End Sub
 
 
'form loads with blank background snapshot set to true for visibility
Private Sub Form_Load()
 
BG.Visible = True 'Specific to C:\Frames\Background.gif"
 
End Sub
 
'Note: you should change the Image frame  that will be used for background to BG in Name: so it is clear that Image1 = f1.gif, an so on...
 
 

Keep the gif files the way they are. If you want, consider creating images using .bmp extension, better resolution since you have a lot of snapshots to load.

The gif files you now have should not be (re)saved as bmp since the are already in that format, will look about the same, try for next time.

Have fun, Tom, and good luck...

Dököll

Thankyou for all your hard work Dököll
Best regards
Tom

[Tomservo]

Thankyou for all your hard work Dököll
Best regards
Tom

Hi Dököll!
I'm pleased as punch to report it's working fine! Thanks again.

I put all the code in you suggested and at first it didn't work, then I realised I'd left out the "Unload Me" statement and it burst into life!...

Then I started thinking... I hadn't used that before, so I put it with my original code (below)...and that works too! (my brain hurts now)

I won't forget that line in a hurry!
Thankyou Thankyou

[code]
Private Sub BackToMenu_Click()

Unload Me
SingleMenu.Show

End Sub
Private Sub Form_Load()

If (SingleMenu.Command1) = True Then
Image1 = LoadPicture("C:\Frames\f1.gif")

ElseIf (SingleMenu.Command2) = True Then
Image1 = LoadPicture("C:\Frames\f2.gif")

ElseIf (SingleMenu.Command3) = True Then
Image1 = LoadPicture("C:\Frames\f3.gif")

ElseIf (SingleMenu.Command4) = True Then
Image1 = LoadPicture("C:\Frames\f4.gif")

ElseIf (SingleMenu.Command5) = True Then
Image1 = LoadPicture("C:\Frames\f5.gif")

ElseIf (SingleMenu.Command6) = True Then
Image1 = LoadPicture("C:\Frames\f6.gif")
End If
[code]

[Dököll]

Fantastic, I am glad...Good luck with the project, Tom :-)

In a bit!

Dököll