Code von einem anderen Sub ausführen

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von dejanstar.

    Code von einem anderen Sub ausführen

    Hallo

    Folgendes Problem:
    Ich möchte in eine andere Sub springen, ausführen und dann weiter im Code fortfahren.

    Hier mein Code:

    VB.NET-Quellcode

    1. Private Sub DayView1_ResolveAppointments(sender As Object, args As ResolveAppointmentsEventArgs) Handles DayView1.ResolveAppointments
    2. Dim m_Apps As New List(Of Appointment)()
    4. For Each m_App As Appointment In m_Appointments
    5. If (m_App.StartDate >= args.StartDate) AndAlso (m_App.StartDate <= args.EndDate) Then
    6. m_Apps.Add(m_App)
    7. End If
    8. Next
    10. args.Appointments = m_Apps
    11. End Sub
    13. Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    14. ' Anzeige füllen
    15. Dim con As New OleDbConnection
    16. Dim cmd As New OleDbCommand
    17. Dim reader As OleDbDataReader
    18. Dim Pfad As String
    19. Dim m_App As New Appointment()
    20. Dim DStart As New Date(2015, 5, 19, 8, 30, 0)
    21. Dim DEnd As New Date(2015, 5, 19, 12, 30, 0)
    23. Pfad = Path.GetDirectoryName(Application.ExecutablePath) + "\Datenbank.mdb"
    24. con.ConnectionString =
    25. "Provider=Microsoft.Jet.OLEDB.4.0;" &
    26. "Data Source='" & Pfad & "'"
    28. cmd.Connection = con
    29. cmd.CommandText = "select * from Aufträge where Monteur1 = '" & ListBox1.SelectedItem & "'"
    31. Try
    32. con.Open()
    34. reader = cmd.ExecuteReader
    35. Do While reader.Read()
    37. m_App.StartDate = (
    38. reader("DatumTermin"))
    40. m_App.EndDate = (
    41. reader("End"))
    43. m_Appointments.Add(m_App)
    45. DayView1.Invalidate()
    47. ' Hier sollte der Code von "Private Sub DayView1_ResolveAppointments" ausgeführt werden
    49. Loop
    50. reader.Close()
    51. con.Close()
    52. Catch ex As Exception
    53. MessageBox.Show(ex.Message)
    54. End Try
    55. End Sub


    VB.NET-Quellcode

    1. DayView1_ResolveAppointments(sender, e)

    Dieser Code funktioniert z.B. bei Button_click, aber hier nicht.

    Freundliche Grüsse
    Dejan

    Du willst sender und e von ListBox1_SelectedIndexChanged mitgeben. Ersten wäre das unterschiedliche Objekte und zweitens auch unterschiedliche EventArgs(ResolveAppointmentsEventArgs <> EventArgs), wobei das letztere enscheidend sein dürfte. Da du weder auf sender noch auf args in DayView1_ResolveAppointments zurückgreifst, reicht das so aus.

    VB.NET-Quellcode

    1. DayView1_ResolveAppointments(Nothing, Nothing)

    Ich verstehe das Problem nicht:

    dejanstar schrieb:

    Ich möchte in eine andere Sub springen, ausführen und dann weiter im Code fortfahren.


    VB.NET-Quellcode

    1. Private Sub Test()
    2. 'mach irgendwas
    3. AndereSub()
    4. 'fortfahren
    5. End Sub
    7. Private Sub AndereSub()
    8. 'mach irgendwas
    9. End Sub
    Was das mit dem Code in Post#1 zu tun haben soll ist mir unerfindlich.

    Ebenso unerfindlich:

    dejanstar schrieb:

    Dieser Code funktioniert z.B. bei Button_click, aber hier nicht.
    Welche Button_click, und was ist mit "hier" gemeint?

    dejanstar schrieb:

    Dieser Code funktioniert z.B. bei Button_click, aber hier nicht.
    Bei Eventhandlern hat das Event-Argument diverse Typen, bei Dir wäre es ResolveAppointmentsEventArgs.
    Dies must Du Dir zunächst erstellen:

    VB.NET-Quellcode

    1. Dim e As New ResolveAppointmentsEventArgs() ' ggf. Parameter setzen
    2. ' Properties von e belegen
    3. DayView1_ResolveAppointments(sender, e)
    oder mot dem Code von @Murdock einfach nix übergeben. Das knallt allerdings, wenn Du die Event-Argumente auswertest.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Is klar, das e schon da ist, kommt ja als EventsArgs der ListView rein. Benenne das anders.

    VB.NET-Quellcode

    1. Dim other_e As New ResolveAppointmentsEventArgs()
    2. 'other_e.xyz=...
    3. DayView1_ResolveAppointments(DirectCast(DayView1, Object), other_e)

    dejanstar schrieb:

    Was mache ich falsch?
    Poste mal den kompletten Code der betreffenden Routine.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Also der Code von @Murdock würde so funktionieren, Danke. Aber ich habe so wie es aussieht ein anderes Problem.

    Ich probiere es mal zu erklären was ich will.

    Der ursprüngliche Code sah so aus (Ein kleiner Test von mir um zu schauen ob der Code funktioniert):

    Ich habe ein Button, und wenn ich auf dem klicke zeigt mir eine Control die DayView1 heist, sieht so aus wie der Outlook Kalender, den Termin.

    VB.NET-Quellcode

    1. ​ Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    2. Dim DStart As New Date(2015, 5, 18, 8, 30, 0)
    3. Dim DEnd As New Date(2015, 5, 18, 12, 30, 0)
    5. Dim m_App As New Appointment()
    6. m_App.StartDate = DStart
    7. m_App.EndDate = DEnd
    8. m_App.BorderColor = Color.Red
    10. m_Appointments.Add(m_App)
    12. DayView1.Invalidate()
    13. End Sub
    15. Private Sub DayView1_ResolveAppointments(sender As Object, args As ResolveAppointmentsEventArgs) Handles DayView1.ResolveAppointments
    17. Dim m_Apps As New List(Of Appointment)()
    19. For Each m_App As Appointment In m_Appointments
    20. If (m_App.StartDate >= args.StartDate) AndAlso (m_App.StartDate <= args.EndDate) Then
    21. m_Apps.Add(m_App)
    23. End If
    24. Next
    26. args.Appointments = m_Apps
    27. End Sub



    Nun will ich von einer Datenbank alle vorhandenen Datensätze in der DayView1 Control anzeigen, und habe es mit diesem Code probiert:

    VB.NET-Quellcode

    1. ​Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    3. ' Anzeige füllen
    4. Dim con As New OleDbConnection
    5. Dim cmd As New OleDbCommand
    6. Dim reader As OleDbDataReader
    7. Dim Pfad As String
    8. Dim m_App As New Appointment()
    10. Pfad = Path.GetDirectoryName(Application.ExecutablePath) + "\Datenbank.mdb"
    11. con.ConnectionString =
    12. "Provider=Microsoft.Jet.OLEDB.4.0;" &
    13. "Data Source='" & Pfad & "'"
    15. cmd.Connection = con
    16. cmd.CommandText = "select * from Aufträge where Monteur1 = '" & ListBox1.SelectedItem & "'"
    18. Try
    19. con.Open()
    21. reader = cmd.ExecuteReader
    22. Do While reader.Read()
    24. m_App.StartDate = (
    25. reader("DatumTermin"))
    27. m_App.EndDate = (
    28. reader("End"))
    30. m_Appointments.Add(m_App)
    32. DayView1.Invalidate()
    34. Loop
    35. reader.Close()
    36. con.Close()
    37. Catch ex As Exception
    38. MessageBox.Show(ex.Message)
    39. End Try
    40. End Sub


    jetzt halt nicht durch drücken eines Buttons sondern durch eine Auswahl in der Listbox1.

    Das Problem ist dass nur der letzte Eintag von der Datenbank angezeigt wird.

    dejanstar schrieb:

    VB.NET-Quellcode

    1. DayView1.Invalidate()
    Was ganz genau passiert mit DayView1?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    dejanstar schrieb:

    ändert nichts an der Sache.
    Klar.
    Was genau ändert sich an den Inhalten dieser Instanz?
    Da wird nix zugewiesen. :/
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook