Discussion :

[gabvoir]

Bonjour,

Voila je suis en train de réaliser un jeu de bataille naval en VB orienté objet.
J'ai terminé de réaliser tous les objet et fonctions necessaire, et je m'attaque maintenant a l'interface graphique.

Seulement je ne sais pas comment faire pour lier une PictureBox a une classe que j'ai deja crée.
Par exemple j'ai une classe Bateau{num,nom,taille} je voudrais l'associer a une PictureBox sans avoir a retoucher a mes classes precedentes.
Pour que si par exemple je tape PictureBox1.Bateau.Nom cela me donne son nom.

Merci pour votre aide !

[gabvoir]

Bon et bien je vais me repondre a moi meme, histoire que cela puisse servir a d'autre

Il existe la propriété Tag sur tous les objets graphiques. On peut mettre dedans un objet de n'importe quel type !

Parfait !

Merci moi meme, et surtout les gens du chat !

@+

[ProgElecT]

Bon et bien je vais me repondre a moi meme, histoire que cela puisse servir a d'autre

Il existe la propriété Tag sur tous les objets graphiques. On peut mettre dedans un objet de n'importe quel type !

Parfait !

Merci moi meme, et surtout les gens du chat !

@+

Donc en faisant

Code :

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

Picture1.Tag = Bateau

par la suite on peux utiliser

Code :

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

MsgBox PictureBox1.Bateau.Nom

Chez moi cela ne fonctionne pas, je doit mal m'y prendre.
Peux tu nous mettre un bout de code d'exemple, cela m'intéresserait beaucoup.

[gabvoir]

oki bon voila mon bout de code, qui cree dynamiquement des picturebox

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim bati As PictureBox
 
For Each bat As Bateau In Jeu.joueur1.plateau.flotte
    bati = New PictureBox()
    bati.Name = bat.num
    bati.Tag = bat
AddHandler bati.MouseDown, AddressOf Me.bateauxMouseDown
...
    plateau_text.Controls.Add(bati)
Next

et après l’évènement sur le picturebox récupéré l'info contenu dans le tag

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
17
18
19
20
21
22
23
24
25
26
 
Private Sub bateauxMouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim pct As PictureBox = CType(sender, PictureBox)
 
        If e.Button = Windows.Forms.MouseButtons.Left Then
            If pct.Tag.xi <> 0 Or pct.Tag.yi <> 0 Then
                Me.Jeu.joueur1.plateau.supprimer_bateau(pct.Tag)
            End If
            Me.pt = e.Location
            Me.pt_save = pct.Location
        End If
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim img As Image
            Dim w As Integer, h As Integer
 
            w = pct.Width
            h = pct.Height
            img = pct.Image
            img.RotateFlip(RotateFlipType.Rotate90FlipX)
            pct.Image = img
            pct.Height = w
            pct.Width = h
 
            pct.Tag.vertical = Not pct.Tag.vertical
        End If
    End Sub

[OhMonBato]

La prochaine fois, merci de poster dans le bon forum, là tu es sur le forum VB6 et tu programmes en VB.Net...