Autor Thema: Array in einem Agenten als Kontrollkästchen ausgeben  (Gelesen 1201 mal)

Offline juebri

  • Frischling
  • *
  • Beiträge: 33
  • Ich liebe dieses Forum!
Hallo,

ich habe vor einiger Zeit ein Bildarchiv erstellt, in dem man lokale Bilder auswählen kann. Diese werden in ein Dokument geschrieben (je eine Großversion 800 x 600 und ein Thumbnail). Webausgabe etc. klappt alles wunderbar und fehlerfrei.

Nun ist meinem Chef die Idee gekommen, diverse Bilder auch druckfähig bereitzustellen. Im Grunde kein Problem. Agent erweitern fertig.

Aber: Bei momentan ca. 200 bis 300 Bildern á 1.5 MB bewege ich mich da in Größenbereichen, die ich hinsichtlich des Mietservers nicht bezahlen möchte.

Also will ich in den Agenten folgende Funktion bauen:

Der Agent liefert mir über diesen Code die Dateiabfrage:

Code
Sub Initialize
   On Error Goto zeile
   Dim workspace As New NotesUIWorkspace
   Dim files As Variant
   Dim Quelltext As Variant
   
   Call GetProfilwerte
   
   'Auswahl-Dialog 
   DateiArray= workspace.OpenFileDialog(True, "Wählen Sie die Datei(en) aus:", _
   "Dateien:|*.tif;*.jpg;*.bmp", LesePfad)
   
   'Wurde keine Datei gewählt, dann wird Sub verlassen   
   If Not Isarray(DateiArray) Then
      Msgbox ("Sie haben keine Datei ausgewählt!")
      Exit Sub
   End If
   
   'Die erste Datei wird in den Array geholt
   VollerPfad= DateiArray(0) & ";"
   
   'Wenn mehr als eine Datei gewählt wurden, dann werden die Dateien ohne
   'Pfadangabe angehängt
   If Ubound(DateiArray ) >0 Then
      For index = Lbound( DateiArray )+1 To Ubound(DateiArray ) 
         VollerPfad=VollerPfad & _
         Strrightback(dateiArray(index),"\") _ 
         & ";"
      Next index
   End If
   
   Print "Die Bilddaten werden verarbeitet, bitte haben Sie etwas Geduld"

Nun fragt mich der Agent über eine msgbox, ob einige Bilder auch druckfähig in das Dokument eingespeist werden sollen. Sage ich nein, läuft mein bisheriger Agent (fehlerfrei).

Sage ich ja, hatte ich erst folgende Überlegung:

Ich durchlaufe den Array und frage bei jedem Wert erneut über eine msgbox, ob DIESES Bild auch in einer höheren Auflösung gespeichert werden soll oder nicht. Die Antwort landet in einem weiteren Array.

UND JETZT DIE FRAGE:

Eleganter wäre eine Lösung mit einer Dialogbox, die alle Elemente des Arrays (also bild1.jpg, bild2.jpg usw.) untereinander aufzählt, mit davorstehenden Kontrollkästchen, die man halt ankreuzen kann (der Bringer wäre natürlich noch ein Preview, aber wir wollen die Kirche ja mal im Dorf lassen).

Ich arbeite seit Monaten an einem MySQL und PHP - Projekt, so dass meine LS - Kenntnisse wieder etwas eingeschlafen sind.

HAT JEMAND EINE IDEE ODER EINEN TIPP?????


Danke schon mal.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz