Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb =================================================================== diff -u -r1643 -r1647 --- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1643) +++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb (.../FormSifonLade.vb) (revision 1647) @@ -20,7 +20,9 @@ PositieUitsparingNumericUpDown.Minimum = Configs.sifonLadeGeefMinWaardePositie 'De comboboxen vullen met vaste waarden. BreedteUitsparingComboBox.DataSource = Configs.sifonLadeBreedteUitsparing + BreedteUitsparingDubbelComboBox.DataSource = Configs.sifonLadeBreedteUitsparing DiepteUitsparingComboBox.DataSource = Configs.dieptes + DiepteUitsparingDubbelComboBox.DataSource = Configs.dieptes 'Velden op disabled zetten. UpdateEnableStatusVelden(False) @@ -278,29 +280,26 @@ PositieUitsparingNumericUpDown.Value = PositieUitsparingNumericUpDown.Minimum RestPositieUitsparingTextBox.Text = String.Empty - 'Controleren of dubbele sifon lade is aangeduid. - If DubbelCheckBox.Checked Then - 'Dubbele sifon lade. + 'Dubbele sifon lade. - 'Breedte uitsparing dubbele lade. - If BreedteUitsparingDubbelComboBox.Items.Count > 0 Then - BreedteUitsparingDubbelComboBox.SelectedIndex = 0 - BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingComboBox.SelectedValue - Else - 'Geen items in de combobox, standaard waarde wordt geselecteerd. - BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingDubbelOverschrijfNumericUpDown.Minimum - End If - 'Diepte uitsparing dubbele lade. - If DiepteUitsparingDubbelComboBox.Items.Count > 0 Then - DiepteUitsparingDubbelComboBox.SelectedIndex = 0 - DiepteUitsparingDubbelOverschrijfNumericUpDown.Value = DiepteUitsparingDubbelComboBox.SelectedValue - Else - 'Geen items in de combobox, standaard waarde wordt geselecteerd. - DiepteUitsparingDubbelOverschrijfNumericUpDown.Value = DiepteUitsparingDubbelOverschrijfNumericUpDown.Minimum - End If - 'Breedte middenstuk dubbele lade. - BreedteMiddenstukNumericUpDown.Value = BreedteMiddenstukNumericUpDown.Minimum + 'Breedte uitsparing dubbele lade. + If BreedteUitsparingDubbelComboBox.Items.Count > 0 Then + BreedteUitsparingDubbelComboBox.SelectedIndex = 0 + BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingComboBox.SelectedValue + Else + 'Geen items in de combobox, standaard waarde wordt geselecteerd. + BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingDubbelOverschrijfNumericUpDown.Minimum End If + 'Diepte uitsparing dubbele lade. + If DiepteUitsparingDubbelComboBox.Items.Count > 0 Then + DiepteUitsparingDubbelComboBox.SelectedIndex = 0 + DiepteUitsparingDubbelOverschrijfNumericUpDown.Value = DiepteUitsparingDubbelComboBox.SelectedValue + Else + 'Geen items in de combobox, standaard waarde wordt geselecteerd. + DiepteUitsparingDubbelOverschrijfNumericUpDown.Value = DiepteUitsparingDubbelOverschrijfNumericUpDown.Minimum + End If + 'Breedte middenstuk dubbele lade. + BreedteMiddenstukNumericUpDown.Value = BreedteMiddenstukNumericUpDown.Minimum 'Zorgen dat events van de controls niet meer genegeerd worden. _updatingInformatie = False @@ -331,11 +330,21 @@ UpdateEnableStatusDubbeleLadeVelden() End Sub + 'Combo boxen + Private Sub BreedteUitsparingDubbelComboBox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles BreedteUitsparingDubbelComboBox.SelectedIndexChanged + 'Breedte uitsparing dubbel numeric up down resetten. + BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingDubbelComboBox.SelectedValue + End Sub + + Private Sub DiepteUitsparingDubbelComboBox_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles DiepteUitsparingDubbelComboBox.SelectedIndexChanged + 'Diepte uitsparing dubbel numeric up down resetten. + DiepteUitsparingDubbelOverschrijfNumericUpDown.Value = DiepteUitsparingDubbelComboBox.SelectedValue + End Sub + Private Sub BreedteUitsparingDubbelResetButton_Click(sender As Object, e As EventArgs) Handles BreedteUitsparingDubbelResetButton.Click 'Breedte uitsparing dubbele lade resetten. If BreedteUitsparingDubbelComboBox.Items.Count > 0 Then - BreedteUitsparingDubbelComboBox.SelectedIndex = 0 - BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingComboBox.SelectedValue + BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingDubbelComboBox.SelectedValue Else 'Geen items in de combobox, standaard waarde wordt geselecteerd. BreedteUitsparingDubbelOverschrijfNumericUpDown.Value = BreedteUitsparingDubbelOverschrijfNumericUpDown.Minimum @@ -348,7 +357,6 @@ Private Sub DiepteUitsparingDubbelResetButton_Click(sender As Object, e As EventArgs) Handles DiepteUitsparingDubbelResetButton.Click 'Diepte uitsparing dubbele lade resetten. If DiepteUitsparingDubbelComboBox.Items.Count > 0 Then - DiepteUitsparingDubbelComboBox.SelectedIndex = 0 DiepteUitsparingDubbelOverschrijfNumericUpDown.Value = DiepteUitsparingDubbelComboBox.SelectedValue Else 'Geen items in de combobox, standaard waarde wordt geselecteerd. @@ -365,6 +373,10 @@ ''' ''' True is enabled, false is disabled. Standaard true. Private Sub UpdateEnableStatusDubbeleLadeVelden(Optional status As Boolean = True) + 'Status updaten afhankelijk van of de informatie wordt aangepast. False blijft false, true kan false worden. + 'Als informatie wordt aangepast moeten de velden niet enabled worden, anders flashen ze bij het resetten van alles. + status = not _updatingInformatie And status + 'Status controleren. If Not status Then 'Velden disablen.