{"id":55000231,"date":"2020-08-01T00:00:00","date_gmt":"2020-11-26T08:32:37","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=231"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"FlowDocumente_mit_VB_zusammenstellen","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/FlowDocumente_mit_VB_zusammenstellen\/","title":{"rendered":"FlowDocumente mit VB zusammenstellen"},"content":{"rendered":"

FlowDocument-Element werden per RichTextBox-Feld eingegeben, per XAML definiert oder auch per VB zusammengestellt. Letzteres ist vor allem dann interessant, wenn Sie das Dokument mit den Daten aus einer externen Quelle wie einer Datenbank füllen wollen. So können Sie beispielsweise Rechnungen erstellen, Auflistungen von Produkten, Angebote und beliebige andere Dokumente. Diese können Sie dann als PDF verschicken oder ausdrucken. Dieser Artikel zeigt die Grundlagen zum Erstellen von FlowDocument-Objekten und zum Füllen mit den gewünschten Elementen und Inhalten.<\/b><\/p>\n

In anderen Artikeln wie FlowDocument-Elemente mit XAML <\/b>(www.datenbankentwickler.net\/203<\/b>) oder Das RichTextBox-Steuerelement <\/b>(www.datenbankentwickler.net\/204<\/b>) haben wir die Grundlagen zu FlowDocument<\/b>-Elementen geliefert und zu den Steuerelementen, in denen sie angezeigt und bearbeitet werden können.<\/p>\n

Nun wollen wir zeigen, wie Sie Elemente, die Sie in den zuvor genannten Beiträgen mit XAML-Definitionen erstellt oder über ein RichTextBox<\/b>-Steuerelement eingegeben haben, per VB-Code erstellen können.<\/p>\n

Vorbereitung<\/b><\/p>\n

Die Basis unseres Beispiels definieren wir wie folgt. Wir haben ein Grid, in dessen erster Zeile ein StackPanel<\/b>-Element liegt, das wir im Laufe des Artikels mit Schaltflächen zum Ausführen unserer Beispiele füllen werden. In der zweiten Grid<\/b>-Zeile haben wir ein FlowDocumentPageViewer<\/b>-Element zur Anzeige der erzeugten FlowDocument<\/b>-Elemente definiert:<\/p>\n

<Grid>\r\n     <Grid.RowDefinitions>\r\n         <RowDefinition Height=\"Auto\"><\/RowDefinition>\r\n         <RowDefinition Height=\"*\"><\/RowDefinition>\r\n     <\/Grid.RowDefinitions>\r\n     <StackPanel Orientation=\"Horizontal\">\r\n         <Button x:Name=\"btnEinfacherText\" Click=\"BtnEinfacherText_Click\">Einfacher Text<\/Button>\r\n     <\/StackPanel>\r\n     <FlowDocumentPageViewer x:Name=\"fdp\" Margin=\"3\" Grid.Row=\"1\"><\/FlowDocumentPageViewer>\r\n<\/Grid><\/pre>\n
Die Beispielmethoden, die durch die Schaltflächen ausgelöst werden, legen wir im Code behind-Modul des Fensters an. Für den ersten Beispieltext hinterlegen wir die folgende Prozedur in der Klasse FlowDocumentPerVB<\/b>:<\/p>\n
Public Class<\/span> FlowDocumentPerVB\r\n     Private <\/span>Sub BtnEinfacherText_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n         Dim <\/span>objFlowDocument As <\/span>FlowDocument\r\n         Dim <\/span>objParagraph As <\/span>Paragraph\r\n         objFlowDocument = New<\/span> FlowDocument\r\n         objParagraph = New<\/span> Paragraph()\r\n         With<\/span> objParagraph\r\n             .Inlines.Add(\"Dies ist ein erster Absatz.\")\r\n         End With<\/span>\r\n         objFlowDocument.Blocks.Add(objParagraph)\r\n         fdp.Document = objFlowDocument\r\n     End Sub\r\nEnd Class<\/span><\/pre>\n
Klicken wir nach dem Starten des Projekts auf die Schaltfläche, erhalten wir das Ergebnis aus Bild 1. Hier haben wir noch keine Absatzformate definiert. Die Zeilen, die dem Paragraph-Objekt den Text hinzufügen, können wir auch noch abkürzen durch folgenden Ausdruck:<\/p>\n
\"Erster<\/p>\n
Bild 1: Erster Beispieltext<\/span><\/b><\/p>\n
objParagraph = New<\/span> Paragraph(New<\/span> Run(\"Dies ist ein erster Absatz.\"))<\/pre>\n
Absatz mit Formatierungen<\/b><\/p>\n
Im zweiten Beispiel wollen wir einen Absatz mit Formatierungen versehen – der Text soll in der Schriftart Calibri <\/b>in der Größe 24 <\/b>mit fetter Auszeichnung ausgegeben werden.<\/p>\n
Dazu verwenden wir die folgende Methode, die durch die Schaltfläche mit der Beschriftung Text mit Format <\/b>ausgelöst wird:<\/p>\n
Private Sub <\/span>BtnTextMitFormat_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n     Dim <\/span>objFlowDocument As <\/span>FlowDocument\r\n     Dim <\/span>objParagraph As <\/span>Paragraph\r\n     objFlowDocument = New<\/span> FlowDocument\r\n     objParagraph = New<\/span> Paragraph(New<\/span> Run(\"Dies ist ein erster Absatz.\"))\r\n     With<\/span> objParagraph\r\n         .FontFamily = New<\/span> FontFamily(\"Calibri\")\r\n         .FontSize = 24\r\n         .FontWeight = FontWeights.Bold\r\n     End With<\/span>\r\n     objFlowDocument.Blocks.Add(objParagraph)\r\n     fdp.Document = objFlowDocument\r\nEnd Sub<\/span><\/pre>\n
Das Ergebnis sehen Sie in Bild 2. Die Formatierungen können wir einfach über die Eigenschaften des Paragraph<\/b>-Objekts zuweisen. Gegenüber Programmiersprachen wie VBA lässt sich hier jedoch nicht in jedem Fall einfach der Name der Schriftart zuweisen, sondern wir müssen dazu neue Objekte erstellen wie FontFamily <\/b>oder Auflistungen aus Klassen verwenden wie FontWeights.Bold<\/b>.<\/p>\n
\"Text<\/p>\n
Bild 2: Text mit Formatierungen<\/span><\/b><\/p>\n
Tabelle mit Elementen erstellen<\/b><\/p>\n
Das Erstellen einer einfachen Tabelle ist schon etwas aufwendiger. Schauen wir uns ein einfaches Beispiel an.<\/p>\n
Dazu wollen wir die Tabelle aus Bild 3 erstellen – also eine Tabelle mit drei Spalten und vier Zeilen sowie Inhalt und Rahmenlinien.<\/p>\n
\"Erstellen<\/p>\n
Bild 3: Erstellen einer einfachen Tabelle<\/span><\/b><\/p>\n
Wir deklarieren zunächst einige Variablen, die wir für die Erstellung der Tabelle benötigen sowie die zwei Laufvariablen i <\/b>und j<\/b>, mit denen wir die Zeilen und Spalten zum Erstellen der Zellen durchlaufen wollen:<\/p>\n
Private Sub <\/span>BtnTabelle_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n     Dim <\/span>objFlowDocument As <\/span>FlowDocument\r\n     Dim <\/span>objTable As <\/span>Table\r\n     Dim <\/span>objTableColumn As <\/span>TableColumn\r\n     Dim <\/span>objTableRowGroup As <\/span>TableRowGroup\r\n     Dim <\/span>objTableRow As <\/span>TableRow\r\n     Dim <\/span>objTableCell As <\/span>TableCell\r\n     Dim <\/span>objParagraph As <\/span>Paragraph\r\n     Dim <\/span>i As Integer<\/span>\r\n     Dim <\/span>j As Integer<\/span><\/pre>\n
Dann erstellen wir ein neues FlowDocument<\/b>– und ein neues Table<\/b>-Element. Das Table<\/b>-Element fügen wir über die Add<\/b>-Methode der Blocks<\/b>-Auflistung zum FlowDocument <\/b>hinzu:<\/p>\n
     objFlowDocument = New<\/span> FlowDocument\r\n     objTable = New<\/span> Table\r\n     objFlowDocument.Blocks.Add(objTable)<\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t