VBA and Screen video resolution

[davidm]

What is the right syntax to set screen video resolution. I need this to scale a userform relative to a user's setting. For an illustration,

IF Application.Windows.Vidwith = 800 And _ 
Application.Windows.vidHeight=600 Then

Me.Height=75
Me.Width=60

ElseIf Application.Windows.Vidwith = 1024 And _ 
Application.Windows.VidHeight=876 Then

Me.Height=75*1.3
Me.Width=60*1.3
Me.Zoom=130

End if

TIA

[Paul]

Hi davidm,

Try something like this code into the form's initialize event:

Private Sub UserForm_Initialize()
Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points
    
    If w = 800 And h = 600 Then
        Me.Width = 75
        Me.Height = 60
    ElseIf w = 1024 And h = 768 Then
        Me.Width = 75 * 3
        Me.Height = 60 * 2
        Me.Zoom = 130
    ElseIf w = 1280 And h = 1024 Then
        Me.Width = 75 * 4
        Me.Height = 75 * 3
        Me.Zoom = 200
    Else
        MsgBox "What kind of resolution are you using?!?"
    End If
    End Sub

And this code in a standard module:

Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

[davidm]

Many thanks Paul. It worked it a treat! I had all the time sensed the solution might require a Windows API call but couldn't quite figure how to get round it. Once again, many thanks.

[royUK]

If you intend adjusting the UserForm size according to the screen rewsolution, how are you going to re-position/ rezize controls on the UserForm?

[broro183]

hi all

It looks like there are still some problems with the site, eh Roy?

Repetition, repetition, repetition is the key!
;-)

Sorry, I couldn't help myself after having 1/2 a dozen errors myself, this made me chuckle & I've probably done the same thing on other threads tonight.

:-)
Rob

[royUK]

hi all

It looks like there are still some problems with the site, eh Roy?

Repetition, repetition, repetition is the key!
;-)

Sorry, I couldn't help myself after having 1/2 a dozen errors myself, this made me chuckle & I've probably done the same thing on other threads tonight.

:-)
Rob

Hi Rob

I spent ages trying to post the item, then it posted it 3 times. Then I spent a similar amount of time trying to delete the extra ones!

It is getting too frustrating here, if it doesn't get sorted soon I won't bother. I'll stick to my site & it's Forrum!

[Paul]

Roy,

I think the 'Me.Zoom =' lines handle "resizing" the controls when the form size is changed. The zoom numbers I put in the code were just for example.