Domino 9 und frühere Versionen > Entwicklung

Hilfe bei Lotus Script

(1/5) > >>

tuelb:
Will eine messagebox mit dem inhalt eines Textfeldes(test) der aufgerufenen Maske machen.

Wie geht das?

Sub Initialize
   Dim wert As String
   wert = test    <--???
                Msgbox wert
End Sub

 ???

Rob Green:
aus der Help von Notes, nur etwas abgewandelt (KLasse NOTESUIDOCUMENT..gibt natürlich noch viele andere Wege)


Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim composed As String
  Set uidoc = workspace.CurrentDocument
  composed = uidoc.FieldGetText( "DateComposed" )
 msgbox composed

Oder über die Backendklasse
Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Dim composed As String
Dim doc as NotesDocument
  Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
 msgbox Cstr(doc.FELDABC(0) )
' die 0 steht für den ersten Wert des Feldes, falls es ein Multivalue ist

ata:
@Rob

--- Zitat ---' die 0 steht für den ersten Wert des Feldes, falls es ein Multivalue ist
--- Ende Zitat ---
... das ist inhaltlich nicht ganz richtig. Über das Backend sind Nicht-MultipleValue-Felder ebenfalls ein Array, aber eben nur mit einem Element mit dem Index (0)...

... nur um keine falschen Schlüsse zuzulassen...

ata

Rob Green:
ok, Maestro, damit wir korrekt bleiben
 :)

tuelb:
Mmh.habe das in den globalen Teil der Maske/Initialize eingetragen:
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Dim composed As String
   Set uidoc = workspace.CurrentDocument
->hier wird gemeckert  ???   
composed = uidoc.FieldGetText( "ipaddr1" ) 'mein Textfeld ipaddr1
   
   Msgbox composed


Fehlermeldung "Objektvariable not set!" ???

Das  andere habe ich auch ausprobiert, gleiche Fehlermeldung???

Navigation

[0] Themen-Index

[#] Nächste Seite