Re: Rectangle anzeigen

If you have a look at DefVisible in the help file - before you create your  
object, add:

MyForm.Controls.DefVisible=0

..this will make sure that controls you create are not visible until you  
make them so (this is a state setting, so will apply to all other new  
controls, so be careful ;-) ).

On Sun, 04 Nov 2007 11:14:07 -0000, Reinhard  
<reinhard.stauder@esta-consulting.at> wrote:

> Hi,
> wenn ich diesen Programmcode ausführe, kommt nach SET V=...............
> ein grosses schwarzes Feld.
> Danach erfolgt die Positionierung.
>
> Wenn ich mehrere  Rectangle bilden möchte, bekomme ich einen sehr  
> unruhigen
> Bildschirm.
>
> Gibt es eine Möglichkeit, Rectangle zuerst zu positionieren und erst dann
> anzuzeigen?
>
>      DIM v AS Object
>      SET v =
Superbase("PL_WKS1").add(Baname$,"Rectangle")
>      v.Visible = - 1
>      v.Left = sleft%
>      v.Top = top%
>      v.Width = slen%
>      v.Height = 5
>
> Danke für Eure Tipps
> Reinhard
>
>



-- 

Hi,
wenn ich diesen Programmcode ausführe, kommt nach SET V=...............
ein grosses schwarzes Feld.
Danach erfolgt die Positionierung.

Wenn ich mehrere  Rectangle bilden möchte, bekomme ich einen sehr unruhigen 
Bildschirm.

Gibt es eine Möglichkeit, Rectangle zuerst zu positionieren und erst dann 
anzuzeigen?

     DIM v AS Object
     SET v = Superbase("PL_WKS1").add(Baname$,"Rectangle")
     v.Visible = - 1
     v.Left = sleft%
     v.Top = top%
     v.Width = slen%
     v.Height = 5

Danke für Eure Tipps
Reinhard