Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Button1.Text = "Ouvrir Form2" End Sub Private Sub Form1_LocationChanged(sender As Object, e As EventArgs) Handles MyBase.LocationChanged, MyBase.ResizeEnd PositionForm2() End Sub Private Sub PositionForm2() Form2.Top = Me.Top 'Form2 est à la même hauteur que Form1 Form2.Left = Me.Left + Me.Width 'Form2 est à droite de Form1 End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Form2.Show() PositionForm2() End Sub End Class
Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Button1.Text = "Ouvrir Form2" End Sub Private Sub Form1_LocationChanged(sender As Object, e As EventArgs) Handles MyBase.LocationChanged, MyBase.ResizeEnd PositionForm2() End Sub Private Sub PositionForm2() Form2.Top = Me.Top 'Form2 est à la même hauteur que Form1 Form2.Left = Me.Left + Me.Width 'Form2 est à droite de Form1 End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Form2.Show() PositionForm2() End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.Size = New Size(300, 0) Me.Left = Form2.Right - 380 Me.Top = Form2.Top + 400 End Sub End Class
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Me.Size = New Size(300, 0) Me.Left = Form1.Right - 380 Me.Top = Form1.Top + 400 End Sub
Private Sub PositionForm2() Form2.Top = Me.Top 'Form2 est à la même hauteur que Form1 Form2.Left = Me.Left + Me.Width 'Form2 est à droite de Form1 End Sub
Private Sub PositionForm2() Form2.Top = Me.Top 'Form2 est à la même hauteur que Form1 Form2.Left = CInt(Me.Left + Me.Width / 2) Form2.TopMost = True End Sub
Public Class Form1 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Button1.Text = "Ouvrir Form2" End Sub Private Sub Form1_LocationChanged(sender As Object, e As EventArgs) Handles MyBase.LocationChanged, MyBase.ResizeEnd PositionForm2() End Sub Private Sub PositionForm2() If Form2.button2clic Then Form2.Top = Me.Top + 300 Form2.Left = Me.Left + 300 End If End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Form2.Show() PositionForm2() End Sub End Class
Public Class Form2 Public button2clic As Boolean = False Public Sub button2_clic(sender As Object, e As EventArgs) Handles Button2.Click button2clic = True End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.Size = New Size(300, 0) Me.Left = Form1.Left + 300 Me.Top = Form1.Top + 300 End Sub Friend Shared Sub center() Throw New NotImplementedException() End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMe.AddOwnedForm(Form2) Form2.Show()