Duplication controle

International Français
1

Bjr
Je bute sur la duplication d’un controle ( un oval pour mon test)
Mes controles sont dans un ensemble

Voici mon code
Var ov As DesktopOval
ov = OvalTest(0)
ov.FillColor = Color.red
t = ov.Top

Var ov02 As DesktopOval
ov02 = New OvalTest(0)
ov02.Left= ov.Left + ov.Width + 100
ov02.FillColor = Color.Blue
ov02.Top = ov.Top
t = ov02.Top

… et mon nouveau controle ne s’affiche pas

Merci pour votre aide

2

A quoi correspond OvalTest(0) ? Un control set ?
et t correspond à quoi ?

Sinon ce code compile et affiche deux cercles en prenant un compte que OvalTest est membre d’un control set

Capture d’écran 2023-07-05 à 18.32.00
Capture d’écran 2023-07-05 à 18.32.06

Var ov As new OvalTest
DesktopOval(ov).FillColor = Color.red
't = ov.Top

Var ov02 As new OvalTest

DesktopOval(ov02).Left= ov.Left + ov.Width + 100
DesktopOval(ov02).FillColor = Color.Blue
DesktopOval(ov02).Top = DesktopOval(ov).Top 
't = ov02.Top
1 Like
3

je pense que avec un “new” ca irait mieux, sur cette ligne et celle de ov02
Var ov As new DesktopOval

1 Like
4

valTest(0) : c’est un controle desktopOval dans un ensemble avec le numero 0
t: c est une variable integer qui retourne le haut (le top) du control pour test

5

voici le code qui fonctionne:

Var ov02 As New OvalTest
DesktopOval(ov02).Left = OvalTest(0).Left + OvalTest(0).Width + 10
DesktopOval(ov02).FillColor = Color.Blue

Merci sebastien et jean yves

1 Like