Discussion :

[Carabistouilleur]

Bonjour à toutes et tous.
je voudrais tout simplement insérer une forme cercle au lieu d'un rectangle (Voir capture suivante)dans un formulaire.



Je n'ai pas trouvé mon bonheur sur le forum. Je ne souhaite accéder qu'aux propriétés de positionnement et de couleur de fond de la forme. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Me.MonCercle.BackColor = RGB(0, 0, 255)
Me.MonCercle.Left = 5 * 567 '567 twips par centimètre
Me.MonCercle.Top = 4 * 567 '567 twips par centimètre

Merci à tous.
Cordialement

[marot_r]

Bonjour.

Access ne connait pas les cercles.
Il y a une méthode pour dessiner directement sur le formulaire mais de mémoire, ça fait un sacré bout que je n'ai pas cherché à faire cela, c'est assez compliqué et potentiellement fragile.
Donc la solution la plus simple est d'utiliser l'image d'un cercle.
Tu crée un JPEG de cercle avec Paint ou un autre outil de dessin et tu affiches le JPEG.

A+

[Carabistouilleur]

Bonjour marot_r.
Merci pour cette réponse, je m'y attendais un peu. Je vais me débrouiller avec des carrés
Cordialement.

[mgascult]

Bonjour,
tout dépend de ce que vous voulez dans votre formulaire.
J'ai créé un cercle dans Paint sur un calque transparent et enregistré le fichier en .png



J'ai ensuite inséré l'image dans un formulaire au dessus d'une zone de texte et la transparence est bien gérée.



Celà peut peut être vous convenir.

Belle journée 🌞

[Carabistouilleur]

Bonjour mgascult.
Comme je l’ai précisé initialement, je souhaite pouvoir modifier la couleur de l’intérieur du cercle (plus exactement du disque) ,ainsi que modifier sa position, par le code évidemment , sachant que j’ai plusieurs dizaines de disques à gérer dans le formulaire.
Je t’envoie un code correspondant à la gestion de forme « rectangle »…

[Carabistouilleur]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub PlacementDisqVersionDPC(bNbr As Byte)
Dim bIndice         As Byte
Dim Ctrl            As Control
 
For bIndice = 1 To bNbr
    For Each Ctrl In Form_Mon_Formulaire.Controls
        If TypeOf Ctrl Is Rectangle Then
            Ctrl.Visible = True
            Ctrl.Left = (16 + ((-0.5) * bIndice)) * 567   'non testé: placement avec un pas de décalage de 5mm et une origine à 16cm
            Ctrl.Top = 8 * 567                            'non testé
            '...autres traitements concernant la couleur de Ctrl par ex
        End If
    Next
Next bIndice
 
End Sub

[mgascult]

désolé, réponse à coté