Private Sub wcboVon_SelectedRowChanged(ByVal sender As System.Object, ByVal e _
   As Infragistics.WebUI.WebCombo.SelectedRowChangedEventArgs) Handles _
   wcboVon.SelectedRowChanged
    TextAnzeigen()
  End Sub
 
 Private Sub TextAnzeigen()
    Dim zText As String
 
    'txtSchicht.Text = "KW 5 : Dienstag, 09.03.2004 07:00 - 17:00"
    If Not wdcDatum.Value Is Nothing Then
      'KW
      zText = DatePart(DateInterval.WeekOfYear, CDate(wdcDatum.Value), _
        Microsoft.VisualBasic.FirstDayOfWeek.Monday, FirstWeekOfYear.System)
      zText = "Schicht: KW " & zText
      'Datum
      zText = zText & " : " & Format(CDate(wdcDatum.Value), "dddd dd.MM.yyyy")
    End If
    If Not wcboVon.SelectedRow Is Nothing Then
      'Von
      zText = zText & "      " & wcboVon.SelectedRow.Cells(0).Value
    End If
    If Not wcboEnde.SelectedRow Is Nothing Then
      'Bis
      zText = zText & " - " & wcboEnde.SelectedRow.Cells(0).Value
    End If
    lblSchicht.Text = zText
  End Sub

  Private Sub wdcDatum_ValueChanged1(ByVal sender As Object, ByVal e As _
    Infragistics.WebUI.WebSchedule.WebDateChooser.WebDateChooserEventArgs) _
    Handles wdcDatum.ValueChanged
    TextAnzeigen
  End Sub