Scrollbar

[valheru]

Hallo,
ich habe eine Microsoft Forms Scrollbar in einer Maske. Der Schieberegler soll  beim erneuten Öffnen des Dokuments auf der gleichn Position wie beim letzten Schließen (mit Speichern) stehen. Dazu habe ich mir ein Feld angelegt, in das ich die Position des Schiebereglers auslese.
Wie kann ich beim Öffnen des Dokuments den Schieberegler wieder auf die Position des Felds setzen. (Mein Problem ist dabei: wie greife ich auf die Scrollbar zu, diese hat zwar ein Initialize-Event, Dieses bringt aber kein Parameter Source as Scrollbar mit.)
Momentan hat der Benutzer auch noch die Möglichkeit, die Scrollbar im Dokument zu verschieben. Ist das abstellbar?
Vielen Dank schonmal für Eure Hilfe!
Besten Gruß, valheru.

[ata]

... bist du sicher, daß du im richtigen Forum bist - ist das nun Notes oder MS?

... beschreibe doch mal genauer, was du da wie mit Schieberegeler gebaut hast?


ata

[valheru]

Hallo,
ich habe die Scrollbar eingefügt unter Erstellen/Objekt/Steuerelement/Ms Forms 2.0 Scrollbar. Der Benutzer soll den Schieberegler verstellen können und diese Einstellung soll mitgespeichert werden. Das ist auch alles, was an Funktionalität dahinter steckt.
Zur Einordnung des Themas:  Da bei mir das Problem ist, unter Notes über das Dokument oder was auch immer z.B. in Postopen an die dort enthaltene Scrollbar zu kommen, halte ich das ganze mehr für ein Notes-Thema.
Gruß, valheru.    

[ata]

... in der Referenz der Objekte kannst du dir die OLE-Objekte anzeigen lassen. Dort müsste eigentlich dein Objekt aufgelistet sein.

... um das Objekt zu initialisieren verwendest du den Standardweg, wie man ein OLE-Objekt eben initialisiert...

... mit der Referenz der Objekte musst dann eben über den Debugger versuchen an die Objekte heranzukommen...

ata

[pippo]

Hallo,
keine Ahnung, ob es Dich noch gibt??? oder ob Dich dieser Beitrag noch interessiert???
damit kannst Du auf die Scrollbar zugreifen.
Aber freu Dich nicht zu früh, das geht nur im Editmode.
Zudem kann der User die Größe beliebig ändern.
Bin darauf gestoßen weil ich dringend so einen Scrollbar brauche

Also: wer kennt den bessere Scrollbars?

schönen Abend!

------------------------------------------
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws. currentdocument
   
Set Scroll = uidoc.getobject("Microsoft Forms 2.0 ScrollBar")
Scroll.max = 0
Scroll.max = 5000
Scroll.value = uidoc.Document.unbenannt(0)