Guten Morgen,
ich bin auf der Suche nach einer Möglichkeit einen Newsticker in eine Schablone einzubauen.
Hintergrund:
Ich habe in unserem Bereich ein InfoDesk eingerichtet, wo bestimmte Personen Informationen, Dienstpläne etc. veröffentlichen.
Dort möchte ich ein kleines Fenster haben, was einen NewsTicker NewsTicker NewsTicker NewsTicker NewsTicker NewsTicker
hat. So wie hier.
Kann mir da jemand helfen das zu verwirklichen?
Als Info, ich bin noch nicht der beste im Basteln von Schablonen
Danke schon mal vorab für Eure Geduld.
Gruß
Patrique
Also bei mir gehts- zwar nur Lokal, aber es geht. Aufm Server muss das doch dann auch gehen.
Ich hab einfach das Applet in eine Maske eingefügt und diese in einen Rahmen eingebunden. Die Maske hat von mir einen Button bekommen, der folgenden Code hat
Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim view As notesview
Dim uidoc As NotesUIDocument
Dim ws As New NotesUIWorkspace
Set db = s.CurrentDatabase
Set view = db.GetView("ticker")
Set uidoc = ws.CurrentDocument
If uidoc Is Nothing Then
Msgbox "Es ist ein Fehler aufgetreten!"
Exit Sub
Else
' Call uidoc.Reload
Call view.Refresh
Call uidoc.Refresh
End If
End Sub
Und noch ein Feld "Saveoptions" mit "1" rein und fertig. Wenn der Text geändert wird, muss nur der Knopf gedrückt werden und der neue text steht da...
Klaus, habe ich was übersehen? So ein Hexenwerk war das nun nicht...
Sicherlich knallt es gleich, wenn ich die DB auf den Server haue ;D
Matthias