|
begin process at 2008 05 16 08:55:00
Derniers logiciels
|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
APPELLE DE FENETRE ET APPELLE DE FONCTION SANS CONNAITRE LE NOM DE LA FONCTION
Information sur la source
Description
Cette classe permet de facilité les appelle bloquant entre fenetre : Il permet à une fenetre A d'appeler un fenetre B et de se bloquer. Il permet de même de spécifier les méthodes à appeler à la fin de B. L'interêt est que grace à cette classe B n'a pas besoin de connaitre le nom des méthode à appeler. L'utilité est trouver quand on a une fenetre fille qui peut être appeler par plusieurs fenetres mères et que chacune des fenetres mères à ces fonctions bien à elle.
Source
- 'Comment utiliser l'objet gestionFenetre : du plus simple au plus perfectioner
- 'déclaration :
- 'dim gFen as new gestionFenetre(fenetre principale du prog)
- 'ouverture de fenetre
- '1°
- ' gFen.affiche(truc)
- '2°
- ' gFen.affiche(truc, AddressOf MAJListe)
- '3°
- ' gFen.affiche(truc, New fonctionDeMiseAJourDeCetteFenetre(AddressOf MAJListe))
- '4°
- ' gFen.affiche(truc, New fonctionDeMiseAJourDeCetteFenetre() {AddressOf MAJListe, AddressOf MAJListe})
- '5°
- ' Dim f As fenetre
- ' f = New fenetre(truc, New fonctionDeMiseAJourDeCetteFenetre() {AddressOf MAJListe, AddressOf MAJListe})
- ' f.add(AddressOf MAJListe)
- ' gFen.affiche(f)
- 'fermeture de fenetre
- 'gFen.fin() 'ferme et lance les méthodes
- 'gFen.fin(false) 'ferme mais refuse de lancer les méthodes
-
-
- 'cree un fonction délégate, en claire c'est un racourci vers une autre fonction lorsqu'on
- 'créé un objet o du type fonctionDeMiseAJourDeCetteFenetre on spécifie l'addresse d'une fonction f
- 'et en faisant o.invoke on execute la fonction f
- Public Delegate Sub fonctionDeMiseAJourDeCetteFenetre()
-
- 'classe permettant de géné des appelle de fenetre de façon bloquante
- Public Class gestionFenetre
- Protected fen As List(Of fenetre)
-
-
- 'crée un nnouvel objet de gestion des affichage des fenetre
- Public Sub New(ByRef mere As Windows.Forms.Form)
- fen = New List(Of fenetre)
- fen.Add(New fenetre(mere, AddressOf void))
- End Sub
-
- 'on demande un objet/un delegate fonctionDeMiseAJourDeCetteFenetre dans le constructeur, mais on peut ne passer que le AddressOf maFonction
- 'puisque voyant que ce n'est pas le même type d'objet il tentera de créé un objet fonctionDeMiseAJourDeCetteFenetre avec AddressOf maFonction en
- 'paramètre. de cette façon l'écriture est simplifier : gfen.affiche(fen1,AddressOf maFonctionMAJ)
- Public Sub affiche(ByRef fenFille As Windows.Forms.Form, ByRef fonctionDeMiseAJours As fonctionDeMiseAJourDeCetteFenetre)
- Me.affiche(New fenetre(fenFille, fonctionDeMiseAJours))
- End Sub
-
- 'on demande l'affichage d'une fenetre en informant qu'il faudra faire plusieurs fonctions après la fermeture de la fenetre
- Public Sub affiche(ByRef fenFille As Windows.Forms.Form, ByRef fonctionDeMiseAJours() As fonctionDeMiseAJourDeCetteFenetre)
- Me.affiche(New fenetre(fenFille, fonctionDeMiseAJours))
- End Sub
-
- 'on ne veut que afficher la fonction, dans ce cas la fonction appeler sera void une fonction qui ne fait rien
- Public Sub affiche(ByRef fenFille As Windows.Forms.Form)
- Me.affiche(fenFille, New fonctionDeMiseAJourDeCetteFenetre(AddressOf void))
- End Sub
-
- 'on affiche la form de l'objet passer et on ajout l'objet à la pile des fenetres affiché
- Public Sub affiche(ByRef mafenetre As fenetre)
- fen.Item(fen.Count - 1).getForm.Enabled = False
- fen.Add(mafenetre)
- mafenetre.getForm.Show()
- End Sub
-
- '-on redonne la main à l'avant dernière fenetre de la pile si c'est possible
- '-on ferme la fenetre qui est a la fin de la pile
- '-on appelle les fonction qui on été demander
- Public Sub fin(Optional ByVal appelleLesFonctionsEnFinDeFenetre As Boolean = True)
- If fen.Count > 1 Then fen.Item(fen.Count - 2).getForm.Enabled = True
- If fen.Count > 1 Then fen.Item(fen.Count - 2).getForm.Activate()
- fen.Item(fen.Count - 1).getForm.Dispose()
- If appelleLesFonctionsEnFinDeFenetre Then fen.Item(fen.Count - 1).Invoke()
- fen.RemoveAt(fen.Count - 1)
- End Sub
-
- 'fonction vide, on doit forcement avoir une fonction à lancer à la fermeture, si l'utilisateur n'en a pas mit alors on en met une
- 'et une qui n'a aucune incidence sur le programme
- Private Sub void()
- End Sub
- End Class
-
- Public Class fenetre
- Private fen As Windows.Forms.Form
- Private fcn As List(Of fonctionDeMiseAJourDeCetteFenetre)
-
- 'crée un objet fenetre avec une fenetre et plusieurs fonctions à lancer
- Public Sub New(ByRef maForm As Windows.Forms.Form, ByRef MesFcn() As fonctionDeMiseAJourDeCetteFenetre)
- fen = maForm
- fcn = New List(Of fonctionDeMiseAJourDeCetteFenetre)
- For i As Integer = 0 To MesFcn.Length - 1
- fcn.Add(MesFcn(i))
- Next
- End Sub
-
- 'crée un objet fenetre avec une fenetre et une fonction à lancer
- Public Sub New(ByRef maForm As Windows.Forms.Form, ByRef MesFcn As fonctionDeMiseAJourDeCetteFenetre)
- fen = maForm
- fcn = New List(Of fonctionDeMiseAJourDeCetteFenetre)
- fcn.Add(MesFcn)
- End Sub
-
- 'ajoute à l'objet fenetre une fonction à lancer
- Public Sub add(ByRef MaFcn As fonctionDeMiseAJourDeCetteFenetre)
- fcn.Add(MaFcn)
- End Sub
-
- 'geteur de fenetre
- Public Function getForm() As Windows.Forms.Form
- Return fen
- End Function
-
- 'appelle les fonction de cette objet
- Public Sub Invoke()
- For i As Integer = 0 To fcn.Count - 1
- fcn.Item(i).Invoke()
- Next
- End Sub
- End Class
'Comment utiliser l'objet gestionFenetre : du plus simple au plus perfectioner
'déclaration :
'dim gFen as new gestionFenetre(fenetre principale du prog)
'ouverture de fenetre
'1°
' gFen.affiche(truc)
'2°
' gFen.affiche(truc, AddressOf MAJListe)
'3°
' gFen.affiche(truc, New fonctionDeMiseAJourDeCetteFenetre(AddressOf MAJListe))
'4°
' gFen.affiche(truc, New fonctionDeMiseAJourDeCetteFenetre() {AddressOf MAJListe, AddressOf MAJListe})
'5°
' Dim f As fenetre
' f = New fenetre(truc, New fonctionDeMiseAJourDeCetteFenetre() {AddressOf MAJListe, AddressOf MAJListe})
' f.add(AddressOf MAJListe)
' gFen.affiche(f)
'fermeture de fenetre
'gFen.fin() 'ferme et lance les méthodes
'gFen.fin(false) 'ferme mais refuse de lancer les méthodes
'cree un fonction délégate, en claire c'est un racourci vers une autre fonction lorsqu'on
'créé un objet o du type fonctionDeMiseAJourDeCetteFenetre on spécifie l'addresse d'une fonction f
'et en faisant o.invoke on execute la fonction f
Public Delegate Sub fonctionDeMiseAJourDeCetteFenetre()
'classe permettant de géné des appelle de fenetre de façon bloquante
Public Class gestionFenetre
Protected fen As List(Of fenetre)
'crée un nnouvel objet de gestion des affichage des fenetre
Public Sub New(ByRef mere As Windows.Forms.Form)
fen = New List(Of fenetre)
fen.Add(New fenetre(mere, AddressOf void))
End Sub
'on demande un objet/un delegate fonctionDeMiseAJourDeCetteFenetre dans le constructeur, mais on peut ne passer que le AddressOf maFonction
'puisque voyant que ce n'est pas le même type d'objet il tentera de créé un objet fonctionDeMiseAJourDeCetteFenetre avec AddressOf maFonction en
'paramètre. de cette façon l'écriture est simplifier : gfen.affiche(fen1,AddressOf maFonctionMAJ)
Public Sub affiche(ByRef fenFille As Windows.Forms.Form, ByRef fonctionDeMiseAJours As fonctionDeMiseAJourDeCetteFenetre)
Me.affiche(New fenetre(fenFille, fonctionDeMiseAJours))
End Sub
'on demande l'affichage d'une fenetre en informant qu'il faudra faire plusieurs fonctions après la fermeture de la fenetre
Public Sub affiche(ByRef fenFille As Windows.Forms.Form, ByRef fonctionDeMiseAJours() As fonctionDeMiseAJourDeCetteFenetre)
Me.affiche(New fenetre(fenFille, fonctionDeMiseAJours))
End Sub
'on ne veut que afficher la fonction, dans ce cas la fonction appeler sera void une fonction qui ne fait rien
Public Sub affiche(ByRef fenFille As Windows.Forms.Form)
Me.affiche(fenFille, New fonctionDeMiseAJourDeCetteFenetre(AddressOf void))
End Sub
'on affiche la form de l'objet passer et on ajout l'objet à la pile des fenetres affiché
Public Sub affiche(ByRef mafenetre As fenetre)
fen.Item(fen.Count - 1).getForm.Enabled = False
fen.Add(mafenetre)
mafenetre.getForm.Show()
End Sub
'-on redonne la main à l'avant dernière fenetre de la pile si c'est possible
'-on ferme la fenetre qui est a la fin de la pile
'-on appelle les fonction qui on été demander
Public Sub fin(Optional ByVal appelleLesFonctionsEnFinDeFenetre As Boolean = True)
If fen.Count > 1 Then fen.Item(fen.Count - 2).getForm.Enabled = True
If fen.Count > 1 Then fen.Item(fen.Count - 2).getForm.Activate()
fen.Item(fen.Count - 1).getForm.Dispose()
If appelleLesFonctionsEnFinDeFenetre Then fen.Item(fen.Count - 1).Invoke()
fen.RemoveAt(fen.Count - 1)
End Sub
'fonction vide, on doit forcement avoir une fonction à lancer à la fermeture, si l'utilisateur n'en a pas mit alors on en met une
'et une qui n'a aucune incidence sur le programme
Private Sub void()
End Sub
End Class
Public Class fenetre
Private fen As Windows.Forms.Form
Private fcn As List(Of fonctionDeMiseAJourDeCetteFenetre)
'crée un objet fenetre avec une fenetre et plusieurs fonctions à lancer
Public Sub New(ByRef maForm As Windows.Forms.Form, ByRef MesFcn() As fonctionDeMiseAJourDeCetteFenetre)
fen = maForm
fcn = New List(Of fonctionDeMiseAJourDeCetteFenetre)
For i As Integer = 0 To MesFcn.Length - 1
fcn.Add(MesFcn(i))
Next
End Sub
'crée un objet fenetre avec une fenetre et une fonction à lancer
Public Sub New(ByRef maForm As Windows.Forms.Form, ByRef MesFcn As fonctionDeMiseAJourDeCetteFenetre)
fen = maForm
fcn = New List(Of fonctionDeMiseAJourDeCetteFenetre)
fcn.Add(MesFcn)
End Sub
'ajoute à l'objet fenetre une fonction à lancer
Public Sub add(ByRef MaFcn As fonctionDeMiseAJourDeCetteFenetre)
fcn.Add(MaFcn)
End Sub
'geteur de fenetre
Public Function getForm() As Windows.Forms.Form
Return fen
End Function
'appelle les fonction de cette objet
Public Sub Invoke()
For i As Integer = 0 To fcn.Count - 1
fcn.Item(i).Invoke()
Next
End Sub
End Class
Conclusion
Je n'ai pas réussi à faire que l'on puissent donner des paramètres aux méthodes: il y avait bien le dynamicInvoke mais l'implementation pour prendre en compte chaque type d'en-tête de méthode était lourd. Donc les méthodes doivent être sans paramètre.
Fichier Zip
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
Télécharger le zip
Sources de la même categorie
Commentaires
Discussions en rapport avec ce code source
|
|
|