VB.NET : Me.Width= Screen.Allscreen(0).Bound.Width give wrong result.

[AmitMckvie]

Hi All,

Private Sub Form1_Resize(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Me.Resize
        On Error Resume Next
        If Me.WindowState = 1 Then Exit Sub ' if minimized do not set width and height
        If Me.WindowState = 2 Then Exit Sub ' if maximized do not set width and height
        If testScaling = 0 Then
            testScaling = 1
        End If
        Me.Width = (Screen.AllScreens(0).Bounds.Width / testScaling)
        Me.Height = (Screen.AllScreens(0).Bounds.Height / testScaling)
End Sub

in this Me.Height give wright result but Me.Width give multiple of two monitor width so application streched in both monitor.


under form_load


we have written

Dim myScreens() As Screen = Screen.AllScreens
        Dim tempitem As Screen
        For Each tempitem In myScreens
            If tempitem.Primary = True Then
                mainscreen = tempitem
            End If
        Next
       Me.Width = myScreens(0).Bounds.Width
       Me.height= myScreen(0).Bounds.Height

could you please help me to solve this issue.

I maked my application as screen saver in window. Once window satrt it start my screen saver and in that case my application look strech because of Me.Width taking double of original value.


Kindly help me to resolve this issue. I tried several way but it is not working

[AmitMckvie]

My screen resolution is width=1920, Height=1080

But it showing Me.width=3840 and Me.Height= 1080

[OsamaA]

I tested this Code and it was working. can You Show Your Full Code?

[AmitMckvie]

Thanks you so much ,i did mistake,it is working fine