Déterminer la position d'un UserControl dans une Form

Version imprimable

31/05/2007, 11h42
Delphi-ne

Déterminer la position d'un UserControl dans une Form

Je voudrais savoir comment, à l'intérieur du code d'un UserControl, on peut connaître sa position dans la form qui le contient.
j'ai essayé avec la propriété Ambiant à partir d'un sujet que j'avais retrouvé sur ce forum mais il ne donne pas les propriétés Top et Left
31/05/2007, 14h05
zazaraignée

Si tu as inclus les propriétés Top et Left à ton UserControl, ça ne devrait pas être un problème.
31/05/2007, 22h52
Delphi-ne

Concrêtement je rajoute 2 propriétés : UC_top et UC_left
Dans le code appelant je fais UserControl1.UC_top = UserControl1.top et idem pour left?
Ca ma semble un peu redondant ou j'ai mal compris ?
01/06/2007, 03h12
zazaraignée

Je viens de relire la question et tu dis bien

Citation:

à l'intérieur du code d'un UserControl

Je ne vois pas comment tu peux connaître d'avance la position qu'occupera ton UserControl dans une éventuelle form... 8O
01/06/2007, 11h56
parp1

zazaraignée a raison, imagine que tu veuilles ajouté deux contrôles identique?
Ils seront superposés. Galère...

La seul chose que tu peux faire c'est organiser les contrôles interne à ton Usercontrol.

Vous avez vu pour une fois j'ai répondu a un post sans l'avoir créer.. lol

Comme on dit en normandie, c'est ty qui d'viendrait a mitemp bon...
01/06/2007, 12h02
OhMonBato

Je pense qu'il y a un flou sur le but recherché. Pourrais tu expliquer ce que tu veux exactement faire de ces propriétés stp ?
01/06/2007, 13h46
Vld44

euh oui si moi j'ai compris j'ai eu le même problème :)

En fait la question est claire, à tout moment, comment savoir la position d'une instance d'ocx dans un conteneur.

Personnellement je stockerais ces valeurs dans des attributs du controle (top, left) adhoc au moment de sa création, et ce depuis l'extérieur car c'est de là qu'on peut obtenir control.left ou control.top
01/06/2007, 15h58
zazaraignée

Citation:

Envoyé par Delphi-ne

Concrêtement je rajoute 2 propriétés : UC_top et UC_left
Dans le code appelant je fais UserControl1.UC_top = UserControl1.top et idem pour left?
Ca ma semble un peu redondant ou j'ai mal compris ?

L'ajout d'une propriété et de ses méthodes Let et Get, tu dois connaître, vu que tu as créé ton contrôle. Mais les propriétés de ce que tu mets dedans ne sont pas forcément automatiquement passées à ton contrôle. Tu dois les reprogrammer. Quoique, Top et Left... plus j'y penses, devraient s'ajouter automatiquement...

Tu peux nous lister les propirétés de ton UC qui sont visible dans l'éditeur VB quand tu en place un sur un Form?
24/11/2007, 15h47
avigeilpro

Coucou.
Je ressort ce sujet non répondu car j'ai le même besoin :
Je souhaite connaitre la position du usercontrol (ou plutôt de son instance) sur la form. En effet Usercontrol.Left et Usercontrol.Top n'existent pas :cry:

J'avais pas vu qu'il y avait un autre post qui était presque similaire et dans lequel se trouvait ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Type POINTAPI
        X As Long
        y As Long
End Type
Private Type RECT
        Bottom As Long
        Left As Long
        Right As Long
        Top As Long
End Type
Private Type WINDOWPLACEMENT
        flags As Long
        Length As Long
        ptMaxPosition As POINTAPI
        ptMinPosition As POINTAPI
        rcNormalPosition As RECT
        showCmd As Long
End Type
Private Declare Function GetWindowPlacement Lib "user32" ( _
    ByVal Hwnd As Long, _
    lpwndpl As WINDOWPLACEMENT) As Long
 
Private Declare Function MoveWindow Lib "user32" ( _
    ByVal Hwnd As Long, _
    ByVal X As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal bRepaint As Long) As Long
Public FMeCoord As WINDOWPLACEMENT
 
Private Type LesCoord
        Height As Long
        Left As Long
        Top As Long
        Width As Long
End Type
 
Public MeCoord As LesCoord
 
'******************************************************************
'** la propriété ScaleMode de UserControl doit être mis à Pixels **
'** la propriété KeyPreview de UserControl doit être mis à True  **
'******************************************************************
 
Public Sub GetPlace(Hwnd As Long)
    'recuperation des coordonnées de l'UserControl posé sur le conteneur
    GetWindowPlacement Hwnd, FMeCoord
 
MeCoord.Height = FMeCoord.showCmd - FMeCoord.rcNormalPosition.Right
MeCoord.Left = FMeCoord.rcNormalPosition.Left
MeCoord.Top = FMeCoord.rcNormalPosition.Right
MeCoord.Width = FMeCoord.rcNormalPosition.Top - FMeCoord.rcNormalPosition.Left
End Sub

:oops:

24/11/2007, 16h46
ProgElecT

Salut avigeilpro
Avais tu recuperé le ZIP (que j'ai retiré hier :mrgreen:) ICI, si non je peux toujours le remettre.
24/11/2007, 20h53
avigeilpro

Non, je ne l'ai pas réccupéré.
Je n'ai pas bien compris non plus de quoi il sagissait :oops:
24/11/2007, 21h47
avigeilpro

Merci, je l'ai réccupéré, je regarderais ca plus tard ;)

bonjour,
Connaître la position d'un UC (dans le code de l'UC) dans une forme est des plus simple....
Code:

1 2 3 4 5 6 7 TP = Extender.Top LF = Extender.left 'Eventuellement connaître sont index 'Attention.. renvoi une erreur si pas d'index Ix = Extender.Index 'Eventuellement connaître sont nom Nm = Extender.Name.
L'objet Extender ne peu tout renvoyer, il faut jonglé avec Extender et UC
A+