Domino 9 und frühere Versionen > ND6: Entwicklung

eine ini Datei über Notes füllen

<< < (4/5) > >>

koehlerbv:
Erstelle ein neues Dokument auf Basis Deiner Dialogbox-Maske und verwende dann dieses. Das gerade offene Doc wird ja nicht das sein, das Du für die Dialogbox brauchst, oder?

Bernhard

Driri:
Wieso willst Du denn aus einem Dokument heraus das gleiche Dokument noch einmal in einer Dialogbox öffnen ? Zumal Du dann den Parameter "doc" auch einfach weglassen kannst.

Hast Du schonmal im Debugger geprüft, ob doc überhaupt existiert ?

Axel:
Das Aufrufen eines neuen Dokumentes in einer Dialogbox kann z.B. so aussehen:


Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim docdlg As NotesDocument
   
   Set db = ws.CurrentDatabase

   Set docdlg = New NotesDocument(db)
   docdlg.Form = "Maskenname"

   'Hier können die Felder der Dialogobx gefüllt werden

   If ws.Dialogbox("Maskenname", True, True, False, False, False, False, "Titel",docdlg) Then

       'Hier stehen die Anweisungen, die ausgeführt werden sollen, wenn OK angeklickt wurde
   
   Else

       'Hier stehen die Anweisungen, die ausgeführt werden sollen, wenn Abbrechen angeklickt wurde
   
   End If   
   
   
End Sub


Axel

Selin:
Hallo Zusammen,

nach einigen Gehversuchen nun hier der Letze, der aber leider auch nicht funktioniert ;-(

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)

   Dim fileNum As Integer
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = ws.CurrentDocument
   
   filePath=Environ$("HOMEDRIVE") & "\Datei.ini"
      fileNumber = Freefile()
      Open filePath For Input As fileNumber
      Do Until Eof (fileNumber)
         uidoc.FieldGetText( "name" )
         Set name=  filePath.name
         uidoc.FieldGetText ("abt")
         Set abt =  filePath.abt
      Loop
   End If
End Sub

Wie kann ich denn die Werte aus der ini auslesen?

Selin:
Hallo,

habe es wie folgt gelöst.
Kann sein, dass die Lösung nicht ganz sauber ist, aber es funktioniert.

Ich habe noch eine Frage.
ich habe Feldhinweise hinterlegt. Diese werden auch angezeigt, wenn ich die Maske aufrufe nicht aber wenn die Maske über die Dialogbox aufgerufen wird.
Geht es prinzipiell nicht oder kann ich das irgendwie einstellen?

danke+ gruß
Selin

Sub Postopen(Source As Notesuidocument)
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = ws.CurrentDocument
   Dim text As String
   Dim fileNum As Integer
   Dim linecounter As Integer
   
   fileNum = Freefile()
   linecounter = 1   
   Open Environ$("HOMEDRIVE") & "\Datei.ini"  For Input As fileNum
   Do While Not Eof(fileNum)
      
      Line Input #fileNum, text
      
      Select Case linecounter
         
      Case 2:   
         uz = Mid$( text, 4, 4)
         Print name         
         Call source.FieldSetText("name", name)
         
         
      Case 2:
         abt = Mid$( text, 5, 7)
         Print abt
         Call source.FieldSetText("abt", abt)
         
      'usw..   
            End Select   
      
      If linecounter = 12 Then
       linecounter = 1
      Else
      linecounter = linecounter + 1
      End If
      
   Loop
   Close fileNum
      
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete