Discussion :

[MADA BLACK]

Bonjour Forum
Bonjour tout le monde
Se sera un tres grand bienfait si vous pouvez SVP m'aider a trouver une solution a mon probleme
Dans mon projet je possede Form1 et Form2
Comment faire par Command1 dans Form1 pour ouvrir Form2 exactement au milieu du Form1
Merci d'avance pour l'aide
Tres cordialement
MADA

[ProgElecT]

Salut

Dans Form1

Code :

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

1
2
3
Private Sub Command1_Click()
Load Form2
End Sub

Dans form2

Code :

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

1
2
3
4
5
Private Sub Form_Load()
Me.Top = Form1.Top + ((Form1.Height - Form2.Height) / 2)
Me.Left = Form1.Left + ((Form1.Width - Form2.Width) / 2)
Me.Visible = True
End Sub

[MADA BLACK]

Bonjour ProgElect
BRAVO
Merci gentil homme .. merci pour tes bienfaits .. tres gentil de votre part
Parfaitement resolu .. ce que je veux voir et avoir et plus
Amicalement
MADA