[VB6 Excel] Resolutie aftesten

[Verwijderd]

In excel ben ik bezig met een userform. Dit userform is past netjes in me scherm(1024/768), maar al bekijk ik dit userform in een resolutie van 800/600 dan is deze te groot.


Je kan via de zoom functie dit kleiner laten maken, maar nu wil ik een code maken die controleert wat de resolutie is en aan de hand daarvan de zoom aanpast.
(Het userform wordt automatisch gestart zodra het excel sheet wordt gestart)

Via het forum en google heb ik al gezocht, maar krijg niet het juiste resultaat.

Iemand idee?

[OZ-Gump]

Jazeker wel een idee. Zoeken op google groups bijvoorbeeld, want dan krijg je dit topic, waar zelfs een volledig code-voorbeeld staat.

Is overigens getest hiero, en het werkt

[ Voor 9% gewijzigd door OZ-Gump op 09-07-2003 13:06 ]

[Verwijderd]

Bedankt voor je hulp OZ-Gump.

Hier de uitendelijke code voor diegene die het intresseren..

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

In Function
w = GetSystemMetrics32(0) ' width in points
h = GetSystemMetrics32(1) ' height in points

resolutie = (w & h)

If resolutie = "800600" Then
UserForm1.Zoom = 90
UserForm1.Width = 541
UserForm1.Height = 408
Else
If resolutie = "640480" Then
UserForm1.Zoom = 75
UserForm1.Width = 452
UserForm1.Height = 344
Else
UserForm1.Zoom = 100
UserForm1.Width = 602
UserForm1.Height = 451
End If
End If

[OZ-Gump]

Hier de uitendelijke code voor diegene die het intresseren..

Ik zou willen dat meer mensen dat deden

[curry684]

Misschien een stom idee maar werkt dit niet beter:

Visual Basic:

Form1.Width  = GetSystemMetrics32(0) * 0.75
Form1.Height = GetSystemMetrics32(1) * 0.75
Form1.Zoom   = (Form1.Width * 100) / 800