Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
08.09.2006, 18:45 Uhr
jeller

bei diesen quell text funktionieren die monate märz april mai und august überhaupt nicht

Visual Basic:

If ComboBox1.SelectedItem = "Januar" Then
            MonthCalendar1.TodayDate = "01.01.2006"
            MonthCalendar1.SetDate("01.01.2006")
        ElseIf ComboBox1.SelectedItem = "Februar" Then
            MonthCalendar1.TodayDate = "01.02.2006"
            MonthCalendar1.SetDate("01.02.2006")
        ElseIf ComboBox1.SelectedItem = "März" Then
            MonthCalendar1.TodayDate = "01.03.2006"
            MonthCalendar1.SetDate("01.03.2006")
        ElseIf ComboBox1.SelectedItem = "April" Then
            MonthCalendar1.TodayDate = "01.04.2006"
            MonthCalendar1.SetDate("01.04.2006")
        ElseIf ComboBox1.SelectedItem = "Mai" Then
            MonthCalendar1.TodayDate = "01.05.2006"
            MonthCalendar1.SetDate("Mai")
        ElseIf ComboBox1.SelectedItem = "Juni" Then
            MonthCalendar1.TodayDate = "01.06.2006"
            MonthCalendar1.SetDate("01.06.2006")
        ElseIf ComboBox1.SelectedItem = "Juli" Then
            MonthCalendar1.TodayDate = "01.07.2006"
            MonthCalendar1.SetDate("01.07.2006")
        ElseIf ComboBox1.SelectedItem = "August" Then
            MonthCalendar1.TodayDate = "01.08.2006"
            MonthCalendar1.SetDate("01.08.2006")
        ElseIf ComboBox1.SelectedItem = "September" Then
            MonthCalendar1.TodayDate = "01.09.2006"
            MonthCalendar1.SetDate("01.09.2006")
        ElseIf ComboBox1.SelectedItem = "Oktober" Then
            MonthCalendar1.TodayDate = "01.10.2006"
            MonthCalendar1.SetDate("01.10.2006")
        ElseIf ComboBox1.SelectedItem = "November" Then
            MonthCalendar1.TodayDate = "01.11.2006"
            MonthCalendar1.SetDate("01.11.2006")
        ElseIf ComboBox1.SelectedItem = "Dezember" Then
            MonthCalendar1.TodayDate = "01.12.2006"
            MonthCalendar1.SetDate("01.12.2006")
        End If

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
08.09.2006, 19:23 Uhr
Uwe
C/C++ Master
(Administrator)

Hallo,
Tippfehler oder Leerzeichen...
ganz schlecht in doppelter Hinsicht:
1. Setz mal am Anfang der vb Datei: Option Strict On
VB castest einen String nach einem Datum.
2. Stringauswertung ist immer Schei...
Besser den Index auswerten:

Visual Basic:

Private Sub cb_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb.SelectedIndexChanged
        Dim [date] As Date
        Select Case cb.SelectedIndex
            Case 0
                [date] = New Date(Now.Year, 1, 1)
            Case 1
                [date] = New Date(Now.Year, 2, 1)
            Case 2
                [date] = New Date(Now.Year, 3, 1)
            Case 3
                [date] = New Date(Now.Year, 4, 1)
            Case 4
                [date] = New Date(Now.Year, 5, 1)
            Case 5
                [date] = New Date(Now.Year, 6, 1)
            Case 6
                [date] = New Date(Now.Year, 7, 1)
            Case 7
                [date] = New Date(Now.Year, 8, 1)
            Case 8
                [date] = New Date(Now.Year, 9, 1)
            Case 9
                [date] = New Date(Now.Year, 10, 1)
            Case 10
                [date] = New Date(Now.Year, 11, 1)
            Case 11
                [date] = New Date(Now.Year, 12, 1)
        End Select
        MonthCalendar1.TodayDate = [date]
        MonthCalendar1.SetDate([date])
End Sub

--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."

Bis dann...
Uwe

Dieser Post wurde am 08.09.2006 um 19:24 Uhr von Uwe editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

002
08.09.2006, 19:28 Uhr
jeller

okay
hab aber den fehler bei meiner version gefunden :
in der combobox auflistung war bei mai märz april und august hinten ein lehrzeichen

Dieser Post wurde am 08.09.2006 um 19:45 Uhr von jeller editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

003
08.09.2006, 19:36 Uhr
Uwe
C/C++ Master
(Administrator)

Hallo,

Zitat von jeller:

okay
aber ich muss das mit if machen.bzw. es wäre besser

Wer schreibt Dir das vor?
Aber was soll's

Visual Basic:

If cb.SelectedIndex = 0 Then
[date] = New Date(Now.Year, 1, 1)
ElseIf cb.SelectedIndex = 1 Then
[date] = New Date(Now.Year, 2, 1)
' ....................
' ....................
End If

--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."

Bis dann...
Uwe

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

004
08.09.2006, 21:18 Uhr
jeller

die schule schreib mir das vor bzw. ich möchte dort größten teils nur sachen präsentieren die ich auch kann , und if sätze kann ich . und bei mir waren auch nur ,wie gesagt, ein paar lehrzeichen zuviel . ^^

Dieser Post wurde am 08.09.2006 um 21:20 Uhr von jeller editiert.

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ C++CLI / VB .Net / .Net-Framework ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: