3 pièce(s) jointe(s)
Soucis avec déplacement de Form Secondaires
Bonjour à tous,
PROBLÈME avec Création De Formulaire depuis VB.net
:furieux:
J’ai un module qui contient (même si ce n’est pas terrible) :
Code:
1 2
|
Public NvForm As New FLux_Form() |
J’ai un form principale :
Pièce jointe 330882
Je crée plusieurs form secondaires :
Pièce jointe 330886
Code dans form_Principale :
Code:
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:
Pièce jointe 330888
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:
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.
:pc: