I want to show the editor for one series by this code:
Code: Select all
Public Sub EditActiveSeries(ByVal Series As Series)
Dim ed As New Editors.SeriesEditor
ed.series = Series
ed.Text = Series.Title
ed.ShowDialog()
End Sub
I figured out that this code works:
Code: Select all
Public Sub EditActiveSeries(ByVal Series As Series)
Dim ParentEditor As New ParentEditor 'it's an empty form
Dim ed As New Editors.SeriesEditor(Series, ParentEditor)
ParentEditor.Text = Series.Title
ParentEditor.ShowDialog()
End Sub
Uli