UserForm / verschiedene Desktop-Auflösungen berücksichtigen

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von mumpel.

    UserForm / verschiedene Desktop-Auflösungen berücksichtigen

    Hallo!

    Ich habe in Excel mehrere UserForms.
    Bei mir auf dem "Entwicklungs-"Rechner habe ich eine Auflösung von 2560 x 1440.
    Wenn ich aber nun meine Excel-Mappe auf nem Laptop mit nur 1024 x 768 px laufen lasse sind die UserForms recht überdimensioniert!

    Ich hab jetzt schon nach Umrechnungsmethoden gesucht und bin jetzt dabei das Auflösungs-Verhältnis zu berechnen.

    Seitenverhältnis: 1,77777777777778 bei Auflösung von 2560 x 1440
    Seitenverhältnis: 1,33333333333333 bei Auflösung von 1024 x 768

    Jetzt muss ich irgendwie die Form und jedes Control mit dem Seitenverhältnisfaktor bearbeiten..
    ..hat da schonmal jemand sowas gemacht?

    Ich bediene mich der GetSystemMetrics Funktion aus der user32-Lib um an die aktuelle Auflösung zu kommen.

    GetSystemMetrics:
    Spoiler anzeigen
    ​

    Visual Basic-Quellcode

    1. ​
    2. Public Const SM_CXSCREEN = 0
    3. Public Const SM_CYSCREEN = 1
    4. Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long



    Spoiler anzeigen
    ​

    Visual Basic-Quellcode

    1. ​
    2. Private Sub testForm()
    3. Dim FormControl As MSForms.Control
    4. Dim X_SizeCoefficient As Double
    5. Dim Y_SizeCoefficient As Double
    7. '2560 x 1440
    8. Dim X_Resol_Std As Long '100 % Standard-Auflösung / Horizontal / 2560
    9. Dim Y_Resol_Std As Long '100 % Standard-Auflösung / Vertikal / 1440
    10. Dim X_Resol As Long 'ausgelesene Auflösung / Horizontal
    11. Dim Y_Resol As Long 'ausgelesene Auflösung / Vertikal
    13. ' X_Resol_Std = 2560
    14. ' Y_Resol_Std = 1440
    15. X_Resol_Std = 1024
    16. Y_Resol_Std = 768
    18. X_Resol = GetSystemMetrics(SM_CXSCREEN)
    19. Y_Resol = GetSystemMetrics(SM_CYSCREEN)
    21. Debug.Print ("Breite: " & X_Resol & " x Höhe: " & Y_Resol)
    22. Debug.Print ("Seitenverhältnis: " & X_Resol / Y_Resol)
    23. Debug.Print ("Seitenverhältnis: " & X_Resol_Std / Y_Resol_Std)
    25. X_SizeCoefficient = X_Resol * 100 / X_Resol_Std
    26. Y_SizeCoefficient = Y_Resol * 100 / Y_Resol_Std
    28. Debug.Print (X_SizeCoefficient & " x " & Y_SizeCoefficient)
    31. ' SizeCoefficient = 1 'inputNumber("Scale Factor: ", "Form", 1)
    32. '
    33. '
    34. ' With Me
    35. ' .Top = .Top * SizeCoefficient
    36. ' .Left = .Left * SizeCoefficient
    37. ' .Width = .Width * SizeCoefficient
    38. ' .Height = .Height * SizeCoefficient
    39. ' End With
    40. ' For Each FormControl In Me.Controls
    41. ' With FormControl
    42. ' .Top = .Top * SizeCoefficient
    43. ' .Left = .Left * SizeCoefficient
    44. ' .Width = .Width * SizeCoefficient
    45. ' .Height = .Height * SizeCoefficient
    46. '
    47. ' On Error Resume Next
    48. ' .Font.Size = .Font.Size * SizeCoefficient
    49. ' On Error GoTo 0
    50. ' End With
    51. ' Next FormControl
    53. End Sub
    54. Private Function inputNumber(prompt As String, title As String, defValue As Variant) As Variant
    55. inputNumber = Application.InputBox(prompt, title, defValue, , , , , 1)
    56. End Function

    Ich würde eine Minimalgröße zur Entwurfszeit definieren (irgendwann ist es schließlich klein genug bzw. zu klein) und ab da nur noch vergrößern. Und zwar im Form_Resize()-Ereignis. Gemacht habe ich sowas schon häufig.

    Standardmäßig würde ich die Forms beim 1. Programmstart entweder auf Vollbild oder auf x % der X- und Y-Auflösung setzen (z. B. jeweils 50 %). Das Seitenverhältnis spielt eigentlich keine Rolle.

    Bestimmte Dinge würde ich aber eher nicht verändern, z. B. Buttons. Nur solche DInge, bei denen mehr Platz sinnvoll ist, z. B. mehrzeilige Textboxen, Listviews usw.

    Nachtrag: Wenn du nur solche Dinge auf der Form hast, bei denen eine (vertikale) Größenänderung eigentlich nicht sinnvoll ist (z. B. einfach nur ein riesiges Eingabeformular mit Single-Line-Textboxen), dann ist diese wohl zu voll und du solltest diese in andere Forms oder besser in Tabs (Tabcontrol) auslagern. Oder du arbeitest einfach mit Scrollbars.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

    Morrison schrieb:

    mit nur 1024 x 768 px

    Wer hat noch so kleine Auflösungen?

    Aber meiner Erfahrung nach nützt eine Skalierung nicht immer. Ich habe es schon erlebt, dass die Userform durch Skalierung trotzdem nicht gut nutzbar ist. Wenn ein Desktop-Monitor die selbe Auflösung hat wie der Notebook-Monitor, sieht es am Notebook trotzdem nicht gut aus. Alles wird kleiner, da die Pixel, im Vergleich zum Desktop-Monitor, auf dem Notebook-Bildschirm quasi zusammengequetscht sind (Die selbe Auflösung auf einer viel kleineren Fläche). Erst recht wenn der Notebook-Bildschirm eine höhere Auflösung hat. Das kann passieren, muss aber nicht. Daher, wie Marcus schon vorgeschlagen hat, besser mit Multiseiten arbeiten.

    Im Übrigen muss man nicht nur die Bildschirmauflösung berücksichtigen, sondern auch die Skalierung. Mein Notebook-Bildschirm hat die selbe Auflsöung wie mein Desktop-Monitor. Aber die Userform passt am Notebook trotzdem nicht komplett drauf, weil ich am Notebook 125% Skalierung einstellen muss, weil bei 100% alles viel zu klein ist (Ist aber m.E. logisch. Auf 12" die Auflösung eines 24-Zöllers. Das kann ja am 12-Zoll-Notebook-Bildschirm nicht genauso aussehen wie am 24-Zoll-Desktop-Monitor).

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mumpel“ ()