Discussion :

[Sly2k]

Bonjour à tous,

j'ai un petit soucis de 3 fois rien du tout mais qui me pompe pas mal parce que je ne vois pas par où attaquer.

En gros lorsque je clique sur un bouton voici ce qu'il se passe

Code :

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

1
2
3
4
5
 
Dim fic As FormFicheIndividuelle = New FormFicheIndividuelle
fic.idSalarieUtilisateur = idSalarieUtilisateur
fic.idSalarie = ListViewResultatRecherche.SelectedItems(0).Text
fic.Show()

Or j'aimerais que s'il existe déjà une FormFicheIndividuelle avec le même idSalarie, il me la focus au lieu de me la créer.

En gros j'aimerais pouvoir récuperer toutes les instances de FormFicheIndividuelle et comparer leur attribut idSalarie.

Je vous remercie d'avance pour votre precieuse aide.

[Bluedeep]

Le plus simple est de stocker les réfèrences à tes formulaires au moment où tu les instancies, non ?

[Pol63]

il y a plusieurs possibilité

soit tu passes en revues toutes les fenetres ouvertes avec for each frm as system.windows.form in System.Windows.Forms.Application.OpenForms
if typeof frm is taform alors test si id_machin = ...



ou alors

tu te créés toi meme une collection de feuille
sur ta form, tu fais un shared col as new system.collections.generic.list(of taform)

et dans le sub new tu fais col.add(me) enfin faut pas le faire dans le sub new, car me est pas encore vraiment existant, faut le faire dans me.handlecreated plutot

et apres tu fait for each frm as taform in taform.col
if frm.id_machin = ...

[Sly2k]

Moi aussi le moyen de faire appel au typeof me séduit mais le problème réside dans le fait que l'id_machin n'est pas commun à toute les forms donc je ne peut pas utiliser frm.id_machin.

Peut-être y a-t'il un moyen de récupérer les attributs de frm en passant le nom en paramètre. Je ne m'y connais pas assez en vb.net pour connaître ce genre de manipulation.

BlueDeep, si j'utilise ta méthode, où dois-je créer ma liste de fiches individuelles?

[Pol63]

excuse j'ai en effet oublié un truc

une fois que tu es sur que ta feuille est du bon type
tu fais ctype(frm,taform).idmachin


le ctype est bien pratique, il permet aussi de caster sur des interfaces pour avoir accès à certaines fonctions sur des objets complexes ...

[Sly2k]

Alors voila ce que ça donne

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
Dim ficheOuverte As Boolean = False
            For Each frm As System.Windows.Forms.Form In System.Windows.Forms.Application.OpenForms
                If TypeOf frm Is FormFicheIndividuelle Then
                    If CType(frm, FormFicheIndividuelle).idSalarie = ListViewResultatRecherche.SelectedItems(0).Text Then
                        frm.Focus()
                        ficheOuverte = True
                    End If
                End If
            Next
            If ficheOuverte = False Then
                Dim nouvelleFrm As FormFicheIndividuelle = New FormFicheIndividuelle
                nouvelleFrm.idSalarieUtilisateur = idSalarieUtilisateur
                nouvelleFrm.idSalarie = ListViewResultatRecherche.SelectedItems(0).Text
                nouvelleFrm.Show()
            End If

Et ça fonctionne à la presque perfection car le focus ne fonctionne pas lorsque la form est minimisée. Et je ne trouve pas la méthode qui permet de repérer si c'est le cas et de la restaurer le cas échéant.

[Sly2k]

Trouvé

Code :

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

1
2
3
If frm.WindowState = FormWindowState.Minimized Then
                            frm.WindowState = FormWindowState.Normal
                        End If

Et le tour est joué.
Merci à sperot51 et à Bluedeep pour leur aide salvatrice

[Pol63]

roh quand meme !

Code :

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

1
2
3
4
 
   If frm.WindowState = System.Windows.Forms.FormWindowState.Minimized Then
            frm.WindowState = System.Windows.Forms.FormWindowState.Normal
    End If

edit : croisage de reply

[Sly2k]

Désolé dans l'excitation du moment...

Encore merci