Déclarer une variable public dans un Sub

Version imprimable

09/04/2013, 09h58
dragondumond

Déclarer une variable public dans un Sub

Bonjour,

Je suis actuellement entrain de réaliser une procédure qui me permet d'aller récupéré dans une BDD une variable qui me permet de savoir le nombre d'alarme que j'ai sur un système, ensuite avec le nombre d'alarme i, j'essaye de déclarer i alarme grâce à ma class Alarm mais le souci est qu'avant je les déclarer manuellement dans un module mais j'ai plus le droit, bon c'est un peu compliqué alors je voudrai bien pouvoir déclarer a nouveau mes i alarmes sachant que ma class Alarm ce trouve dans mon module et qu'ensuite mes objets alarmes doivent être disponible sur deux Forms.

Merci d'avance pour vos solutions.

Bonjour,

Tu crés un dictionnaire de tes alarmes, et tu passe ce dictionnaire à une propriété de ta form.

La classe pour une alarme

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
Public Class UneAlarme
 
  Private mNom As String
  Public Property Nom() As String
    Get
      Return mNom
    End Get
    Set(ByVal value As String)
      mNom = value
    End Set
  End Property
 
  Private mNiveauDePriorité As Integer
  Public Property NiveauDePriorité() As Integer
    Get
      Return mNiveauDePriorité
    End Get
    Set(ByVal value As Integer)
      mNiveauDePriorité = value
    End Set
 
  End Property
 
End Class

La fenêtre des alarmes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Class frmAlarmes
 
  Private mMesAlarmes As Dictionary(Of String, UneAlarme)
  Public Property MesAlarmes() As Dictionary(Of String, UneAlarme)
    Get
      Return mMesAlarmes
    End Get
    Set(ByVal value As Dictionary(Of String, UneAlarme))
      mMesAlarmes = value
    End Set
  End Property
 
End Class

La classe visible de l'extérieur

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
''' <summary>La classe alarme visible.</summary>
Public Class Alarme
  Implements IAlarmes ' contrat entre classe et interface.
 
  ' définition (et création) pour disponibilité à toute la classe
  Dim fenAlarmes As frmAlarmes = New frmAlarmes ' la fenêtre de gestion des alarmes.
  Dim dicoAlarmes As Dictionary(Of String, UneAlarme) = New Dictionary(Of String, UneAlarme)
'...
  Sub AjoutAlarme()
    ' ajout des alarmes dans le dictionnaire
    '...
  End Sub
 
  ''' <summary>La procédure de lancement de la gestion des alarmes.</summary>
  ''' <remarks>Aucune action sur les propriétés.</remarks>
  Public Sub GestAlarme() _
  Implements IAlarmes.GestAlarme
    ' implémentation de la procédure définie dans l'interface.
    fenAlarmes.Label1.Text = mParam
    fenAlarmes.Label2.Text = mNom
    fenAlarmes.MesAlarmes = dicoAlarmes
    fenAlarmes.ShowDialog()
  End Sub
 
  '...

A+, Hervé.

Exemple pour l'ajout des alarmes

Code:

1
2
3
4
5
6
7
8
9
10
11
12
  ''' <summary>Ajoute une alarme dans le dictionnaire des alarmes.</summary>
  ''' <param name="UnNom">Nom de l'alarme.</param>
  ''' <param name="UnNiveauDePriorite">Niveau de priorité.</param>
  ''' <remarks>Les alarmes sont identifiées par leur noms.</remarks>
  Public Sub AjoutAlarme(ByVal UnNom As String, ByVal UnNiveauDePriorite As Integer) _
  Implements IAlarmes.AjoutAlarme
    Dim NouvelleAlarme As UneAlarme = New UneAlarme
    NouvelleAlarme.Nom = UnNom
    NouvelleAlarme.NiveauDePriorité = UnNiveauDePriorite
    dicoAlarmes.Add(NouvelleAlarme.Nom, NouvelleAlarme)    ' ou  autre éciture équivalente : dicoAlarmes.Add(Nom, NouvelleAlarme)
    ' Note : en sortie de sub la variable NouvelleAlarme n'existe plus, cela n'est pas génant l'objet alarme créé est référencé par le dictionnaire.
  End Sub

Ne pas oublier de définir la sub dans l'interface pour vb6. (c'est probablement de la que tu alimenteras ton dictionnaire.

09/04/2013, 13h16
dragondumond

Merci bcp !!