bonjour j'ai créer 4 boutons:
le premier sous le nom "dés" affiche dans un label un numero de facon random de 2 a 12
le 2eme"bouton dynamique" permet de créer des boutons de facon dynamique ayant comme text = un numero de (2 a 12 ) de facon random ,voici le code
le troisieme " colorier" permet de colorier les boutons rouge bleu vert jaune
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 Sub ressources() Dim MatRes(6, 6) As String Dim MatCases(6, 6) As String Dim indiceCases As String Dim objRandom As New Random() Dim num() As String = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12} Dim q(6, 6) As Button Dim x As Integer = 454 Dim y As Integer = 202 Dim lieu As Point For i As Integer = 0 To 6 For j As Integer = 0 To 6 q(i, j) = New Button() lieu.X = x lieu.Y = y q(i, j).Location = lieu q(i, j).Size = New Drawing.Size(30, 30) q(i, j).Name = "numero" + i.ToString + j.ToString q(i, j).Text = num(objRandom.Next(0, 12)) indiceCases = q(i, j).Text MatCases(i, j) = indiceCases q(i, j).BackColor = Color.Gray q(i, j).Visible = True Me.Controls.Add(q(i, j)) x += 100 Next x = 454 y = y + 97
ce que je vous demande c'est en cliquant sur le bouton 4 "chercher" j'effectue une recherche afin de trouver les boutons ayant comme text le mm numero que celui affiché par le label (resultat du lancement de dés)
et par suite si le numero trouver est colorier en bleu il affiche bleu
si c'est jaune il affiche jaune si c'est rouge il affiche rouge
si c'est vert il affiche vert
Partager