Discussion :

[plasticgoat]

Bonjour,

Avant d'aller plus loin, j'ai déjà lu les post suivants :
- [Résolu] [C#] Acceder à la méthode d'une autre form
http://www.developpez.net/forums/vie...iable&start=15

- [Résolu] [VB.NET] Portée des composant - Truc bête
http://www.developpez.net/forums/vie...E9der+variable

- [VB.NET]Passage de Parametre entre WinForm
http://www.developpez.net/forums/vie...380557&start=0

J'ai deux forms dans mon applications, Form1 qui ait lancé à l'execution de l'appli et SelectForm qui est lancée par Form1:

Dans Form1 j'ai:

Code :

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

1
2
3
 
    Public dialForm As Form = New SelectForm
    Public DATA_REP As String = "D:\_Jerome\Projets\Visa\VisaLight\don"     ' Répertoire des données VISA Light

et

Code :

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

1
2
3
4
5
6
 
    Private Sub B_Settings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_settings.Click
 
        dialForm.ShowDialog()
 
    End Sub

Dans SelectForm, j'ai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Private repertoire_fichier As String
    Private type_periode As Integer
    Public toto As String
 
...
 
    Public Function getDataDir() As String
        Return Me.repertoire_fichier
    End Function
 
    Public Function getTypePeriode() As Integer
        Return Me.type_periode
    End Function

J'aimerais pouvoir faire dans Form1, après avoir validé SelectForm, c'est
DATA_REP = dialForm.getDataDir()


Question annexe:
un Close sur une Form est ce que ça détruit (désalloue) toutes les variables qu'elle contient ?

[Dinytro]

un Close sur une Form est ce que ça détruit (désalloue) toutes les variables qu'elle contient ?

si le dispose est appelé oui, et c'est normalement le cas...


pour ton problème, tu dis avoir lu les autres post sur ce sujet et c'est tout à ton honneur mais as tu essayé d'appliquer ce qui a été dit ?

J'aimerais pouvoir faire dans Form1, après avoir validé SelectForm, c'est
DATA_REP = dialForm.getDataDir()

Question ? tu veux le faire pendant que la form est ouverte où quand elle est fermée ?

dans le premier cas, je verrais plutôt le problème à l'envers

dans SelectForm, je ferais un

Code :

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

1
2
 
DATA_REP = Me.repertoire_fichier

en ayant pris soin de rendre disponible DATA_REP dans SelectForm par les moyen décrits dans les post précédents

[neguib]

Utilises plutôt un accesseur qu'une fonction dans SelectForm:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Private Const repertoire_fichier ="D:\_Jerome\Projets\Visa\VisaLight\don"
 
 '...
 
 Public ReadOnly Property getDataDir() As String
  Get
    Return Me.repertoire_fichier
  End Get
 End Property

donc ensuite

Code :

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

1
2
3
 
Public dialForm As Form = New SelectForm()
Public DATA_REP As String = dialForm.getDataDir()

Question annexe:
un Close sur une Form est ce que ça détruit (désalloue) toutes les variables qu'elle contient ?

Pas de suite necessairement car cela dependra du garbage collector tu peux très bien imposer le dispose après le close

Code :

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

If Not(Me Is Nothing) Then Me.Dispose(True)

[plasticgoat]

Utilises plutôt un accesseur qu'une fonction dans SelectForm:

merci, je ne savais pas que ça existait , l'habitude du Java ...

un Close sur une Form est ce que ça détruit (désalloue) toutes les variables qu'elle contient ?

si le dispose est appelé oui, et c'est normalement le cas...

ok donc c pour ça que je perdait mes variables, j'ai remplacé par un "hide".

pour ton problème, tu dis avoir lu les autres post sur ce sujet et c'est tout à ton honneur mais as tu essayé d'appliquer ce qui a été dit ?

J'ai essayé mais je suis dans la situation inverse:
Dans les post, ils essayent d'acceder à un membre de Form1 depuis Form2
alors que moi j'essaye de d'acceder à un membre de Form2 depuis Form1, après avoir saisie des infos dans Form2 et qu'elle ait été 'fermé'.
Donc je ne vois pas ce que j'ai à faire, à part mettre mes propriétés de SelectForm en public et créer mon instance de SelectForm dans Form1.

en ayant pris soin de rendre disponible DATA_REP dans SelectForm par les moyen décrits dans les post précédents

tu rends diponible DATA_REP pour selectForm ou tu rends disponible DATA_REP dans SelectForm pour Form1 ?

[Dinytro]

hummm...
récapitulons : (Je code en C#..je te laisse le soins de traduire)

ton DATA_REP est déclaré dans Form1 isn't it ?

Si tel est le cas, il suffit que tu utilise des accesseurs pour cette variables dans Form1 comme le suggerait neguib et comme je te le disais aussi indirectement.

Dans le constructeur de SelectForm, tu passes l'instances de ta Form1
ça donnerait un code du genre :

Code :

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

1
2
3
4
5
6
 
private Form1 _parent;
public SelectForm(Form1 parent)
{
   _parent = parent;
}

quelque part dans SelectForm, tu dois renseigner cette variable (DATA_REP) qui correspond d'après ce que j'ai compris à

Code :

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

Me.repertoire_fichier

Pour la renseigner, il suffira de faire

Code :

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

_parent.DATA_REP = Me.repertoire_fichier

(on peut se demander du coup si Me.repertoire_fichier est bien utile...

dans form 1, pour créer ta form (aller, je me force, un peu de VB

Code :

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

1
2
3
 
 
Public dialForm As Form = New SelectForm(me)

c'est bon là ?

[plasticgoat]

ok ça me parait clair

J'ai fait quelques modification car je n'aimais pas le fait de garder une form en mémoire tous le temps et faire des showdialog/hide.

Donc, avec vos remarques, maintenant j'ai :
Form1 :

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
 
    Private mySettings As Form
 
    Private repertoire_fichier As String = "D:\ ..."
    Private type_periode As Integer = 1
 
  ...
 
    Private Sub B_Settings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_settings.Click
 
        mySettings = New SettingsForm(Me)
        mySettings.ShowDialog()
        'mySettings.Dispose()
    End Sub
 
...
 
    Public Property typePeriode_prop() As Integer
        Get
            Return Me.type_periode
        End Get
        Set(ByVal Value As Integer)
            Me.type_periode = Value
        End Set
    End Property
 
 
    Public Property dataDir_prop() As String
        Get
            Return Me.repertoire_fichier
        End Get
        Set(ByVal Value As String)
            Me.repertoire_fichier = Value
        End Set
    End Property

et dans ma SettingsForm :

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
 
 
    Private parent_form As Form
 
    Public Sub New(ByVal parent As Form)
        MyBase.New()
 
        Me.parent_form = parent
 
        'Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()
 
        'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
        Me.initialisationForm()
    End Sub
 
...
    Friend WithEvents TB_data_dir As System.Windows.Forms.TextBox
...
 
    Private Sub B_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_OK.Click
        saveSettings()
        Me.Close()
        If Not (Me Is Nothing) Then Me.Dispose(True)
        'Me.Hide()
    End Sub

Je pensais donc pouvoir faire :

Code :

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

1
2
3
4
 
Me.TB_data_dir.Text = Me.parent_form.dataDir_prop()
...
Me.parent_form.dataDir_prop = Me.TB_data_dir.Text

malheureusement, les propriété n'apparaissent pas dans la liste de Me.parent_form

[neguib]

normal tu aurais dû declarer

Code :

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

1
2
3
4
 
Private parent_form As Form1
Public Sub New(ByVal parent As Form1)
//...

[plasticgoat]

la voilà l'erreur

merci !