[VB.net 2005] Récuperer image resources + bouton dynamique

Version imprimable

Bonjour Bonjour,

Je créé via code des boutons et j'aimerais que ces boutons aie une image contenue dans les ressources du projet.

Une idée comme y accéder ?

J'essaie avec ça mais je trouve pas :

Code:

cmd_bouton.image = Resources.???

Suite résolue :
De plus, j'ai un autre léger problème. Je comprend pas pourquoi mon bouton ne veut pas s'afficher du tout :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim cmd_effacer AsNew Button cmd_effacer.Left = 480 cmd_effacer.Top = top cmd_effacer.Text = "" cmd_effacer.Tag = ligne.Item(0) cmd_effacer.FlatStyle = FlatStyle.Flat cmd_effacer.Width = 22 cmd_effacer.Height = 22 cmd_effacer.Visible = True Me.Controls.Add(cmd_effacer)
Pourtant me semble pas qu'il manque qqchose...

Merci d'avance pour votre aide

12/05/2006, 16h09
behe
salut,
ça correspond à quoi ton top dans
Code:

1 2 cmd_effacer.Top = top
?
12/05/2006, 16h39
PoZZyX

17 ;), lol j'ajoute des textbox sur la meme ligne (mais plus a gauche) et elles sont visibles
12/05/2006, 17h19
behe

bizarre, ton code marche tres bien pour moi. Je récupère bien n boutons avec n valeurs aléatoires de top. Avec la propriété top tu ne superposerais pas les boutons les uns sur les autres ou que tes boutons ne sont pas derrieres tes textbox?
edit : connaissais pas la propriété top désolé pour la question d avant :oops:

Plus de détail : ;)

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

ForEach ligne In categorie.Tables(0).Rows
Dim txt_description AsNew TextBox
Dim txt_ordre AsNew TextBox
Dim opt_defaut AsNew RadioButton
Dim cmd_effacer AsNew Button
txt_description.Left = 150
txt_description.Top = top
txt_description.Text = ligne.Item(1)
txt_description.Tag = ligne.Item(0)
txt_description.BorderStyle = BorderStyle.FixedSingle
txt_description.Width = 245
txt_description.Height = 21
txt_description.Name = "txt_description" & ligne.Item(0)
Me.Controls.Add(txt_description)
txt_ordre.Left = 400
txt_ordre.Top = top
txt_ordre.Text = ligne.Item(2)
txt_ordre.Tag = ligne.Item(0)
txt_ordre.BorderStyle = BorderStyle.FixedSingle
txt_ordre.Width = 45
txt_ordre.Height = 21
txt_ordre.TextAlign = HorizontalAlignment.Center
txt_ordre.Name = "txt_ordre" & ligne.Item(0)
Me.Controls.Add(txt_ordre)
opt_defaut.Left = 475
opt_defaut.Top = top - 2
If ligne.Item(3).ToString = "1"Then
opt_defaut.Checked = True
Else
opt_defaut.Checked = False
EndIf
opt_defaut.Tag = ligne.Item(0)
opt_defaut.FlatStyle = FlatStyle.Flat
opt_defaut.Name = "opt_defaut" & ligne.Item(0)
Me.Controls.Add(opt_defaut)
cmd_effacer.Left = 480
cmd_effacer.Top = top
cmd_effacer.Text = ""
cmd_effacer.Tag = ligne.Item(0)
cmd_effacer.FlatStyle = FlatStyle.Flat
cmd_effacer.Width = 22
cmd_effacer.Height = 22
cmd_effacer.Visible = True
Me.Controls.Add(cmd_effacer)
AddHandler cmd_effacer.Click, AddressOf cmd_effacer_Click
top = top + 24
Next

Les textbox s'affichent correctement, les boutons radios également, il n'y a que les boutons qui sont invisibles :S

12/05/2006, 17h28
PoZZyX

J'ai trouvé lol grave erreur stupide.

Le bouton était en fait non pas caché sous le bouton radio, mais sous l'espace ou le texte du bouton radio est sensé aller.

Donc moi je voyais text = "", je pensais pas qu'il attribuerait une partie blanche à coté.

Merci quand meme de ton aide. :D
12/05/2006, 17h28
behe

j ai testé ton code : les boutons sont cachés derrieres les radiobuttons. Donne une largeur à tes radioButtons et calcules le point d ancrage du bouton
edit : gah grillé
12/05/2006, 17h29
PoZZyX

Je t'ai devancé ;)

Sinon sait tu comment charger l'image depuis une resource ?
12/05/2006, 17h32
behe

tu peux pas utilisé une imageListe?
12/05/2006, 17h35
PoZZyX

je trouvais plus simple via resources mais oui je pourrais utiliser une imagelist