私の要件は、何百ものビューがあることです。標準の色やUIにしたい。シンプルな私は NotesViewColumn クラスによって列ヘッダーと列値のフォントの色を変更するために使用しています。しかし、どのクラスがアクションバーやビューの代替色、ヒーラースタイルなどのプロパティを持っているかはわかりません。
javascript も歓迎ですが、デザイナー レベルでそのプロパティを変更する必要があります。
前もって感謝します
私の要件は、何百ものビューがあることです。標準の色やUIにしたい。シンプルな私は NotesViewColumn クラスによって列ヘッダーと列値のフォントの色を変更するために使用しています。しかし、どのクラスがアクションバーやビューの代替色、ヒーラースタイルなどのプロパティを持っているかはわかりません。
javascript も歓迎ですが、デザイナー レベルでそのプロパティを変更する必要があります。
前もって感謝します
このエージェントを実行して、(小さな)テストデータベースのすべてのビューを別の行の色に変更しましたが、機能しました。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim exporter As NotesDXLExporter
Dim importer As NotesDXLImporter
Dim out As String
Dim infile As string
Dim pointer As long
Dim filenum As Integer
Dim altrow As integer
Dim unid As String
Dim doc As notesdocument
Set db = session.currentdatabase
Set exporter = session.Createdxlexporter
Set importer = session.Createdxlimporter
Dim count As Integer
count = 1
ForAll v In db.views
unid = v.UniversalID
Set doc = db.getdocumentbyunid(unid)
out = exporter.Export(doc)
altrow = instr(out, "altrowcolor")
If altrow > 0 Then
pointer = InStr(altrow, out, "=")
out = Left(out,pointer) & "'#f7f7f7'" & Mid(out, pointer+10)
else
pointer = InStr(out, "bgcolor=")
pointer = InStr(pointer, out, " ")
out = Left(out,pointer) & "altrowcolor='#f7f7f7' " & Mid(out, pointer+1)
End if
Call importer.setinput(out)
Call importer.setoutput(db)
importer.Designimportoption = 5
importer.Documentimportoption = 5
Call importer.Process()
out = ""
infile = ""
count = count + 1
End ForAll
Print count & " views processed"
End Sub
ビューのデザインがはるかに大きい場合は、「出力」に文字列の代わりにNotesStreamを使用することをお勧めします。その場合、ヘルプファイルから、インポートに使用する前に、ストリームを閉じて再度開く必要があると思います。
さらに調査するために、ファイルに「出力」を書き込み、xmlを調べて他の「非表示」パラメーターを見つけることをお勧めします。楽しんでね、フィル
次の 3 つのオプションがあります。
それが役立つことを願っています
ezViewもお勧めできます。ビューを変更するのは簡単です。また、actionBarEZを使用して、アプリケーション間でアクションバーを変更します。Domino Designerで使用するいくつかの異なる開発ツールについてブログを書きました。ここにエントリがあります:http ://www.bleedyellow.com/blogs/texasswede/entry/mydevelopmenttools