Hi Jeffrey,
How about something like (untested):
IF SEEK(rcode)
local loShape
SCAN WHILE jo_route2->routecode = rcode
objname = ('T' + jo_route2->locpost)
Thisform.Cnt1.AddObject(objname,"Shape")
loShape = eval('Thisform.Cnt1.' + objname)
with loShape
.Left = jo_route2->posx
.Top = jo_route2->posy
.Visible = .T.
.Curvature = 10
.FillColor = RGB(255,0,0)
.FillStyle = 0
.Height = 9
.Width = 8
.ToolTipText = ALLT(STR(.Left)) + ',' + ALLT(STR(.Top))
endwith
loShape = .null.
ENDSCAN
ENDIF
Cheers,
Andrew
>hi nadya,
>
>here's the code
>
>IF SEEK(rcode)
> SCAN WHILE jo_route2->routecode = rcode
> objname = ('T' + jo_route2->locpost)
> Thisform.Cnt1.AddObject(objname,"Shape")
>
> * i want to access the created object in this section
>
> This.Left = jo_route2->posx
> This.Top = jo_route2->posy
> This.Visible = .T.
> This.Curvature = 10
> This.FillColor = RGB(255,0,0)
> This.FillStyle = 0
> This.Height = 9
> This.Width = 8
> This.T001.ToolTipText = ALLT(STR(.T001.Left)) + ',' + ALLT(STR(.T001.Top))
> ENDSCAN
>ENDIF
If we were to introduce Visual FoxBase+, would we be able to work from the dotNet Prompt?
From Top 22 Developer Responses to defects in Software
2. "It’s not a bug, it’s a feature."
1. "I thought I fixed that."
All my FoxTalk and other articles are available on my
web site.
Unless specifically identified otherwise, anthing posted here is purely my opinion and may or may not reflect the policies or practices of Microsoft.