Domino 9 und frühere Versionen > ND6: Entwicklung

NoRefresh-Haken bei Designelementen per Script setzen

<< < (2/3) > >>

TMC:
Danke für den Hinweis Jo.
War mir so noch nicht aufgefallen, aber stimmt, hab das gerade getestet.

Matthias

theBastian:
Hallo,

komme leider erst jetzt wiedr dazu, mich mit dem Script zu beschäftigen. Leider bin ich aber noch nicht viel weiter.

Habe mir den Code von TMC angeschaut und auch hoffentlich verstanden. Der Code erstellt Collection und durchläuft alle Designelemente. Und ich könnte die Elemente bearbeiten.

Ich brauche aber nicht alle sondern nur das DB-Icon. Das muss ich doch noch irgendwie selektieren, oder?

Sebastian

ascom40:
Hallo Sebastian,

wie war der Urlaub  8)

du musst da alle Designelemente durchlaufen und dann mit dem Construct

If docDesign.HasItem("IconBitmap") Then
    Msgbox "Treffer ! Datenbankicon erwischt"
End If

feststellen, wann du das Icon erreicht hast.

Dann statt obiger "Msgbox" das Flag entsprechend setzen und docdesign saven.

Aber Vorsicht, ich hab da schonmal erlebt, dass die so zurechgestutzten Datenbanken (ohne Designtask-Lauf) plötzlich ein Mischdesign aus aktuellem und vorherigen Design hatten, da war das Geschrei groß  >:D

Ein "load convert ..." hat das wieder korrigiert und auch gleich das Icon aktualisiert.

Jo

theBastian:
Hi,

mein Code sieht jetzt so aus:

If docDesign.HasItem("IconBitmap") Then
Call docdesign.ReplaceItemValue( "$Flags", "R" )
Call docdesign.Save( True, True )
End If

Getestet und für gut befunden.
Der läuft kurz vor dem Design Task und ev. Fehler, die entstehen, sollten danach wieder ok sein.

Mal sehen. Danke für Eure Hilfe.

cu
Sebastian

datenbanken24:

--- Zitat ---Ich brauche aber nicht alle sondern nur das DB-Icon. Das muss ich doch noch irgendwie selektieren, oder?

--- Ende Zitat ---

Das paßt zwar nicht ganz zur Frage oben,
aber wenn Du wirklich nur das Designelement mit dem DB-Icon suchst,
das hat immer die gleiche ID "FFFF0010"

Set doc = db.GetDocumentByID("FFFF0010")
'This is the Icon Design Element


doc.ReplaceItemValue("$Flags", doc.GetItemValue("$Flags")(0) & "x" )
'Where x is the flag value you want to set

doc.Save (...)

http://www.atnotes.de/index.php?topic=17582.0

Dort kann man aber nur die Gestaltungseigenschaften der gesamten Datenbank ändern - nicht für jedes Designelement.

Gruß,
Uwe

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete