Probleme de Classe (Conversion)

Version imprimable

Bonjour,

J'ai une instruction qui me permet de récupéré un élément dans une datagridview, Jusqu'ici tous va bien.
Code:

1 2 Dim z As String z = DataGridView1.Rows(x).Cells(3).EditedFormattedValue ' donne le nom du module/param
L'élément que je récupere est le nom d'une alarme en String mais aussi l'objet alarme en personne.

Je m'explique un peu. J'ai une classe Alarme avec des propriétés. Ensuite je crée des objets Alarmes (Alarme1, Alarme2, ....)

J'essaye de crée une fonction qui me renvoi l'état de l'alarme (qui est une propriété) en fonction de de la ligne de ma datagridview où je désire connaitre son état.

Voila la function :
Code:

1 2 3 4 5 6 7 8 'Fonction qui permet grace à une ligne, de chercher si une alarme a disparu ou pas. Public Function RechercheDisparue(ByVal x As String, ByVal y As Boolean) Dim z As String z = DataGridView1.Rows(x).Cells(3).EditedFormattedValue ' donne le nom du module/param y = z.Etat Return y End Function
Mon probleme est que mon z est un String et je veux qu'il deviens l'objet Alarme1 ou Alarme2 suivant ce que la ligne précédente ma donnée pour ensuite aller directement chercher la propriété état de mon objet alarme à la ligne que j'ai demander.

En gros, j'ai besoin de convertir un String en objet sans passe par une boucle IF interminable car j'ai plus de 200 alarmes dans mon tableau.
Alors pourquoi faire tous sa ? Parce que j'ai un trie dans ma datagridview et que j'ai pas de colonne qui indique directement l'état et j'ai pas le droit d'en mettre.

Merci d'avance pour vos solutions et dsl si je me suis mal expliqué, c'est assez dur a expliquer !!C

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function RechercheDisparue(ByVal x As String, ByVal y As Boolean)
        Dim z As String
        z = DataGridView1.Rows(x).Cells(3).EditedFormattedValue ' donne le nom du module/param
        If z = "Alarm1" Then
            y = Alarm1.Disparue
        ElseIf z = "Alarm2" Then
            y = Alarm2.Disparue
        ElseIf z = "Alarm3" Then
            y = Alarm3.Disparue
        ElseIf z = "Alarm4" Then
            y = Alarm4.Disparue
        ElseIf z = "Alarm5" Then
            y = Alarm5.Disparue
        ElseIf z = "Alarm6" Then
            y = Alarm6.Disparue
        End If
        Return y
    End Function

Voila la version qui marche mais qui est chiante a faire pour 6 alarmes alors j'imagine meme pas pour 1000 alarmes ce que je dois faire d'ici 2 semaines !!

Merci d'avance pour vos solutions

28/03/2013, 16h25
ed73170

Bonjour,

Tu peux peut-être utiliser la propriété Tag, elle te permet d'associer des données supplémentaires à chaque cellule, et comme elle est de type object, tu peux y mettre ce que tu veux.

Lors du remplissage de ta grille, tu mets tes objets Alarm dans le Tag de la cellule qui t'intéresse, puis lors de la lecture, tu les récupères.
29/03/2013, 08h44
dragondumond

Pas mal l'idée, je la retiens pour d'autre procédure mais pour le programme que j'ai envie de faire, sa résoudra mon souci qui est de convertir un String en Class Alarm et par la meme occasion, simplifié mon programme pour qu'il tient sur 3 instructions au lieu de 1000 si j'ai une usine de 1000 alarmes !!

Je vouderai une function de ce type :

Code:

1
2
3
4
5
6
7
8
9
    Public Function RechercheDisparue2(ByVal x As String)
        Dim z As String
        Dim y As Boolean
        Dim w As Alarm
        z = DataGridView1.Rows(x).Cells(3).EditedFormattedValue ' donne le nom du module/param
        w = CObj(z)
        y = w.Disparue        
        Return y
    End Function

Mais j'arrive pas a convertire mon z="Alarm1" en Class pour ensuite l'utiliser dans le bute de chercher une propriété de la Class Alarm

29/03/2013, 11h52
rv26t
Bonjour,

Quand tu cré tes objets alarme il faut les placer dans un dictionnaire (Dictionary(Of String, alarme)) comme je te l'indiquai dans ce post http://www.developpez.net/forums/d13...e/#post7199395
Définition dico

Code:

public DicoAlarme As Dictionary(Of String, alarme) = New Dictionary(Of String, alarme)

Quand tu crés tes alarmes tu les rajoutes dans le dictionnaire. Ainsi tu as une liste de toutes tes alarmes.

Après tu peux l'utiliser ainsi
Code:

1 2 3 Public Function RechercheDisparue2(ByVal x As String) as boolean Return DicoAlarm(DataGridView1.Rows(x).Cells(3).EditedFormattedValue).Disparue End Function
Si x vaut 2 cela équivaut à DicoAlarm(alarme2).Disparue.

A+, Hervé.
29/03/2013, 14h23
dragondumond

Merci bcp je regarde sa !!