Images

[Smarturtle]

Hey i have a whole bunch of images that i would like to include in my project. Is there a way that when a person clicks a button an image apears in the middle of the form... for each button they press. so that each image over laps the next. With out writing a whole bucnh of .show or .visible code?


thanks

[BuggyProgrammer]

change the zorder to 0 of the object, like

Picture1.ZOrder 0

will move it to topmost

[Smarturtle]

I'm not sure what you mean... i made like a file menu on top of the program... i dont even know how to bring the pic in.. what type of OLE to use.

[BuggyProgrammer]

i dont understand what you mean. post a ascreenshot

[Smarturtle]

i dont have anything to post.. lol.

okay here. I have like 8 images. They are in a folder and i want to use them in my vb project. When someone clicks a menu button i want the image to display on the form that the menu bar is on. Like under the menu bar and centerd. Then when they click another button for another image... another one pops up in that area etc etc

http://members.cox.net/alexandertheg...screenshot.jpg

[Jim Davis]

place the images inside an imagelist control, then you can create dinamycally some imageboxes, and show the pics from the imagelist inside that/them..

Private MyPicBox As PictreBox
 
Sub Trick()
 
Set MyPicBox = Form1.Controls.Add("VB.PictureBox","_MyPicBox")
 
'then you can use this like a design time created picturebox..
 
With MyPicBox
 set .Picture = ...
End With
 
End Sub

Jim.

[Smarturtle]

i cant find the image list control... where is it?

[Arc]

I get the feeling you want something simple here.


Just ad a Picturebox to the middle of your form and in each button write code like this.

Private Sub Command1_Click()
Dim Pic As New StdPicture
Set Pic = LoadPicture("C:\windows\desktop\First.jpg")
Call Picture1.PaintPicture(Pic, 0, 0, Picture1.Width, Picture1.Height)
Set Pic = Nothing
End Sub
 
Private Sub Command2_Click()
Dim Pic As New StdPicture
Set Pic = LoadPicture("C:\windows\desktop\Second.jpg")
Call Picture1.PaintPicture(Pic, 0, 0, Picture1.Width, Picture1.Height)
Set Pic = Nothing
End Sub

Where LoadPicture is the path of your picture.