Einen angenehmen Samstag für alle.
Irgendetwas ist bei meiner Programmierung falsch gelaufen. Siehe späteren Anhang. Bei meinem Kurs sollten wir eine kleine Anwendung erstellen, diese Aufgabe war problemlos,
nun wollte ich diese Anwendung weiter ausbauen und hier habe ich Probleme mit dem Eintragen des ausgewählten Items der ComboBox in eine andere Form Namens "plan". Ich füge Euch mal den Code an und auch die
Fehlermeldung:
Der fehlerhafte Code:
Der Fehler muss allerdings an der Übergabe in die Form plan liegen: Hier auch der Code:
Ich habe mal ein Bild der Fehlermeldung angehängt. Obwohl ich der Meinung bin, das ich die Items als String deklariert habe, erscheint die folgende auf dem Bild sichtbare Fehlermeldung.
Hätte ich vielleicht mit Select Case arbeiten sollen?
Vielleicht kann mir ja jemand weiter helfen.
Grüße aus Wentorf
Mütze
Irgendetwas ist bei meiner Programmierung falsch gelaufen. Siehe späteren Anhang. Bei meinem Kurs sollten wir eine kleine Anwendung erstellen, diese Aufgabe war problemlos,
nun wollte ich diese Anwendung weiter ausbauen und hier habe ich Probleme mit dem Eintragen des ausgewählten Items der ComboBox in eine andere Form Namens "plan". Ich füge Euch mal den Code an und auch die
Fehlermeldung:
Der fehlerhafte Code:
VB.NET-Quellcode
- Option Explicit On
- Public Class Termne_Sarah
- Private Sub Termne_Sarah_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 'Erstellung einer Anwendung über den Wochenplan von Sarah mit Ihren Interessen. Hier habe ich ComboBoxen verwendet
- 'da sich die Tätigkeiten ändern oder ausfallen könnten. Gleichfalls habe ich die Kilometer und den zugrunde
- 'gelegten Literpreis für eine Kalkulation genommen, welche auf dem Fenster _plan ersichtlich sind.
- 'Eigentlich hatte ich noch vor, einen Wecker zu integrieren, sowie die Datumsangaben per _Button auf der Form _plan anzeigen zu lasssen.
- 'Und natürlich einen Butto zum Drucken, damit die Tochter die Form Sarah ausdrucken kann.
- 'Diese Anwendung habe ich zum Spass gemacht und dient zu meiner Übung. Eine Entwicklung bringt ja auch sehr viel Spass.
- 'F. Mütze 2017
- 'Veränderung der Hintergrundfarbe per _Code
- btn_ueber_sonn.BackColor = Color.PowderBlue
- Me.BackColor = Color.PapayaWhip
- End Sub
- Private Sub btn_ueber_sonn_Click(sender As Object, e As EventArgs) Handles btn_ueber_sonn.Click
- 'Übergabe der Tätigkeit in Form_plan über die ComboBoxen. Vorher Abfrage ob Comboboxen gefüllt sind.
- If cb_montag.Text = "" Then
- MessageBox.Show("Bitte füllen Sie den Montag aus", "Achtung", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End If
- If cb_dienstag.Text = "" Then
- MessageBox.Show("Bitte füllen Sie den Dienstag aus", "Achtung", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End If
- If cb_mittwoch.Text = "" Then
- MessageBox.Show("Bitte füllen Sie den Mittwoch aus", "Achtung", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End If
- If cb_donnerstag.Text = "" Then
- MessageBox.Show("Bitte füllen Sie den Donnerstag aus", "Achtung", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End If
- If cb_freitag.Text = "" Then
- MessageBox.Show("Bitte füllen Sie den Freitag aus", "Achtung", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End If
- If cb_samstag.Text = "" Then
- MessageBox.Show("Bitte füllen Sie den Samstag aus", "Achtung", MessageBoxButtons.OK, MessageBoxIcon.Information)
- End If
- If cb_sonntag.Text = "" Then
- MessageBox.Show("Bitte füllen Sie den Sonntag aus", "Achtung", MessageBoxButtons.OK, MessageBoxIcon.Information)
- 'Abfrage ob die Comboboxen gefüllt sind.
- ElseIf CStr(cb_montag.SelectedItem) & CStr(cb_dienstag.SelectedItem) & _
- CStr(cb_mittwoch.SelectedItem) & CStr(cb_donnerstag.SelectedItem) & CStr(cb_freitag.SelectedItem) & _
- CStr(cb_samstag.SelectedItem) & CStr(cb_sonntag.SelectedItem) Then
- plan.lbl_montag.Text = cb_montag.Items(cb_montag.SelectedIndex).ToString()
- plan.lbl_dienstag.Text = cb_dienstag.Items(cb_dienstag.SelectedIndex).ToString()
- plan.lbl_mittwoch.Text = cb_mittwoch.Items(cb_mittwoch.SelectedIndex).ToString()
- plan.lbl_donnerstag.Text = cb_donnerstag.Items(cb_donnerstag.SelectedIndex).ToString()
- plan.lbl_freitag.Text = cb_freitag.Items(cb_freitag.SelectedIndex).ToString()
- plan.lbl_samstag.Text = cb_samstag.Items(cb_samstag.SelectedIndex).ToString()
- plan.lbl_sonntag.Text = cb_sonntag.Items(cb_montag.SelectedIndex).ToString()
- Me.Hide()
- plan.Show()
- End If
Der Fehler muss allerdings an der Übergabe in die Form plan liegen: Hier auch der Code:
VB.NET-Quellcode
- Public selected As Double
- Private Sub cb_montag_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cb_montag.SelectedIndexChanged
- 'auslesen der Tätigkeiten aus der ComboBOX - km eintragen nebst dem Verbrauch in Litern.
- Select Case cb_montag.SelectedItem.ToString()
- Case CStr("Handballtraining, Mützestr. 23, Große Halle, 23 km")
- selected = 23
- Case "Klavierstunde, Gnatztantenstr. 376, Teezimmer, 11 km"
- selected = 11
- Case "Reiten, Hulahoppstr. 54, Kleine Halle, 14 km"
- selected = 14
- Case "Rudern, Wasserseestr. 12, Wildwaasserstrudel, 34 km"
- selected = 34
- Case "Mathenachhilfe, Blödelstr. 897, Tafelzimmer, 8 km"
- selected = 8
- Case "Fahrt zur Freundin, 13,5 km"
- selected = 13.5
- Case "Fahrt in die Disko, 21,8 km"
- selected = 21.8
- Case "Samstag vielleicht frei oder Stubenarrest, 0 km"
- selected = 0
- Case "Sonntag vielleicht frei oder Stubenarrest, 0 km"
- selected = 0
- Case "Samstag Freizeit, 0 km"
- selected = 0
- Case "Sonntag Freizeit, 0 km"
- selected = 0
- Case "ausschlafen, 0 km"
- selected = 0
- Case "krank trotz Daymed!!!!!, 0 km"
- selected = 0
- Case "Ferien in Hamburg, 0 km"
- selected = 0
- End Select
- tb_km_mo.Text = selected.ToString()
- tb_verb_mo.Text = 0.15
- End Sub
Ich habe mal ein Bild der Fehlermeldung angehängt. Obwohl ich der Meinung bin, das ich die Items als String deklariert habe, erscheint die folgende auf dem Bild sichtbare Fehlermeldung.
Hätte ich vielleicht mit Select Case arbeiten sollen?
Vielleicht kann mir ja jemand weiter helfen.
Grüße aus Wentorf
Mütze
"Das Jahresende ist kein Ende und kein Anfang, sondern ein Weiterleben mit der Weisheit, die uns die Erfahrung gelehrt hat".
"Das Fortrücken in der Kalenderjahrzahl macht wohl den Menschen, aber nicht die Menschheit reifer".
"Wer bin ich, wenn ich bin, was ich habe und dann verliere was ich habe ?"
Wie man VisualStudio nutzt? => Visual Studio richtig nutzen
"Das Fortrücken in der Kalenderjahrzahl macht wohl den Menschen, aber nicht die Menschheit reifer".
"Wer bin ich, wenn ich bin, was ich habe und dann verliere was ich habe ?"
Wie man VisualStudio nutzt? => Visual Studio richtig nutzen