Hallo leute,
Ich habe einige Datein in meinen My.Resources ordner z.b. Dienst_Mo-Do_1 .... Dienst_Mo-Do_2.... Dienst_Mo-Do_4 ....usw....
ich möchte das diese daten in meine Labels geladen werden dazu läd er es ja vom mein Resources ordner, er läd die datei in ein Bestimmten ordner und gibt die dann wieder. Das Problem ist nur ich möchte ja nicht bei jeder datei einzeln das angeben:
sondern per If die bestimmten datein ersuchen lassen, habe ich also dienst 2 ausgewählt soll er My.Resources.Dienst_Mo-Do_2 laden
habe es momentan so:
da sagt er "Dienst_ ist kein member von My.Resources" ....
wie kann ich es abändern das er es so übernimmt
hier mal meine ganze IF funktion
Danke im vorraus
Ich habe einige Datein in meinen My.Resources ordner z.b. Dienst_Mo-Do_1 .... Dienst_Mo-Do_2.... Dienst_Mo-Do_4 ....usw....
ich möchte das diese daten in meine Labels geladen werden dazu läd er es ja vom mein Resources ordner, er läd die datei in ein Bestimmten ordner und gibt die dann wieder. Das Problem ist nur ich möchte ja nicht bei jeder datei einzeln das angeben:
sondern per If die bestimmten datein ersuchen lassen, habe ich also dienst 2 ausgewählt soll er My.Resources.Dienst_Mo-Do_2 laden
habe es momentan so:
da sagt er "Dienst_ ist kein member von My.Resources" ....
wie kann ich es abändern das er es so übernimmt
My.Resources.Dienst_ & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem
hier mal meine ganze IF funktion
VB.NET-Quellcode
- If RB_MobisDo.Checked Then
- IO.File.WriteAllText(Application.StartupPath & "\Dokumente\Dienst_" & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem & ".txt", My.Resources.Dienst_ & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem)
- Dim line = IO.File.ReadAllText(Application.StartupPath & "\Dokumente\Dienst_" & RB_MobisDo.Text & "_" & ComboBox1.SelectedItem & ".txt")
- Dim v As String() = line.Split(";"c)
- lbl_Dienstdatum.Text = v(0)
- lbl_Dienstnummer.Text = v(1)
- lbl_Beginn.Text = v(2)
- lbl_Ende.Text = v(3)
- lbl_Dauer.Text = v(4)
- lbl_Hof.Text = v(5)
- lbl_Bezahlte_Zeit.Text = v(6)
- lbl_Pause.Text = v(7)
- lbl_Unterbrechnung_von.Text = v(8)
- lbl_Unterbrechung_bis.Text = v(9)
- lbl_VB.Text = v(10)
- lbl_NB.Text = v(11)
- lbl_hinweise.Text = v(12)
- lbl_Pausenzeiten.Text = v(13)
- lbl_Dienstvon.Text = v(14)
- lbl_Dienstbis.Text = v(15)
- lbl_LKR.Text = v(16)
- lbl_F.Text = v(17)
- ElseIf RB_Fr.Checked Then ..... und so weiter
Danke im vorraus
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „VBHunter“ ()