Faire accès à une proprieté d'une class à partir d'une autre class

Version imprimable

Bonjour

J'ai 3 form : form1 form2 et form3
dans la form1 je choisis le langage d'un jeu et veux me servir de cette proprieté dans d'autres forms

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
    Private mode As String
     Property language As String
        Get
            Return mode
        End Get
        Set(value As String)
            mode = value
        End Set
    End Property
 
 Private Sub mybutton_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles mybutton.MouseClick
        Form2.Show()
        Me.Close()
    End Sub
 
End Class

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class Form2
  Private french As Boolean
   Private Sub DesignMenustrip()
        If Form1.language = "French" Then
            french = True
         else 
            french = false
        end if
    end sub 
 
Private Sub Buttonnext_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Buttonnext.MouseClick
       form3.Show()
        Me.Close()
    End Sub
end class

Code:

1
2
3
4
5
6
7
8
9
10
11
Public Class Form3
 
   Private Sub DesignMenustrip()
        If Form1.language = "French" Then
           '.......
         else 
            '........
        end if
    end sub 
 
end class

le problème se situe dans form3

Code:

If Form1.language = "French" Then

comme form1 est close une nouvel instance est crée
quelle solution pour que "langage soit accessible à tous" ?
mettre dans un module ?

merci

Bonjour,

2 solutions

Tu surcharges les "new" des "form"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class Form2
    Private language As String
    Private french As Boolean
 
    Sub New(l As String)
        InitializeComponent()
        language = l
    End Sub
    Private Sub DesignMenustrip()
        french = (language = "French")
    End Sub
    Private Sub Buttonnext_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Buttonnext.MouseClick
        Dim f As form3 = New form3(language)
        f.Show()
        Me.Close()
    End Sub

Idem avec form3
Appel depuis form1

Code:

1
2
3
4
5
 Private Sub mybutton_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles mybutton.MouseClick
        Dim f As form2 = New form2(language)
        f.Show()
        Me.Close()
    End Sub

Tu peux certainement simplifier avec les variables french et language pour n'en avoir qu'une. Ca c'est suivant tes besoins.

Tu crés une classe contexte de travail que tu utilises pour tous les éléments globaux (avec les éléments en Shared) (équivalent au module mais plus objet).

merci
J'ai opté pour une class global
Code:

1 2 3 Public Class Classglobal Public Shared language As String End Class