Discussion :

[shayw]

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

  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

[rv26t]

Bonjour,

2 solutions

Tu surcharges les "new" des "form"

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[shayw]

merci
J'ai opté pour une class global

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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