Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: js84 am 28.06.05 - 10:02:47
-
Einen wunderschönen Guten Morgen,
ich muß mal wieder eure Hilfe beanspruchen :-[
Es geht um Dialog Boxen, ich habe bereits einige threads gelesen und das ist mir alles so weit klar.Jedoch will das bei mir nich so tun wies soll.
Folgendes is der Fall:
Ich habe eine Maske, die ein Textfeld beinhaltet (später werden noch zwei Datumsfelder hinzugefügt, das textfeld ist erst mal zum minimalfunktionstest :-) ). Diese Maske soll im der DialogBox methode geöffnet werden. Dannach will ich auslesen was der User in das Feld eingegben hat.
Mein Problem ist dass ich nur einen Leerstring zurückbekomme anstatt der Benutzereingabe.
Code:
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Dim db As NotesDatabase
Dim doc,temp_doc As NotesDocument
Dim start,endo As Variant
Set db = session.CurrentDatabase
Dim ok_cancel As Boolean
Set temp_doc = db.CreateDocument
temp_doc.form = "Timrange"
ok_cancel=ws.DialogBox("Timerange",True,True,False,True,True,False,"title",temp_doc)
If ok_cancel=True Then 'user pressed ok button
Msgbox temp_doc.bla(0) 'name des textfeldes ist "bla"
Else
Exit Sub
End If
Ich hoffe ihr könnt mir wieder einmal helfen. :)
LG Jana
-
ok_cancel=ws.DialogBox("Timerange",True,True,False,True,True,False,"title",temp_doc)
1. True ... [autoHorzFit]
2. True ... [autoVertFit]
3. False ... [noCancel]
4. True ... [noNewFields]
5. True ... [noFieldUpdate]
6. False ... [readOnly]
Schau Dir mal Parameter 4 und 5 an, die sollten auf False gestellt sein.
-
:D, tut, DANKE!!!
-
Genau so ist es wie Dirk sagt.
Das hier:
temp_doc.form = "Timrange"
stört zwar nicht, ist aber überflüssig.