Discussion :

[william44af]

bonjour, encore moi !

Je souhaite pouvoir travailler sur des instances de picturebox.

en fait, je place des pions sur une "carte", chaque pion est représenté à travers une picturebox placée sur la carte.

dans le tutoriel VB.net, il est très bien expliqué que l'indexation d'objets de VB6 n'est plus possible. ily est proposé une solution alternative (pour des textbox) :

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
 
Dim Textes(8) As TextBox           
 
'puis dans le form_load
Textes(0) = TextBox0
Textes(1) = TextBox1
Textes(2) = TextBox2
... 
'ensuite, on peut bien utiliser la syntaxe de VB 6.0
 
Dim i As integer
For i = 0 To 8
 Dim MyTexte As Integer= Textes(i).Text
..
Next

J'ai donc suivi la procédure décrite, mais cela ne fonctionne pas comme je veux : les objects (textbox0, textbox1 doivent être créés en préalable "à la main".

sinon, des que j'essaye Mypicture(1).image = ....
il m'indique ne pas trouver d'objet à manipuler...

Le problème, je pense est que cette déclaration : Dim mypicturebox(8) As picturebox
créé des objets "virtuels" : il n'existe aucun objet réel dans lequel placer une image sans une affectation longue (text(1)=textbox1, text(2)=textbox2, etc...)
j'ai plus de 300 picturebox possibles....

je voudrais donc créer en code au fil du programme ces nouvelles instances "réelles"...

pouvez vous me donner une piste de réflexion ?
ou corriger ma méthode ?

pour rappel, je veux pouvoir manipuler ces objets les uns après les autres grace à un for... next et qu'ils réagissent à des évènements communs (grâce à Handle je pense mais je suppose que ce sera ma question suivante !)


Merci d'avance.

[wallace1]

Bonsoir,

Dur dur de passer de VB6 à VBNet, on se reds compte que les percepts de l'objet ne sont pas du tout acquis !

Breff...on va éviter le longs discours puisque tu as su identifier avec tes mots l'origine du problème :

Code :

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

1
2
 
Dim pcbs As New List(Of PictureBox)

Tu ajoutes autant de pictureBox que tu veux :

Code :

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

1
2
3
4
5
6
7
 
dim pcb1 as new picturebox
pcbs.add(pcb1)
dim pcb2 as new picturebox
pcbs.add(pcb2)
'.....
'etc....

Tu travailles avec l'instance :

Code :

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

1
2
pcbs(0).image = new bitmap(.......)
pcbs(1).image = new bitmap(.......)

Il existe d'autres façons de faire mais on va dire que cela colle avec tes interrogations donc j'essai de rester dans le contexte.

A+

[william44af]

argh....

je dois m'en sortir sans pouvoir déguster cela.

il me tarde de revenir de cette $£*%@&# de soirée !


tout s'éclaire... ou presque.

mais je vais tester d'abord en rentrant et poser mes questions s'il en reste.

mille milliards de mercis !

[william44af]

re bonjour,


cela
je comprends donc ce que tu me proposes mais...

Code :

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

1
2
3
4
5
6
7
 
dim pcb1 as new picturebox
pcbs.add(pcb1)
dim pcb2 as new picturebox
pcbs.add(pcb2)
'.....
'etc....

implique que je tape chaque ligne pour pcb1, pcb2... j'en ai peut être trois cent !

est il possible d'automatiser ceci ?
je suppose que je peux pas créer de nom d'objet avec une variable ?



par ailleurs, cette déclaration DIM que je fais dans form1.load (n'est ce pas ? ) ne limite-t-elle pas la portée de ces instances en limitant l'accès d'autres procédures ? je peux les manipuler dans d'autres sub... ?

[wallace1]

Bonjour,

Je ne saisi pas bien l'intérêt ou le but de tout cela mais pour répondre à tes questions :

Si tu souhaites accéder à ta liste de pictureBox au niveau de ta classe Form1 alors tu la déclares ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Class Form1
    Dim pcbs as new list(of picturebox) ' Ou Private pcbs as new list(of picturebox) c'est une portée au niveau de la classe uniquement
 
    Sub New()
        InitializeComponent()
        'Tu n'oublies pas sur cette ligne d'instancier des PictureBox et de les ajouter à ta liste "pcbs" !!!!
    End sub
 
End class

Ton problème de portée est un synonyme de méconnaissance des fondamentaux de la programmation :

Si tu veux accéder à ta liste depuis n'importe quelle classe de ton projet alors tu places cette dite liste avec un attribut Shared dans une autre classe, exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Class LaListe
 
    Public shared pcbs as list(of picturebox)
 
        Shared sub new()
            pcbs = new  list(of picturebox)
        end sub
 
end class

Pour palier au problème de la redondance de code, il faut créer tes PictureBox dynamiquement tout en gardant à l'esprit qu'un contrôle quel qu'il soit nécessite qu'on lui affecte :

- un nom
- une taille (utile pour une pictureBox)
- et surtout un abonnement dynamique à au moins un événement : l’événement Click te sera fort utile si tu as besoin plus tard d'effectuer une action lorsque l'utilisateur clic sur une de ces PictureBox préalablement ajouté sur un formulaire !!!

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
 
Public Class Form1
    Private pcbs as new list(of picturebox)
 
    Sub New()
        InitializeComponent()
        InitPcbs
    End sub
 
    private sub InitPcbs
        for i% = 0 to 299
            Dim pcb as new picturebox With {.Name = "Pbx" & i.tostring, .Size = New Size(20, 20)}
            Addhandler pcb.Click, AddressOf pcb_Click
            pcbs.Add(pcb)     
        next
    end sub
 
    Private Sub pcb_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim pbx as PictureBox = Trycast(sender,PictureBox )
        Msgbox(pbx.name) ' Si tu places un jour la picturebox sur ton form1 alors lorsque tu cliqueras dessus ca retournera le nom de la pcb qui a été cliqué !
    end sub
 
End class

A+

[william44af]

oui, la route est longue...



Mais ce sont les seuls aspects "difficiles" que j'ai à gérer : le reste sera "simplement" de l’algorithme...

je crois que cette fois ça marche !


jusqu'à la prochaine fois, bien sûr !


merci pour ton aide précieuse.