Objet graphique VB dans un objet perso ?

Question

Bonjour, 
Peut-on utiliser un objet (graphique) Visual Basic dans un objet propre à son programme ?
ex: je voudrai créer un objet "feux de carrefour" qui contiendrait 3 objets graphique VB "OvalShape" que je mettrai successivement à vert/noir, orange/noir et rouge /noir.
Le but étant de pourvoir copier cet objet en plusieurs exemplaires et de créer une "méthode" pour gérer plus facilement le changement d'état.

ucfoutu · Answer

Bonjour,
Oui
Et de manière différente selon ton outil de développement, que tu n'as pas précisé. (tu es ici dans la section générale de Visual Basic, qui comprend plusieurs sous-forums distincts).

Phil_95 · Answer

J'utilise Visual Basic Express 2010.

Phil

ucfoutu · Answer

Je déplace donc ta discussion vers le sous-forum VB.Net (ton environnement de développement) et laisse la main à un vb.nettiste (ce que je ne suis pas).

cgsi3 · Answer

Bonsoir Phil_95

Difficile d'appréhender comment ton objet "feux de carrefour" est défini précisément.

Je me suis cependant lancé dans un petit exercice pour afficher plusieurs "feux de carrefour" dans un PictureBox

Public Class Oval
    Public Couleur As Color = Color.Green
    Public Position As Point
    Public g As Graphics
    Public Size As Size = New Size(50, 50)

Public Sub Dessine()
        Dim redBrush As New SolidBrush(Couleur)
        Dim Rect As New Rectangle(Position, Size)
        g.FillPie(redBrush, Rect, 0.0F, 360.0F)
    End Sub

Public Sub New(ByVal e As Graphics)
        g = e
    End Sub
End Class

Public Class Feux
    Public Ampoule As New List(Of Oval)
    Public Espace As Integer = 60

Public Sub New(ByVal e As Graphics, Pos As Point)
        Ampoule.Add(New Oval(e))
        Ampoule.Add(New Oval(e))
        Ampoule.Add(New Oval(e))
        Position = Pos
    End Sub

Public WriteOnly Property Position As Point
        Set(value As Point)
            Dim Ecart As Integer = value.Y
            For Each A As Oval In Ampoule
                A.Position = New Point(value.X, Ecart)
                Ecart = Ecart + Espace
            Next
        End Set
    End Property

Public Sub Dessine()
        For Each Amp As Oval In Ampoule
            Amp.Dessine()
        Next
    End Sub

End Class

'Que l'on peut utiliser de cette facon dans une Form en ajoutant un Button :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim A As New Feux(PictureBox1.CreateGraphics, New Point(10, 50))
        A.Ampoule(0).Couleur = Color.Red
        A.Dessine()
    End Sub

Phil_95 · Answer

Merci pour cet exemple.

Mais en fait, je souhaiterai plutôt créer un modèle de signal dans la partie graphique, lui affecter les propriétés qui vont bien pour le gérer dans le programme et ensuite pouvoir copier ce modèle dans la partie graphique pour le coller aux endroits qui vont bien.

Sinon, j'ai testé le code. J'ai le problème suivant: il y a 2 ampoules rouges et une verte, au lieu de 1 rouge, 1 orange, 1 verte, et je ne vois pas comment corriger la couleur (pb entre "brush" et "color").

Enfin, je ne vois pas comment activer/désactiver les ampoules pendant l'exécution ?

Phil_95 · Answer

Est-il possible de le gérer sous forme de collection d'objets ?

1) dessiner le signal

2) definir une collection signal:
Dim signal As New collection

ajouter les ampoules déjà dessinées
signal.Add ampoule_verte
..
signal.Add ampoule_rouge

ensuite ... ?

ucfoutu · Answer

Bon ...
1) je ne connais RIEN à VB.Net
2) je ne sais pas si (comme c'est le casz sous VB6), un contrôle PictureBox est un container sous VB.Net
3) je crois (et n'en suis pas certain) qu'un contrôle Panel (sous VB.Net) :
- est un container
- qu'il peut contenir d'autres contrôles
- que l'on peut définir la propriété couleur de chacun de ces contrôles
Me trompe-je ?

cs_ShayW · Answer

Bonjour

http://msdn.microsoft.com/en-us/library/aa302342.aspx

Phil_95 · Answer

Merci pour vos réponses, mais je crois bien que ma question n'est pas comprise:

Peut-on assembler dans VB des objets graphique VB (en occurrence des "OvalShape"). L'idée est de créer le graphique "à la main" avec la boite à outils et non par du "code".
Je n'arrive pas à "coller" les fameux OvalShape dans un contener (ni les boutons d'ailleurs).

Par contre, comme il s'agit de même type d'objet (signaux) qui va se retrouver en plus de 40 exemplaires sur mon graphique, je voudrai profiter de la POO pour les gérer plus simplement.

cs_ShayW · Answer

L'idée est de créer le graphique "à la main" avec la boite à outils et non par du "code". 
Je n'arrive pas à "coller" les fameux OvalShape dans un contener (ni les boutons d'ailleurs). 

pas clair 

contener c.a.d un picturebox un panel ?

Phil_95 · Answer

Oui, c'est ça.

J'ai essayé de coller un "OvalShape" dans un "Groupbox" ou un "Panel": graphique c'est bien attaché (ça se déplace avec). Par contre dans un "Listview" ça ne marche pas.

Après, je ne sais pas comment les liés au niveau du code pour le fonctionnement du programme ?

ucfoutu · Answer

Par contre dans un "Listview" ça ne marche pas.  
 parce-que ce contrôle n'est pas un container, mais un afficheur.

cs_ShayW · Answer

Après, je ne sais pas comment les liés au niveau du code pour le fonctionnement du programme ?

Que veux tu faire ?

tu as seulement placé un ovalshape dans un control container
Si tu veux definir un feux de carrefour il faudrait definir ton 
propre control avec des méthodes pour décrire le feux de carrefour

Phil_95 · Answer

Ben oui, mais je n'ai aucune idée de comment on fait ça ...

cs_ShayW · Answer

http://msdn.microsoft.com/fr-fr/library/bb469807.aspx

Phil_95 · Answer

J'ai lu le lien. Ça m'a l'air complet.
Y'a plus qu'a tester !

Merci.

Objet graphique VB dans un objet perso ?

16 réponses

Votre réponse

Discussions similaires