Feldwert mit Schaltfläche auslesen

[Jens_1]

Hallo!

Ich benötige mal wieder einen leichten Schlag auf den Hinterkopf....  

Wenn ich mit einer Schaltfläche den Feldwert einer Checkbox auslesen möchte, wie kriege ich dann den Feldwert zu fassen?
Über ein globale Variable oder über "getFirstItem" des Dokuments?

Und wenn ersteres der Fall sein sollte - wie mache ich den Inhalt der Checkbox global verfügbar?

Danke für die Tips!

Gruß
 Jens

[jBubbleBoy]

Das sind aber Grundlagen! Die Checkbox verhält sich wie ein normales Textfeld mit Mehrfachwerten.

Was soll "global" bedeuten? Eine Schaltfläche ließt ein, eine andere Schaltfläche verarbeitet den eingelesnen Wert?

[Jens_1]

Ja - das mit den Grundlagen ist klar. Leider bin ich aber nur Gelegenheitsprogrammierer auf Eigeninitiative mit wenig Gelegenheit zum Scripten. Das kommt erlerntes schnell wieder abhanden... 

Zum Thema:
Ich definiere eine Checkbox mit den Namen "Checkbox" mit 3 Werten. 1 Wert ist vorbelegt.

Dann eine Schaltfläche im selben Dokument mit dem Code:

Sub Click(Source As Button)
   Msgbox checkbox
End Sub

Theoretisch müsste die Schaltfläche mir doch den Inhalt der Checkbox geben - oder nicht?
Wobei mir gerade mit dem Debugger aufgefallen ist, daß der Variable "Checkbox" gar kein Wert zugewiesen wird.

Irgendwo stehe ich doch da gerade ganz mächtig auf der Leitung..... 

Gruß
 Jens

[TRO]

Sub Click(Source As Button)
   dim ws as New NotesUIWorkspace
   dim uidoc as NotesUIDocument
   dim doc as NotesDocument

   set uidoc = ws.CurrentDocument
   set doc = uidoc.Document
   Msgbox doc.GetItemValue( "checkbox" )(0)
End Sub


hth

Thomas

[Peter Klett]

Sub Click(Source As Button)
   'Dokument initialisieren
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   Dim doc As NotesDocument
   Set doc = uidoc.Document

   'Inhalt der Checkbox (Mehrfachwerte) in einen String umwandeln
   Dim msg As String
   Forall checkbox in doc.Checkbox
      msg = msg & ", " & checkbox
   End Forall

   'String ausgeben
   Msgbox Mid (msg, 3)
End Sub

[Jens_1]

Danke Euch beiden!

Also war mein zweiter Ansatz zumindest die richtige Marschrichtung!

Schönes Wochenende!

Gruß
 Jens