Discussion :

[didpoy]

Bonjour à tous,

PROBLÈME avec Création De Formulaire depuis VB.net


J’ai un module qui contient (même si ce n’est pas terrible) :

Code :

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

1
2
 
Public NvForm As New FLux_Form()

J’ai un form principale :


Je crée plusieurs form secondaires :

Code dans form_Principale :

Code :

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

1
2
3
4
5
6
For i = 0 To cpt_flux - 1
     Dim NvForm As New FLux_Form()
     NvForm.Show()
    ‘NvForm.ShowDialog() --> Showdialog ne fonctionne pas !!!!
    Next

Ce qui donne en résultat et à l'affichage:


Jusqu’à là cela ne fonctionne pas trop mal…
Là où cela se corse, je voudrais en déplaçant la form_Principale faire suivre les form_secondaires.
Cela fonctionne avec une seule form_secondaire mais pas avec plus !!!

Code de déplacement dans form_principale :

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 mouse_offset
Private Sub Principal_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        mouse_offset = New Point(-e.X, -e.Y)
End Sub
 
Private Sub Principal_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    If e.Button = System.Windows.Forms.MouseButtons.Left Then
         Dim mousePos As Point = Control.MousePosition
         mousePos.Offset(mouse_offset.X, mouse_offset.Y)
         Location = mousePos
         '------- Déplacement Flux_Form avec principal
         NvForm.Location = New Point(Me.Location.X, Me.Location.Y + 30)
    End If
End sub

EN RÉSUMÉ:
Je n’arrive pas trouver l’astuce pour pouvoir déplacer les secondaires en même temps que la principal sauf lorsqu’il n’y a qu’une secondaire où cela fonctionne !!!

Pouvez-vous m'aider ?

Merci à tous.

Cordialement.

[didpoy]

re

Voici mon code base (Visual Studio 2015 - VB.Net) qui montre mon soucis:

Donc:
* une seule Form Secondaire: elle se déplace avec la form Principale
* Plus d'une Form Secondaire: pas déplacement des nouvelles avec la Form Principale

Merci à vous.

Cordialement.

Form_Dynamiques.zip

[ebastien]

Bonjour,

NvForm correspond à la dernière instance des Forms secondaires créées. Tu peux stocker l'ensemble des tes Forms dans une liste et au déplacement de ta Form principale, boucler sur cette liste pour déplacer les forms secondaires.

[didpoy]

re

merci pour la réponse.

Mais je ne vois pas comment stocker ces instances form !!!!

Si vous avez une idée, merci.

[r.morel]

Salut,
Tu créer une Liste :

Code :

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

Dim MyFormList as New List(Of Flux_Form)

Puis pour ajouter un formulaire à la liste :

Code :

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

MyFormList.add(Myform)

Pour boucler :

Code :

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

1
2
3
For each MyForm as Flux_Form in MyFormList
 
Next

[didpoy]

Ok, super, merci.

Je vais tester cela et je reviendrai donner mes résultats...



--Edit :

Bon, je n'y arrive pas vraiment car j'avoue ma méconnaissance dans le domaine dynamique.

Voilà ce que j'ai et cela déplace bien toutes Form Secondaires mais elle se superposent puisque en Y la valeur est de 25.
J'ai essayé d'incrémenter de +25 à l'interieur du For Each mais cela ne fonctionne pas et mes form disparaissent de l'écran.
Je ne vois pas comment utiliser le Count de la boucle !!!!!

Code :

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

1
2
3
4
 
For Each Myform As FLux_Form In MyFormList
                Myform.Location = New Point(Me.Location.X, Me.Location.Y + 25)
            Next

J'ai essayé avec 2 form secondaires et MyFormList est bien à 2...

[Invité]

Bonsoir,
Si tu utilise des formulaire mdi tu peux les organiser en cascade mosaïque vertical ou horizontal!

[didpoy]

Ok

Mais jamais utilisé de MDi, donc je vais devoir apprendre et fouiner sur le net pour savoir comment cela se code...

Merci pour l'info...

[Invité]

Tu ajoutes à ton projet un formulaire enveloppe mdi.

Dans tes userform tu actives à true la propriété mechild!
http://www.dotnetheaven.com/article/...s-using-vb.net

https://msdn.microsoft.com/en-us/lib...v=vs.110).aspx

[didpoy]

Ok Merci, je vais étudier tout ça...

Encore Merci.

Cordialement.

[didpoy]

Re moi

Le principe de MDI semble une option possible et plus simple pour gérer mon projet, mais j'aimerai rendre le form Parent transparent et cela ne semble pas si simple !!!!

Je cherche sur le net.

J'ai trouvé un code qui fonctionne mais en C et pas évident à convertir en Vb.net:

https://www.codeproject.com/Articles...DI-Parent-Form

merci.

[ZenZiTone]

Je n’arrive pas trouver l’astuce pour pouvoir déplacer les secondaires en même temps que la principal sauf lorsqu’il n’y a qu’une secondaire où cela fonctionne !!!

Pouvez-vous m'aider ?

J'aurais une question : pourquoi utiliser différents formulaires? Des contrôles utilisateurs pourraient-ils suffire?

[didpoy]

Chaque form secondaire doit pouvoir recevoir des informations différentes et surtout qu'elles puissent être déplacées sur le bureau aux endroits choisis par l'utilisateur et agrandies, réduites indépendamment du form principal...

Le fait d'utiliser la méthode ou pas MDI ne résout pas le problème.

Pour exemple, il y a quelques années un petit logiciel lecteur de Flux était basé sur ce principe: Klipfolio mais celui-ci n'étant plus développé et ne fonctionne plus à partir de Windows 8.
On le trouve encore en téléchargement par recherche sur moteur de recherche.

C'est un peu sur ce principe que j'aimerai développer mon projet...