Bonjour,
je fais un developpement ou j'ai 169 bouton qui on un certain backcolor au lancement de l'application
si je clic sur sur l'un de ses bouton : backcolor devient Cyan et si je reclic sur le meme boutton backcolor revient comme au debut
voici le code
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
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim CollectBtColor As Collection
        CollectBtColor = New Collection
        Dim CtrlBt As Control
        Dim BtRange As Button
        For Each CtrlBt In Me.Controls
            If TypeOf CtrlBt Is Button Then
                BtRange = CtrlBt
                Dim Name_Bt As String
                Name_Bt = BtRange.Name
                If InStr(Name_Bt, "Bt_Color_") > 0 Then
                    CollectBtColor.Add(BtRange)
                End If
            End If
        Next CtrlBt
        For Each BtRange In CollectBtColor
            AddHandler BtRange.Click, AddressOf RangeColor
        Next
    End Sub
 
    Private Sub RangeColor(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim BtRangeColor As Button
        BtRangeColor = sender
        If InStr(BtRangeColor.Name, "Bt_Color_Suited") > 0 Then
            If BtRangeColor.BackColor = Color.Khaki Then
                BtRangeColor.BackColor = Color.Cyan
            Else
                BtRangeColor.BackColor = Color.Khaki
            End If
        End If
        If InStr(BtRangeColor.Name, "Bt_Color_Off") > 0 Then
            If BtRangeColor.BackColor = Color.LightGray Then
                BtRangeColor.BackColor = Color.Cyan
            Else
                BtRangeColor.BackColor = Color.LightGray
            End If
        End If
        If InStr(BtRangeColor.Name, "Bt_Color_Pair") > 0 Then
            If BtRangeColor.BackColor = Color.DarkSeaGreen Then
                BtRangeColor.BackColor = Color.Cyan
            Else
                BtRangeColor.BackColor = Color.DarkSeaGreen
            End If
        End If
    End Sub
je voudrai crée un boutton "save"pour sauvegarder la configuration du backcolor des 169 bouton afin de les recharger lors de la réouverture de l'application.
je ne veux pas d'une auto-saugarde à la fermeture mais que ce soit l'utilisateur qui force la sauvegarde.
je débute et je n'arrive pas a comprendre les tuto sur la sérialisation.
merci pour votre aide.