Resolution

Does someone have code that makes a program's controls display correctly to fit the resolution of the computer that it's running on?

Thx.

yes, this should do it, however, it's a little buggy.

Code:

---

Private ResHeight As Integer
Private ResWidth As Integer
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0
Private Const SM_CYSCREEN = 1
Private Const Design_Width = 800 'set to Width Res of Design Enviroment
Private Const Design_Height = 600 ' set to Height res of Design Enviroment


Private Sub GetScreenResolution()
Dim lTemp As String
' Temporary string to hold returned screen
' resolution
ResWidth = GetSystemMetrics(SM_CXSCREEN)
ResHeight = GetSystemMetrics(SM_CYSCREEN)
' Call the API function twice to return
' screen size for each axis as format into
' the temporary string
End Sub

Private Sub ResizeAll()
GetScreenResolution
On Error Resume Next
Dim WidthProp As Double
Dim HeightProp As Double

Dim frm As Form

WidthProp = ResWidth / Design_Width

HeightProp = ResHeight / Design_Height

Dim Ctrl As Control

For Each frm In VB.Forms
    For Each Ctrl In frm.Controls
    If TypeOf Ctrl Is Label Then
      Ctrl.FontSize = Ctrl.FontSize * HeightProp
    End If
    If TypeOf Ctrl Is Image Then Ctrl.Stretch = True
        Ctrl.Height = Ctrl.Height * HeightProp
        Ctrl.Top = Ctrl.Top * HeightProp
        Ctrl.Left = Ctrl.Left * WidthProp
        Ctrl.Width = Ctrl.Width * WidthProp
        DoEvents
    End if
    Next
Next
End Sub

---

email me if you want a dll to do the job.

Wayne

I'll give gwdash's code a try (although I see that I'll need to alter it a bit because it only accounts for Labels and Images).

If I have problems, I'll send you an email HeSaidJoe.

Thx.

No problem..I have it a class module as well if you don't want the dll...I just find the dll is cleaner..with no messing around.

Thanks for reading.

Gwdash's code is incomplete and buggy (by his own admission) and HeSaidJoe didn't send me the dll after I emailed him. I said all that to say, will someone please post the code to make a program's controls display correctly to fit the resolution of the computer that it's running on?

Thanks.