Create Image Object at run time

I want to add images as needed at run time to a form.  I tried:
x=createobject('Image')
x.name='image2'
x.picture='c:\discipline.bmp'
x.left=25
x.Top=25
x.height=20
x.Width=20
x.visible=.t.

No error is generated nor does my image appear.
Can this be done?
LVL 4
wcsoctuAsked:
Who is Participating?
 
pcelbaConnect With a Mentor Commented:
You may also create object in the screen window (same code is possible to use in any other form):

_screen.AddObject('image1','Image')
_screen.image1.Top = 0
_screen.image1.Left = 0
_screen.image1.height = 300
_screen.image1.width = 300
_screen.image1.stretch = 2
_screen.Image1.Picture = 'c:\discipline.bmp'
_screen.image1.visible = .t.

Open in new window

0
 
pcelbaCommented:
The Image object must be on some form, try e.g. following code:


PUBLIC oForm
oForm = CREATEOBJECT("ImageForm")
oForm.Visible = .T.
*oForm.Image2.PictureVal = cImg.exp  && Image in Memo field
oForm.Image2.Picture = 'c:\discipline.bmp'


DEFINE CLASS ImageForm AS Form
  
  ADD OBJECT Image2 AS Image ;
      WITH Top = 0, Left = 0, ;
           Height = 300, Width = 500, ;
           Stretch = 2

ENDDEFINE

Open in new window

0
 
wcsoctuAuthor Commented:
Using your second example with thisform instead of _screen I was able to accomplish it.  I want to add an unknown number of images at run time.   Thank You
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.