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 :
Nom : form_principale.jpg
Affichages : 335
Taille : 3,2 Ko

Je crée plusieurs form secondaires :
Nom : form_secondaires.jpg
Affichages : 276
Taille : 8,4 Ko
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:
Nom : resultat.jpg
Affichages : 290
Taille : 9,5 Ko

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.