Hi All,
in this Me.Height give wright result but Me.Width give multiple of two monitor width so application streched in both monitor.Code: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
under form_load
we have written
could you please help me to solve this issue.Code: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
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




Reply With Quote
