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) :
J’ai un form principale :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Public NvForm As New FLux_Form()
Je crée plusieurs form secondaires :
Code dans form_Principale :
Ce qui donne en résultat et à l'affichage:
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
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 :
EN RÉSUMÉ:
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
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.
Partager