This commit is contained in:
Jonathan Jenne
2020-05-25 13:33:05 +02:00
parent cc8c3527c1
commit 1be142bb97
4 changed files with 66 additions and 53 deletions

View File

@@ -2,7 +2,7 @@
Imports System.IO
Public Class ClassWindowLocation
Public Shared Sub LoadFormLocationSize(ByRef form As Form)
Public Shared Sub LoadFormLocationSize(ByRef form As Form, Optional LoadSize As Boolean = True)
Try
Dim _path, _pathold As String
@@ -53,7 +53,7 @@ Public Class ClassWindowLocation
If x >= 0 And y >= 0 Then
form.Location = New Point(x, y)
End If
If w > 0 And h > 0 Then
If w > 0 And h > 0 And LoadSize = True Then
form.Size = New Size(w, h)
End If
End If