Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > VB.NET

DateTimePicker

rredspike1 - 05/01/2009 20:38
Lid		Wil graag de datetimepicker in een statement stoppen Wil controleren als de datetimepicker een waarde heeft die eerder is dan de datum dan vandaag het dan een foutmelding geeft. Hoe trotseer ik dit 'probleem'...ik heb al vanalles geprobeerd, maar kom er frustrerend niet goed uit.

6 antwoorden

Gesponsorde links

nemesiskoen - 06/01/2009 00:26
PHP expert		vbnet code - Bekijk de code zonder highlighting - Klap code in dateTimePickerInstantie.MaxDate = Date.Now() dateTimePickerInstantie.MaxDate = Date.Now() Zoiets?

Abbas - 06/01/2009 00:51
Crew .NET		vbnet code - Bekijk de code zonder highlighting - Klap code in If uwDateTimePicker.Value < DateTime.Now Then MessageBox.Show("Fout") End If If uwDateTimePicker.Value < DateTime.Now Then MessageBox.Show("Fout") End If

rredspike1 - 06/01/2009 02:02

Lid

Nu heb ik dit, alleen krijg ik 2x een messagebox ipv 1x

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub dtpLeverdatum_Opdrachten_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpLeverdatum_Opdrachten.ValueChanged
        If dtpLeverdatum_Opdrachten.Value < DateTime.Now Then
            MessageBox.Show("De leverdatum kan nooit eerder zijn dan de datum van vandaag!", "Opgelet!")
            dtpLeverdatum_Opdrachten.Value = DateTime.Now
        End If
End Sub
            
Private Sub dtpLeverdatum_Opdrachten_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dtpLeverdatum_Opdrachten.ValueChanged
        If dtpLeverdatum_Opdrachten.Value < DateTime.Now Then
            MessageBox.Show("De leverdatum kan nooit eerder zijn dan de datum van vandaag!", "Opgelet!")
            dtpLeverdatum_Opdrachten.Value = DateTime.Now
        End If
End Sub
 

Abbas - 06/01/2009 04:22
Crew .NET		Natuurlijk, je gaat de MessageBox weergeven en daarna de datum van de DateTimePicker wijzigen waardoor het event nogmaals aangeroepen wordt. Hierna zal dit niet meer gebeuren want de datum staat dan al op de huidige datum van de eerste keer. Daarom krijg je dus 2x een MessageBox te zien!

rredspike1 - 06/01/2009 05:07
Lid		oooow hahaha...maar hoe zet ik dan de tijd weer terug na die messageBox op de juiste datum? Trouwens heb DateTime.Today gebruikt ipv Now leek me wat verstandiger

Mario - 16/01/2009 15:03

Crew algemeen

Aangezien deze topic niet op solved staat, hier de oplossing :

oplossing 1

Zorg er voor dat de gebruiker op voorhand geen datum kan gebruiken < als today

vbnet code - Bekijk de code zonder highlighting - Klap code in

                Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DateTimePicker1.MinDate = Now
    End Sub
            
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DateTimePicker1.MinDate = Now
    End Sub
 

oplossing 2

Controleer met het change event en geef een waarschuwing aan gebruiker en met het Closeup event pas je de datum aan.

Op deze manier krijg je dus slechts 1x een boodschap te zien.

vbnet code - Bekijk de code zonder highlighting - Klap code in

                    Private Sub DateTimePicker1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        If DateTimePicker1.Value < DateTime.Now Then
            MessageBox.Show("De leverdatum kan nooit eerder zijn dan de datum van vandaag!", "Opgelet!")
        End If
    End Sub

    Private Sub DateTimePicker1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.CloseUp
        If DateTimePicker1.Value < DateTime.Now Then
            DateTimePicker1.Value = DateTime.Now
        End If
    End Sub
            
Private Sub DateTimePicker1_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        If DateTimePicker1.Value < DateTime.Now Then
            MessageBox.Show("De leverdatum kan nooit eerder zijn dan de datum van vandaag!", "Opgelet!")
        End If
    End Sub
 
    Private Sub DateTimePicker1_CloseUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.CloseUp
        If DateTimePicker1.Value < DateTime.Now Then
            DateTimePicker1.Value = DateTime.Now
        End If
    End Sub
 

mvg,
RedThread

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten