Tu cours le risques de te faire insulter. Je n'ai jamais insulter qqn sur un forum et je ne le ferai jamais, surtout si il nous aide.
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Button2.Enabled = False 'pour connaitre le nombre d'écrans connectés Dim nbre_écran As Integer nbre_écran = Screen.AllScreens.LongLength Label1.Text "Nombre d'écrans " & nbre_écran.ToString Dim écran As Screen = Screen.PrimaryScreen Label2.Text = "WorkingArea écran 1: " & Chr(13) & écran.WorkingArea.ToString If nbre_écran > 1 Then Label3.Text = "WorkingArea écran 2: " & Chr(13) & Screen.AllScreens(1).WorkingArea.ToString Button2.Enabled = True End If End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Me.Location = New System.Drawing.Point(Screen.PrimaryScreen.WorkingArea.Location.X + 100, Screen.PrimaryScreen.WorkingArea.Location.Y + 100) End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Me.Location = New System.Drawing.Point(Screen.AllScreens(1).WorkingArea.Location.X + 100, Screen.AllScreens(1).WorkingArea.Location.Y + 100) End Sub)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim nbre_ecran As Long nbre_ecran = Screen.AllScreens.LongLength
petit_rectangle.gauche = (grand_rectangle_largeur - petit_rectangle_largeur) / 2 petit_rectancle.haut = (grand_rectangle_hauteur - petit_rectangle_hauteur) / 2
Dim nbre_ecran As Long = Screen.AllScreens.LongLength