Problem mit Case TypeOf

[Undeathly_Shadow]

Hallo,

ich bastel grad an einer Fehlerroutine für den Anwender,
und wollte dabei alle Controls durchwandern.

Umsetzung sieht so aus:

For Each Ctrl As Control In GrpSta.Controls 'eine GroupBox
            Select Case True
                Case TypeOf Ctrl Is TextBox
                    If Ctrl.Text.Trim.Length = 0 Then
                        ErrorChk = True
                        Call ModWriter.MeldungErstellen("Im Feld: " & Ctrl.Name.ToString & " wurde nichts eingetragen!")
                    End If
            End Select
        Next Ctrl

Soweit so gut, aber irgendwie will er das nicht bei:

Case TypeOf Ctrl Is DateTimePicker
         If Ctrl.Checked = True And Ctrl.value.date = System.DateTime.Now.Date Then
             Call ModLogWriter.MeldungErstellen("Im Feld: " & Ctrl.Name.ToString & " ist der heutige Tag hinterlegt!"
         End If

Seine Meldung:

"Checked" ist kein Member von "System.Windows.Forms.Control".

Wie reiche ich ihm jetzt durch das es sich um ein Datetimepicker handelt??

ist bestimmt wieder gan einfach...

[Ralf Jansen]

In dem du das Control auf den gewünschten Typ castest. Zum Beispiel per DirectCast.

[Highlight=VB.Net]Dim dtp As DateTimePicker = DirectCast(Ctrl , DateTimePicker)
If dtp.Checked = True And dtp.value.date = System.DateTime.Now.Date Then .... blah[/Highlight]

[Undeathly_Shadow]

Moin Moin Ralf,

Danke der Geistesblitz traf mich gestern abend dann zu Hause auch beim 20:15 Film, hatte nur keine Lust noch mal den Rechner an zu machen.

Schon doof wenn man so blockiert ist manchmal.