Discussion :

[domisimo]

Bonjour,
nouveau sur VB Express 2008 (ancien VB6, niveau amateur)
Je ne sais pas si j'ai bien cherché dans les archives du forums, mais je n'ai pas trouvé avec "création dynamique controle". Merci de me guider pour les autres fois !
après la création d'une PictureBox, je tente de l'afficher sur l'écran via l'extrait de code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Class Form1
   Public Pbx As New PictureBox
   ...
   Private Sub AfficherNord()
      ...
      Pbx.Top = 200
      Pbx.Left = 100
      Pbx.Visible = True
      Pbx = ImageList1.Images(0) ' l'image existe, utilisée ailleurs
      ...

rien ne cloche quand je lance le programme, mais je ne vois jamais rien à l'écran.
Je loupe forcément quelque chose d'évident, mais n'arrive pas à mettre le doigt dessus. J'ai essayé Pbx.Refresh() sans résultat.
En plus de m'aider, pourriez-vous m'indiquer comment j'aurai du aborder ce problème?

D'avance merci
Dominique

[domisimo]

Correctif...

évidemment, à force d'essayer tout ce qui me vient à l'esprit, j'ai mal rétabli le code initial!
il faut lire bien entendu, et là pas de message d'erreur, mais toujours rien à l'écran!

Code :

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

1
2
 
      Pbx.Image = ImageList1.Images(0) ' l'image existe, utilisée ailleurs

Désolé,
Dominique

[domisimo]

FeedBack,

Après avoir ajouté:

Code :

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

1
2
 
      Me.Controls.Add(Pbx)

mes affaires ont commencé à aller mieux!
Mais je cherche toujours dans l'aide en ligne l'endroit où j'aurai pu trouver l'information
Notez, que j'avais déjà essayé ce code dans mon projet principal, mais ça n'avait rien donné. C'est en essayant d'isoler mon problème dans un projet séparé que les choses ont commencé à se décanter. Cà, plus une info relative à VB Express 2005 trouvé avec Google.
La séquence exacte qui fonctionne est donc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Class Form1
   Public Pbx As New PictureBox
   ...
 
   Private Sub AfficherNord()
      ...
      Pbx.Top = 50
      Pbx.Left = 50
      Pbx.Width = 71
      Pbx.Height = 95
      Pbx.Image = ImageList1.Images(0)
      Me.Controls.Add(Pbx)

Désolé pour le bruit!
Dominique