none
Programme visual basic avec 2 écrans sur pc RRS feed

  • Question

  • Salut

    Je viens de mettre 2 écrans sur mon pc et le programme que j'utilise depuis maintenant 2 ans... affiche des fois dans l'écran de gauche.. des fois dans l'écran de droite.. des fois une fenêtre restera à gauche alors que la nouvelle qui s'ouvre s'ouvrira à droite..

    y aurait-il quelque chose à écrire pour que la gestion des fenêtres se fasse mieux?

    Merci

    Pierre


    La vie est belle!

    mercredi 7 septembre 2016 20:54

Réponses

  • Bonjour,

    Voici ce que j'ai écrit il y a déjà quelque temps et cela fonctionne toujours

    Private Sub DualMonitor()
    
            Try
                Dim myScreens() As Screen = Screen.AllScreens
    
                With myScreens
                    If .Length >= 2
                        Dualmonitor2()
                        Return
                    End If
                    If .Length >= 2
                        Dualmonitor1()
                        Return
                    End If
                End With
    
            Catch ex As Exception
                
            End Try
        End Sub
    
        Private Sub Dualmonitor1()
            Try
                Dim screen As Screen
    
                WindowState = FormWindowState.Normal
                screen = Screen.AllScreens(0)
    
                StartPosition = FormStartPosition.Manual
    
                Location = screen.Bounds.Location
    
                WindowState = FormWindowState.Maximized
                Show()
    
            Catch ex As Exception
    
            End Try
        End Sub
    
     Private Sub Dualmonitor2()
            Try
                Dim screen As Screen
    
                WindowState = FormWindowState.Normal
                screen = Screen.AllScreens(1)
    
                StartPosition = FormStartPosition.Manual
    
                Location = screen.Bounds.Location
    
                WindowState = FormWindowState.Maximized
                Show()
    
    
            Catch ex As Exception
    
            End Try
        End Sub


    Et dans un bouton dans la barre de menu afin de passez d'un écran à un autre

    DualMonitor()

    Si vous voulez mettre en mémoire l'écran sélectionné il suffit d'ajouter dans DualMonitor() une condition en plus

    Private Sub DualMonitor()
    
            Try
                Dim myScreens() As Screen = Screen.AllScreens
    
                With myScreens
                    If .Length >= 2 AndAlso My.Settings.dualmonitor = 1 Then
                        Dualmonitor2()
                        Return
                    End If
                    If .Length >= 2 AndAlso My.Settings.dualmonitor = 2 Then
                        Dualmonitor1()
                        Return
                    End If
                End With
    
            Catch ex As Exception
            
            End Try
        End Sub

    Cordialement.


    ZGuideTV.NET - administrator/developer

    jeudi 8 septembre 2016 07:53

Toutes les réponses

  • Bonjour,

    Voici ce que j'ai écrit il y a déjà quelque temps et cela fonctionne toujours

    Private Sub DualMonitor()
    
            Try
                Dim myScreens() As Screen = Screen.AllScreens
    
                With myScreens
                    If .Length >= 2
                        Dualmonitor2()
                        Return
                    End If
                    If .Length >= 2
                        Dualmonitor1()
                        Return
                    End If
                End With
    
            Catch ex As Exception
                
            End Try
        End Sub
    
        Private Sub Dualmonitor1()
            Try
                Dim screen As Screen
    
                WindowState = FormWindowState.Normal
                screen = Screen.AllScreens(0)
    
                StartPosition = FormStartPosition.Manual
    
                Location = screen.Bounds.Location
    
                WindowState = FormWindowState.Maximized
                Show()
    
            Catch ex As Exception
    
            End Try
        End Sub
    
     Private Sub Dualmonitor2()
            Try
                Dim screen As Screen
    
                WindowState = FormWindowState.Normal
                screen = Screen.AllScreens(1)
    
                StartPosition = FormStartPosition.Manual
    
                Location = screen.Bounds.Location
    
                WindowState = FormWindowState.Maximized
                Show()
    
    
            Catch ex As Exception
    
            End Try
        End Sub


    Et dans un bouton dans la barre de menu afin de passez d'un écran à un autre

    DualMonitor()

    Si vous voulez mettre en mémoire l'écran sélectionné il suffit d'ajouter dans DualMonitor() une condition en plus

    Private Sub DualMonitor()
    
            Try
                Dim myScreens() As Screen = Screen.AllScreens
    
                With myScreens
                    If .Length >= 2 AndAlso My.Settings.dualmonitor = 1 Then
                        Dualmonitor2()
                        Return
                    End If
                    If .Length >= 2 AndAlso My.Settings.dualmonitor = 2 Then
                        Dualmonitor1()
                        Return
                    End If
                End With
    
            Catch ex As Exception
            
            End Try
        End Sub

    Cordialement.


    ZGuideTV.NET - administrator/developer

    jeudi 8 septembre 2016 07:53
  • merci beaucoup

    je te reviens la dessus


    La vie est belle!

    vendredi 9 septembre 2016 15:10