Dialogbox mittels LS

[mariab]

Hallo,

habe in einer Ansicht eine Aktionsschaltfläche welche eine Dialogbox aufruft. Hier der Code:

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase	
	Dim view As NotesView
	Set view = db.GetView("SitzArt")
	Dim ws As New NotesUIWorkspace
                Dim sitz as String
	sitz = ws.Dialogbox("SitzArt",True,True,False,False,False,False,"Standort wählen",dlgdoc,False,False,True) 
	End Sub

Wie kann ich nun auf den ausgewählten Wert, welche der Benutzer in der Dialogbox angeklickt hat zugreifen? (In der Dialogbox stehen drei Arten zur verfügung z.B. schwarz, rot, weiss)
Habe es mit msgbox(sitz) probiert aber so funktioniert es nicht.

Danke Maria

[koehlerbv]

Was soll den "sitz" sein? Wenn, dann doch wohl in docdlg (also docdlg.sitz (0)).

Wo erstellst Du eigentlich docdlg?

Bernhard

[HH]

Abgesehen von Bernhards Anregung, würde ich mir einmal NotesUIWorkspace.Prompt anschauen. Das dürfte für die Aufgabenstellung einfacher sein als dialogbox.

Hubert