- \n
- bolValidation<\/b>: Gibt an, ob die Validierung hinzugefügt werden soll.<\/li>\n
- bolNavigation<\/b>: Gibt an, ob die Navigationsschaltflächen hinzugefügt werden sollen.<\/li>\n<\/ul>\n
Die Validierung für einen neuen, leeren Datensatz sieht dann etwa wie in Bild 1 aus.<\/p>\n
![\"Validierung](\"..\/fileadmin\/_temp_\/2019_02\/pic_179_002.png\")
<\/p>\nBild 1: Validierung bei einem neuen, leeren Datensatz<\/span><\/b><\/p>\n
Die Prozedur FormularNachWPF <\/b>erweitern wir an den folgenden Stellen um die Entgegennahme beziehungsweise Übergabe der Parameter:<\/p>\n
Public Sub <\/span>FormularNachWPF(strForm As String<\/span>, strTabelle As String<\/span>, Optional<\/span> bolValidation As Boolean<\/span>, _\r\n Optional<\/span> bolNavigation As Boolean<\/span>)\r\n ... \r\n lngHeight = TwipsToPixelsHeight(frm.Section(0).Height) + 30\r\n If <\/span>bolNavigation = True<\/span> Then<\/span>\r\n lngTopNavi = lngHeight - 30\r\n lngHeight = lngHeight + 28\r\n End If<\/span><\/pre>\nBei der Definition des Window<\/b>-Elements fügen wir noch das Ereignisattribut Closing <\/b>mit dem Wert Window_Closing <\/b>hinzu, welches sicherstellt, dass das Fenster nur bei geändertem und gespeichertem Datensatz geschlossen werden kann:<\/p>\n
strXAML = strXAML & \"<Window x:Class=\"\"\" & frm.Name & \"\"\"\" & vbCrLf<\/span>\r\n ...\r\n strXAML = strXAML & \" Title=\"\"\" & strTitle & \"\"\" Height=\"\"\" & lngHeight & \"\"\" Width=\"\"\" & lngWidth _\r\n & \"\"\" Closing=\"\"Window_Closing\"\">\" & vbCrLf<\/span><\/pre>\nFür die folgenden Aufruf haben wir die Übergabe der Parameter bolValidation und bolNavigation erweitert:<\/p>\n
...\r\n AttributeHinzufuegen frm, strXAML, bolValidation, bolNavigation\r\n ...\r\n SteuerelementeHinzufuegen frm, strXAML, strTabelle, colMappings, bolValidation, bolNavigation\r\n If <\/span>bolNavigation Then<\/span>\r\n NavigationHinzufuegen strXAML, lngTopNavi\r\n End If<\/span>\r\n ...\r\nEnd Sub<\/span><\/pre>\nErweiterung der Prozedur AttributeHinzufuegen<\/h2>\n
Die XAML-Datei enthält mit eingebauter Validierung einige Zeilen Code mehr. Diesem werden wir in der Prozedur AttributeHinzufuegen <\/b>wie folgt gerecht, die ebenfalls die beiden Parameter bolValidation <\/b>und bolNavigation <\/b>erwartet:<\/p>\n
Public Sub <\/span>AttributeHinzufuegen(frm As <\/span>Form, strXAML As String<\/span>, bolValidation As Boolean<\/span>, bolNavigation As Boolean<\/span>)<\/pre>\nIn dieser Prozedur geht es allein um das Zusammenstellen allgemeiner Properties für Steuerelemente im WindowResources<\/b>-Bereich. Da wir hier auch die Steuer-elemente durchlaufen, um die DataTrigger <\/b>und MultiDataTrigger <\/b>für die Validierung zu definieren, benötigen wir eine Variable namens ctl <\/b>mit dem Typ Control<\/b>:<\/p>\n
Dim <\/span>ctl As <\/span>Control<\/pre>\nDanach geht es dann direkt rund. Wir prüfen, ob bolValidation <\/b>den Wert True<\/b> aufweist und fügen dann die Vorlage für die Markierung nicht erfolgreich validierter Steuer-elemente hinzu:<\/p>\n
strXAML = strXAML & \" <Window.Resources>\" & vbCrLf<\/span>\r\n If <\/span>bolValidation Then<\/span>\r\n strXAML = strXAML & \" <Style TargetType=\"\"{x:Type FrameworkElement}\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"Validation.ErrorTemplate\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter.Value>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <ControlTemplate>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <DockPanel>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Border Background=\"\"Red\"\" DockPanel.Dock=\"\"right\"\" \" _\r\n & \"Margin=\"\"5,0,0,0\"\" Width=\"\"20\"\" Height=\"\"20\"\" CornerRadius=\"\"10\"\"\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" ToolTip=\"\"{Binding ElementName=customAdorner, \" _\r\n & \"Path=AdornedElement.(Validation.Errors)[0].ErrorContent}\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <TextBlock Text=\"\"!\"\" VerticalAlignment=\"\"center\"\" \" _\r\n & \"HorizontalAlignment=\"\"center\"\"\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" FontWeight=\"\"Bold\"\" Foreground=\"\"white\"\" \/>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Border>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <AdornedElementPlaceholder Name=\"\"customAdorner\"\" \" _\r\n & \"VerticalAlignment=\"\"Center\"\" >\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Border BorderBrush=\"\"red\"\" BorderThickness=\"\"1\"\" \/>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/AdornedElementPlaceholder>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/DockPanel>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/ControlTemplate>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Setter.Value>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Setter>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style>\" & vbCrLf<\/span>\r\n End If<\/span>\r\n ...<\/pre>\nDer nächste Teil, der nur von der Notwendigkeit einer Validierung abhängt, sind die Elemente ComboBox <\/b>und TextBox<\/b>, die wir beide mit den Style<\/b>-Attributen für die Validierung ausstatten müssen – also mit dem soeben angelegten Style. Dazu prüfen wir wieder per If…Then<\/b>-Bedingung, ob bolValidation <\/b>den Wert True <\/b>aufweist, und fügen dann eine der beiden Zeilen als erste Zeile des Styles hinzu:<\/p>\n
...\r\n With<\/span> frm.DefaultControl(acTextBox)\r\n If <\/span>bolValidation Then<\/span>\r\n strXAML = strXAML & \" <Style TargetType=\"\"{x:Type TextBox}\"\" \"_\r\n & \"BasedOn=\"\"{StaticResource {x:Type FrameworkElement}}\"\">\" & vbCrLf<\/span>\r\n Else<\/span>\r\n strXAML = strXAML & \" <Style TargetType=\"\"{x:Type TextBox}\"\">\" & vbCrLf<\/span>\r\n End If<\/span>\r\n ...\r\n End With<\/span>\r\n With<\/span> frm.DefaultControl(acComboBox)\r\n If <\/span>bolValidation Then<\/span>\r\n strXAML = strXAML & \" <Style TargetType=\"\"{x:Type ComboBox}\"\" \" _\r\n & \"BasedOn=\"\"{StaticResource {x:Type FrameworkElement}}\"\">\" & vbCrLf<\/span>\r\n Else<\/span>\r\n strXAML = strXAML & \" <Style TargetType=\"\"{x:Type ComboBox}\"\">\" & vbCrLf<\/span>\r\n End If<\/span>\r\n ...\r\n End With<\/span>\r\n ...<\/pre>\nMit dem BasedOn<\/b>-Attribut sorgen wir dafür, dass der oben definierte, für den Typ FrameworkElement <\/b>vorgesehene Style sowohl an ComboBox<\/b>– als auch TextBox<\/b>-Elemente vererbt wird. Durch das Erfassen der Attribute für die Markierung nicht erfolgreich validierter Steuer-elemente in einem eigenen Style<\/b>-Element sparen wir einige Zeilen Code, da wir die gleichen Elemente nicht für beide Steuerelementtypen einzeln hinterlegen müssen.<\/p>\n
Erst wollten wir auch das CheckBox<\/b>-Element auf diese Weise ausstatten, aber dieses ist ja ohnehin meist mit dem Wert False <\/b>vorbelegt, sodass keine Validierung notwendig ist.<\/p>\n
Danach stellen wir die DataTrigger<\/b>-Elemente für drei Steuerelementtypen ComboBox<\/b>, TextBox <\/b>und CheckBox <\/b>zusammen, die dafür sorgen, dass die Eigenschaft IsEnabled<\/b>, die wir später im Code behind-Modul definieren, für die mit diesem DataTrigger <\/b>ausgestatteten Style auf False <\/b>eingestellt wird, wenn die Validierung auch nur für ein einziges der Steuer-elemente fehlschlägt. Dies betrifft etwa die Schaltflächen zum Navigieren, die wir später hinzufügen. Hier verwenden wir zum ersten Mal die Variable ctl<\/b>, mit der wir in einer For Each<\/b>-Schleife alle Steuer-elemente des Formulars durchlaufen. Damit fügen wir dem Style<\/b>-Element, das wir über das Attribut x:Key <\/b>mit dem Wert EnableOnValidation <\/b>identifizieren, für jedes Steuer-element drei Zeilen hinzu, die das DataTrigger<\/b>-Element mit der Bedingung und das Setter<\/b>-Element mit dem zu setzenden Wert enthalten:<\/p>\n
...\r\n If <\/span>bolValidation Then<\/span>\r\n strXAML = strXAML & \" <Style x:Key=\"\"EnableOnValidation\"\" TargetType=\"\"{x:Type Button}\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Style.Triggers>\" & vbCrLf<\/span>\r\n For Each ctl In frm.Controls\r\n Select Case ctl.ControlType\r\n Case <\/span>acComboBox, acCheckBox, acTextBox\r\n If <\/span>Not<\/span> Len<\/span>(ctl.ControlSource) = 0 Then<\/span>\r\n strXAML = strXAML & \" <DataTrigger Binding=\"\"{Binding ElementName=\" & ctl.Name _\r\n & \", Path=(Validation.HasError)}\"\" Value=\"\"True\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"IsEnabled\"\" \" _\r\n & \"Value=\"\"False\"\"><\/Setter>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/DataTrigger>\" & vbCrLf<\/span>\r\n End If<\/span>\r\n End Select<\/span>\r\n Next<\/span> ctl\r\n strXAML = strXAML & \" <\/Style.Triggers>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style>\" & vbCrLf<\/span>\r\n...<\/pre>\nAußerdem benötigen wir noch jeweils ein MultiDataTrigger<\/b>-Element für jedes gebundene Steuer-element der Typen ComboBox<\/b>, TextBox <\/b>und CheckBox<\/b>. Dieses liefert standardmäßig für das Attribut IsEnabled <\/b>den Wert True<\/b>. Wenn alle in den Condition<\/b>-Elementen genannten Bedingungen wahr sind, also die Validierung für alle Elemente keinen Fehler liefert, wird IsEnabled <\/b>auf False <\/b>eingestellt. Dieser mit dem Schlüssel EnableOnFailedValidation <\/b>benannte Style wird für die Rückgängig<\/b>-Schaltfläche eingesetzt, um diese nur zu aktivieren, wenn mindestens eine Validierung fehlschlägt und diese nur zu deaktivieren, wenn alle Validierungen erfolgreich waren. Auch hier durchlaufen wir in einer For Each<\/b>-Schleife alle gebundenen Steuerelemente:<\/p>\n
...\r\n strXAML = strXAML & \" <Style x:Key=\"\"EnableOnFailedValidation\"\" TargetType=\"\"{x:Type Button}\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"IsEnabled\"\" Value=\"\"True\"\" \/>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Style.Triggers>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <MultiDataTrigger>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <MultiDataTrigger.Conditions>\" & vbCrLf<\/span>\r\n For Each ctl In frm.Controls\r\n Select Case ctl.ControlType\r\n Case <\/span>acComboBox, acCheckBox, acTextBox\r\n If <\/span>Not<\/span> Len<\/span>(ctl.ControlSource) = 0 Then<\/span>\r\n strXAML = strXAML & \" <Condition Binding=\"\"{Binding ElementName=\" _\r\n & ctl.Name & \", Path=(Validation.HasError)}\"\" Value=\"\"False\"\" \/>\" & vbCrLf<\/span>\r\n End If<\/span>\r\n End Select<\/span>\r\n Next<\/span> ctl\r\n strXAML = strXAML & \" <\/MultiDataTrigger.Conditions>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"IsEnabled\"\" Value=\"\"False\"\" \/>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/MultiDataTrigger>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style.Triggers>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style>\" & vbCrLf<\/span>\r\n End If<\/span><\/pre>\nSollen die Navigationsschaltflächen angezeigt werden, brauchen wir auch noch diese beiden Style<\/b>-Elemente, die dafür sorgen, dass die Schaltfläche btnErster <\/b>und btnVorheriger<\/b>, die wir nachfolgend hinzufügen, nur aktiviert werden, wenn gerade nicht der erste Datensatz angezeigt wird. Genauso sollen die Schaltflächen btnNaechster <\/b>und btnLetzter <\/b>nur aktiviert werden, wenn gerade nicht der letzte Datensatz angezeigt wird. Dazu weisen wir den Schaltflächen die folgenden Style<\/b>-Elemente zu, die wiederum auf den Style<\/b>-Elementen EnableOnValidation <\/b>basieren:<\/p>\n
If <\/span>bolNavigation = True<\/span> Then<\/span>\r\n strXAML = strXAML & \" <Style x:Key=\"\"ButtonVorheriger\"\" BasedOn=\"\"{StaticResource EnableOnValidation}\"\" TargetType=\"\"{x:Type Button}\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Style.Triggers>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <DataTrigger Binding=\"\"{Binding ErsterKunde}\"\" Value=\"\"False\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"IsEnabled\"\" Value=\"\"False\"\"><\/Setter>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/DataTrigger>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style.Triggers>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Style x:Key=\"\"ButtonNaechster\"\" BasedOn=\"\"{StaticResource EnableOnValidation}\"\" TargetType=\"\"{x:Type Button}\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Style.Triggers>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <DataTrigger Binding=\"\"{Binding LetzterKunde}\"\" Value=\"\"False\"\">\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <Setter Property=\"\"IsEnabled\"\" Value=\"\"False\"\"><\/Setter>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/DataTrigger>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style.Triggers>\" & vbCrLf<\/span>\r\n strXAML = strXAML & \" <\/Style>\" & vbCrLf<\/span>\r\n End If<\/span><\/pre>\nMö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 - bolNavigation<\/b>: Gibt an, ob die Navigationsschaltflächen hinzugefügt werden sollen.<\/li>\n<\/ul>\n