Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: mariab am 26.04.06 - 12:53:04

Titel: Dialogbox mittels LS
Beitrag von: mariab am 26.04.06 - 12:53:04

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

Titel: Re: Dialogbox mittels LS
Beitrag von: koehlerbv am 26.04.06 - 12:57:25

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

Wo erstellst Du eigentlich docdlg?

Bernhard

Titel: Re: Dialogbox mittels LS
Beitrag von: HH am 26.04.06 - 13:21:52

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

Hubert