Word-VBA UserForm.Top

Computer: Software & Programmierung Visual Basic
#1

Hallo,

ich habe eine UserForm welche - bei Bedarf - weitere Eingabezeilen für den Nutzer erstellt und einblendet. Das klappt auch soweit ohne Probleme.

Nun habe ich erst einmal die „StartUpPosition“ bei „Bildschirmmitte“ eingegeben und „Top = 0“.
Jetzt ist das Problem: werden zuviele Zeilen eingeblendet wächst die UserForm nach unten aus dem Monitor heraus :-/.

Wie kann man erreichen dass er (zb ab einer bestimmten UserForm-Höhe) diesen weiter oben anzeigt (die Form sozusagen nach oben rutscht)?

LG Tobi@s

#2

Hallo,

Nun habe ich erst einmal die „StartUpPosition“ bei
„Bildschirmmitte“ eingegeben und „Top = 0“.
Jetzt ist das Problem: werden zuviele Zeilen eingeblendet
wächst die UserForm nach unten aus dem Monitor heraus :-/.

Wie kann man erreichen dass er (zb ab einer bestimmten
UserForm-Höhe) diesen weiter oben anzeigt (die Form sozusagen
nach oben rutscht)?

Top darf auch negativ sein. Du kannst also die Form per Code nach oben verschieben. Nur kannst Du dann die Form nicht mehr so einfach mit der Maus verschieben, weil die Titelzeile nicht mehr sichtbar ist. Du musst dann anders dafür sorgen, daß man die Form verschieben kann, wenn das gewünscht ist, vor allem musst Du dafür sorgen, daß man die Form noch schließen kann.

Wenn es so viele Zeilen werden, würde ich den Text anders unterbringen und dafür sorgen, daß man scrollen kann. Dafür gibt es mehrere Möglichkeiten.

Gruß Rainer

#3

Hallo Tobias,

ich habe eine UserForm welche - bei Bedarf - weitere
Eingabezeilen für den Nutzer erstellt und einblendet. Das
klappt auch soweit ohne Probleme.

ich weiß nicht was da klappt, in eine UF kann man direkt nix eingeben.
Bedeutet es was du sagst, bei Bedarf werden in der UF weitere Textboxen erzeugt oder was meinst du damit?

Nun habe ich erst einmal die „StartUpPosition“ bei
„Bildschirmmitte“ eingegeben und „Top = 0“.

Die StartupPostion entscheidet, bei dir kannste bei Top eingeben wasde willst, ändert nix.
Ist anders wenn du bei Startupposition „manuell“ auswählst.

Jetzt ist das Problem: werden zuviele Zeilen eingeblendet
wächst die UserForm nach unten aus dem Monitor heraus :-/.

Wie kann man erreichen dass er (zb ab einer bestimmten
UserForm-Höhe) diesen weiter oben anzeigt (die Form sozusagen
nach oben rutscht)?

Indem du Top verminderst.
Problematiken hat ja schon Rainer aufgezeigt und auch anderes erwähnt.
Oder wenn die eine UF „voll“ ist, eine zweite nebendran aufmachen…

Gruß
Reinhard

#4

Hallo Rainer,

Top darf auch negativ sein. Du kannst also die Form per Code
nach oben verschieben.

Heute nacht hatte ich den selben Gedanken. Schön dass er stimmt. Ich habs bereits ausprobiert :smile:

Nur kannst Du dann die Form nicht mehr
so einfach mit der Maus verschieben, weil die Titelzeile nicht
mehr sichtbar ist. Du musst dann anders dafür sorgen, daß man
die Form verschieben kann, wenn das gewünscht ist, vor allem
musst Du dafür sorgen, daß man die Form noch schließen kann.

Wenn es so viele Zeilen werden, würde ich den Text anders
unterbringen und dafür sorgen, daß man scrollen kann. Dafür
gibt es mehrere Möglichkeiten.

Nein, das ist kein Problem. Ich habe einen „Max-Wert“ eingetragen (den ich jetzt anpassen werde) so dass die Nutzer die UserForm nie mit so viel Zeilen füllen könnte das die Titelzeile außerhalb des Monitors wäre.

LG Tobi@s

#5

Hallo Reinhard,

ich weiß nicht was da klappt, in eine UF kann man direkt nix
eingeben.
Bedeutet es was du sagst, bei Bedarf werden in der UF weitere
Textboxen erzeugt oder was meinst du damit?

richtig, eine Zeile von Textfeldern und Comboboxen …

Nun habe ich erst einmal die „StartUpPosition“ bei
„Bildschirmmitte“ eingegeben und „Top = 0“.

Die StartupPostion entscheidet, bei dir kannste bei Top
eingeben wasde willst, ändert nix.
Ist anders wenn du bei Startupposition „manuell“ auswählst.

Indem du Top verminderst.
Problematiken hat ja schon Rainer aufgezeigt und auch anderes
erwähnt.
Oder wenn die eine UF „voll“ ist, eine zweite nebendran
aufmachen…

das mit der zweiten UF ist nicht notwendig. So viele Zeilen brauch ich dann auch nicht :smile:

LG und danke für die Gedanken
Tobi@s