Solved

Create Image Object at run time

Posted on 2010-11-09
3
1,138 Views
Last Modified: 2012-05-10
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?
0
Comment
Question by:wcsoctu
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 42

Expert Comment

by:pcelba
ID: 34097757
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
 
LVL 42

Accepted Solution

by:
pcelba earned 500 total points
ID: 34097786
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
 
LVL 4

Author Comment

by:wcsoctu
ID: 34098338
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

Featured Post

How Do You Stack Up Against Your Peers?

With today’s modern enterprise so dependent on digital infrastructures, the impact of major incidents has increased dramatically. Grab the report now to gain insight into how your organization ranks against your peers and learn best-in-class strategies to resolve incidents.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Microsoft Visual FoxPro (short VFP) is a programming language with it’s own IDE and database, ranking somewhat between Access and VB.NET + SQL Server (Express). Product Description: http://msdn.microsoft.com/en-us/vfoxpro/default.aspx (http://msd…
Unified and professional email signatures help maintain a consistent company brand image to the outside world. This article shows how to create an email signature in Exchange Server 2010 using a transport rule and how to overcome native limitations …
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

751 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question