Comment faire référencer une instance d'un formulaire ?

Version imprimable

30/04/2013, 17h35
Smilossss

Comment faire référencer une instance d'un formulaire ?
Bonjour à tous,

Je travaille sur un petit projet de facturation en VB6 avec MDIForm. à partir du fenetre MDI j'ouvre une fenetre fille qui est la facture
je peux ouvrir une ou plusieurs factures (en instanciant la fenetre) à partir de ce code :
Code:

1 2 3 Dim fc As New frmFacture fc.Show
dans la facture il faut mettre le nom du client.. alors pour le faire j'ai un bouton qui me dirige vers la forme frmListClient..

le prob ici c'est si je clique sur le client désiré du frmListClient comment j'importe ses informations à l'instance frmFacture (que j'ai cliqué sur son bouton) sachant que j'ai 4 fenetre frmFacture ouvert.

j'espere que l'explication n'est pas compliqué

merci d'avance :ccool:

Salut

J'aurai trop de mal à m'expliquer autrement, donc, un exemple par le code.
Un module Module1

Code:

1
2
3
4
5
6
7
8
Option Explicit
Public NumFacture As Integer
Public NumFormActive As Integer
Public SeForm As Form
 
Public Sub Main()
MDIForm1.Show
End Sub

Un Form MDI MDIForm1 avec 2 menus

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub MnAjoutFacture_Click()
NumFacture = NumFacture + 1
Set SeForm = New frmFacture
SeForm.Show
MnLstClients_Click
Set SeForm = Nothing
End Sub
 
Private Sub MnLstClients_Click()
frmListClient.Show 1
End Sub

Un Form MDIchild frmFacture

Code:

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Private Sub Form_Activate()
NumFormActive = Me.Tag
End Sub
 
Private Sub Form_Load()
Me.Tag = NumFacture
Me.Caption = "Facture N°" & Me.Tag
End Sub

et enfin un Form frmListClient avec un ListBox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Private Sub Form_Load()
Dim T As Integer
List1.Clear
For T = 65 To 70: List1.AddItem Chr(T): Next T
End Sub
 
Private Sub List1_DblClick()
 '********** rechercher le Form a actualiser *********
For Each SeForm In Forms
    If SeForm.Tag = CStr(NumFormActive) Then
        SeForm.Caption = "Facture N°" & SeForm.Tag & "    " & List1.List(List1.ListIndex)
        SeForm.WindowState = vbNormal: SeForm.ZOrder: Exit For
    End If
    DoEvents
Next
Set SeForm = Nothing
Unload Me
End Sub

01/05/2013, 11h48
Smilossss

Bonjour,

Merci Monsieur pour votre aide,
j'ai tester votre code et ça marche bien avec mon prob..

Mais, en réalité,
- j'ai un num de facture personnaliser avec une fenetre de parametrage,
- la fenetre modale est inacceptale dans une fenetre MDI
- En ouvrant une facture la premiere fois l'utilisateur clique un bouton pour ouvrir la liste client

à mon avis le ".Tag" est inefficace en quelque sorte (ça va être trés compliqué en travaillant sur plusieurs factures par jours)

Merci encore pour votre aide Je vais adapter votre code à mon projet mais s'il ya une autre méthode mieux simple merci de m'aider encore :ccool:
01/05/2013, 13h19
ProgElecT

Salut

Citation:

Envoyé par Smilossss

Bonjour,

......
- la fenêtre modale est inacceptable dans une fenêtre MDI
.......

frmListClient dans mon exemple n'est pas MDIchild mais un Form standard.
Le paramétré 1 dans frmListClient.Show 1 de ce fait ne provoque pas d''erreur.

.Tag des frmFactures pourrait contenir ton n° de facture personnaliser.
01/05/2013, 13h52
Smilossss

Citation:

Envoyé par ProgElecT

Salut
frmListClient dans mon exemple n'est pas MDIchild mais un Form standard.
Le paramétré 1 dans frmListClient.Show 1 de ce fait ne provoque pas d''erreur.

ICI je veux dire qu'il faut que toute les fenetre de mon application sont MDIChild. en effet, l'utilisation des fenetre modal dans une application MDI devient abusif

Citation:

Envoyé par ProgElecT

.Tag des frmFactures pourrait contenir ton n° de facture personnaliser.

Bein oui c'est ce que j'ai pensé et je vais l'adapter..
je ne sais pas s'il y a d'autre méthodes plus simple car j'ai par exemple la fenetre reglement de chaque facture et j'ai d'autre utilisations aussi plus complexe que choisir un client pour une facture..

Merci en tout cas et d'autre suggestion soit la bienvenu

merci encore monsieur :ccool:

Bonjour,

j'ai trouvé la solution idéale et simple pour mon prob

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
26
27
28
29
30
31
32
33
34
 
    ' dans Form1
    Option Explicit
 
    Private oLaunchedForm As Form2
 
    Private Sub Command1_Click()
        If oLaunchedForm Is Nothing Then
            Set oLaunchedForm = New Form2
            Set oLaunchedForm.CallingForm = Me
            oLaunchedForm.Show
        End If
    End Sub
 
    Public Sub ResetForm()
        Set oLaunchedForm = Nothing
    End Sub
 
    Private Sub Form_Unload(Cancel As Integer)
        If Not oLaunchedForm Is Nothing Then Unload oLaunchedForm
    End Sub
 
    ' Dans Form2
    Option Explicit
 
    Private m_oCallingForm As Form1
 
    Public Property Set CallingForm(oFrm As Form1)
        Set m_oCallingForm = oFrm
    End Property
 
    Private Sub Form_Unload(Cancel As Integer)
        m_oCallingForm.ResetForm
    End Sub

Merci :ccool: