Form1, Form2 soll Wert an Form1 zurückgeben

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von sonne75.

    Form1, Form2 soll Wert an Form1 zurückgeben

    Hallo,

    ich zerbreche mir gerade den Kopf, wie ich es schaffen könnte von einem Form einen Rückgabewert an verschiedene Form's zu bringen.

    Form1 mit TextBox Schlagwort
    Form2 mit TextBox Schlagwort
    ...in beiden in ein Button mit Link auf Form3

    Form3 mit ListBox... was da angecheckt wird soll dann an das Form (1 oder 2 - je nach dem von wo aus Form3 gestartet wurde) zurückgegeben werden.


    Gruß
    Michl75

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „michl75“ ()

    Habe es nun so versucht:

    Form1 (das Form2 aufruft):

    VB.NET-Quellcode

    1. Private Sub llbl_SchlagwoerterHinzufügen_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles llbl_SchlagwoerterHinzufügen.LinkClicked
    3. Dim tempDt As DataTable
    5. Dim testDialog As New SchlagwortUebernahme()
    7. testDialog.ShowDialog()
    9. tempDt = SchlagwortUebernahme._dt
    11. For Each SW In tempDt.Rows
    12. MsgBox(SW.ToString)
    14. Next
    16. End Sub


    Form2 das einen Wert (Datatable) bereit bzw. zurückgeben soll:

    VB.NET-Quellcode

    1. Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
    2. Me.Close()
    3. End Sub
    5. Public ReadOnly Property _dt As DataTable
    6. Get
    7. Return ArchivBoxDBDataSet.DT_SchlagworterUebernahme
    8. End Get
    9. End Property


    ...habe mir das ergoogelt... Problem aber... meine Datatable ( tempDt ) bleibt leer...

    -> ergoogelt

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „michl75“ ()

    Habs jetzt über ein Modul gelöst:

    Form1:

    VB.NET-Quellcode

    1. Private Sub llbl_SchlagwoerterHinzufügen_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles llbl_SchlagwoerterHinzufügen.LinkClicked
    3. Dim testDialog As New SchlagwortUebernahme()
    5. testDialog.ShowDialog()
    7. For i As Integer = 0 To dtSW.Rows.Count - 1
    8. Dim Schlagw As String = SWmodule.dtSW.Rows(i).Item(0).ToString
    9. MsgBox(Schlagw)
    10. Next
    12. End Sub
    13. ...
    14. End Class
    16. Public Module SWmodule
    17. Public dtSW As DataTable
    18. End Module


    Form2:

    VB.NET-Quellcode

    1. Private Tab() As String
    3. Private Sub listBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
    4. For Each Item As DataRowView In Me.ListBox1.SelectedItems
    5. ArchivBoxDBDataSet.DT_Schlagwoerter.Rows.Add(Item(1).ToString)
    6. Next
    7. End Sub
    9. Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
    10. Try
    11. SWmodule.dtSW = ArchivBoxDBDataSet.DT_Schlagwoerter.Copy
    12. Catch ex As Exception
    14. End Try
    16. Me.Close()
    17. End Sub

    michl75 schrieb:

    Habs jetzt über ein Modul gelöst
    Sieh Dir mal folgende Event-Lösung an.
    Ein Projekt mit 2 Forms:
    Form1

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private WithEvents dlg As Form2
    4. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    5. If dlg Is Nothing OrElse dlg.IsDisposed Then
    6. dlg = New Form2
    7. End If
    8. If Not dlg.Visible Then
    9. dlg.Show()
    10. End If
    11. End Sub
    13. Private Sub EventFromForm2(sender As System.Object, e As MyEventArgs) Handles dlg.MyOwnEvent
    14. MessageBox.Show("Event angekommen: " & e.MyString)
    15. End Sub
    16. End Class
    Form2

    VB.NET-Quellcode

    1. Public Class Form2
    2. Public Event MyOwnEvent(sender As System.Object, e As MyEventArgs)
    4. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    5. RaiseEvent MyOwnEvent(Me, New MyEventArgs("bla"))
    6. End Sub
    7. End Class
    9. Public Class MyEventArgs
    10. Inherits EventArgs
    12. Private _myString As String
    13. Public Property MyString As String
    14. Get
    15. Return _myString
    16. End Get
    17. Private Set(value As String)
    18. _myString = value
    19. End Set
    20. End Property
    22. Public Sub New(str As String)
    23. _myString = str
    24. End Sub
    25. End Class
    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!

    @Rod
    Oh, habe ich es falsch gemacht, wenn ich einfach meine Argumente in der Eventfunktion übergeben habe?:
    Form1

    VB.NET-Quellcode

    1. Friend WithEvents frm2 As Form2
    2. Dim s As String
    3. Private Sub evfrm2(ByVal str As String) Handles frm2.EventFromFrm2
    4. s= str
    5. End Sub

    Form2

    VB.NET-Quellcode

    1. Event EventFromFrm2(ByVal str As String)
    2. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    3. RaiseEvent EventFromFrm2("test")
    4. End Sub

    sonne75 schrieb:

    Oh, habe ich es falsch gemacht
    Es geht sicherlich, aber es ist nicht die feine englische Art. Events haben unter .NET standardmäßig die Signatur
    sender As Object
    und
    e As EventArgs (oder von EventArgs abgeleitet).
    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!

    sonne75 schrieb:

    beliebig gestalten kann
    aber nicht soll.
    StyleGuides sind da etwas strenger, die verlangen die von mir aufgeschriebene Struktur.
    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
Telefonspende