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

**PoZZyX** · 12/05/2006, 15h31

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 :

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

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 :

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

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

**behe** · 12/05/2006, 16h09

salut,
ça correspond à quoi ton top dans

Code :

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

1
2
 
cmd_effacer.Top = top

?

**PoZZyX** · 12/05/2006, 16h39

17

, lol j'ajoute des textbox sur la meme ligne (mais plus a gauche) et elles sont visibles

**behe** · 12/05/2006, 17h19

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

**PoZZyX** · 12/05/2006, 17h23

Plus de détail :

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
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

**PoZZyX** · 12/05/2006, 17h28

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.

**behe** · 12/05/2006, 17h28

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é