CenterParent funktioniert nicht bei .ShowDialog() aus BackgroundWorker

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    CenterParent funktioniert nicht bei .ShowDialog() aus BackgroundWorker

    Hallo

    wie kann ich erreichen, dass die Form2, die aus der Form1 mittels BackgroundWorker aufgerufen wird, zentriert über der Form1 liegt?
    Normalerweise reicht es ja, bei Form2 die StartPosition auf CenterParent einzustellen. Ist dies eingestellt, funktioniert es mit dem Button2 ohne Probleme.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Friend WithEvents bwShowDialog As New System.ComponentModel.BackgroundWorker
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. bwShowDialog.RunWorkerAsync()
    7. End Sub
    9. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    10. Using dlg As New Form2
    11. dlg.ShowDialog()
    12. End Using
    13. End Sub
    15. Private Sub bwShowDialog_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwShowDialog.DoWork
    16. Threading.Thread.Sleep(1000) ' puffer, um den sekundären Monitor auszuwählen. Dient der Prüfung, ob die Form2 dann auch bei mehreren Monitoren immer über der Form1 liegt
    17. Using dlg As New Form2
    18. dlg.ShowDialog()
    19. End Using
    20. End Sub
    22. Private Sub bwShowDialog_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bwShowDialog.RunWorkerCompleted
    23. Return
    24. End Sub
    25. End Class

    DanCooper schrieb:

    Normalerweise
    startet ein Dialog im selben Thread wie das Parent.
    Da der BGW ein anderer Thread ist, musst Du den Dialog von Hand zentrieren:

    VB.NET-Quellcode

    1. Private Sub bwShowDialog_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwShowDialog.DoWork
    2. Using dlg As New Form2
    3. dlg.ParentBounds = Me.Bounds
    4. dlg.ShowDialog()
    5. End Using
    6. End Sub

    VB.NET-Quellcode

    1. Public Sub New()
    2. InitializeComponent()
    3. Me.StartPosition = FormStartPosition.Manual
    4. End Sub
    6. Public WriteOnly Property ParentBounds() As Rectangle
    7. Set(value As Rectangle)
    8. Me.Left = value.Left + (value.Width - Me.Width) \ 2
    9. Me.Top = value.Top + (value.Height - Me.Height) \ 2
    10. End Set
    11. End Property
    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!

    .... oder aber Du teilst .Showdialog mit, wo er denn zentrieren soll:

    VB.NET-Quellcode

    1. Public Class Form1
    2. .
    3. .
    4. .
    5. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    6. Using dlg As New Form2
    7. dlg.ShowDialog(Me)
    8. End Using
    9. End Sub
    10. .
    11. .
    12. ,
    13. End Class

    Besten Dank euch zwei! Ich nutze nun beide Varianten.

    Bei Aufrufen aus bwShowDialog.DoWork verwende ich die (etwas erweiterte) Variante von @RodFromGermany, da ich hier einiges Übergeben muss, ausserdem müsste ich bei .ShowDialog(Me) erst noch ein Invoke machen:

    VB.NET-Quellcode

    1. Private manualStartPos As Boolean = False
    3. Public WriteOnly Property ParentBounds() As Rectangle
    4. Set(value As Rectangle)
    5. Me.Left = value.Left + (value.Width - Me.Width) \ 2
    6. Me.Top = value.Top + (value.Height - Me.Height) \ 2
    7. Me.manualStartPos = True
    8. End Set
    9. End Property
    11. Public Overloads Function ShowDialog(ByRef DBMovie As Structures.DBMovie, ByVal Type As Enums.ImageType_Movie, ByRef ImageList As List(Of MediaContainers.Image), ByRef efList As List(Of String), ByRef etList As List(Of String), Optional ByVal _isEdit As Boolean = False) As DialogResult
    13. Me.tMovie = DBMovie
    14. Me.tIsMovie = True
    15. Me._ImageList = ImageList
    16. Me._efList = efList
    17. Me._etList = etList
    18. Me.DLType = Type
    19. Me.isEdit = _isEdit
    20. Select Case DLType
    21. Case Enums.ImageType_Movie.Banner
    22. aDes = Master.eSize.poster_names(0).description
    23. Case Enums.ImageType_Movie.ClearArt
    24. aDes = Master.eSize.poster_names(0).description
    25. Case Enums.ImageType_Movie.ClearLogo
    26. aDes = Master.eSize.poster_names(0).description
    27. Case Enums.ImageType_Movie.DiscArt
    28. aDes = Master.eSize.poster_names(0).description
    29. Case Enums.ImageType_Movie.Fanart
    30. aDes = Master.eSize.backdrop_names(0).description
    31. Case Enums.ImageType_Movie.Landscape
    32. aDes = Master.eSize.poster_names(0).description
    33. Case Enums.ImageType_Movie.Poster
    34. aDes = Master.eSize.poster_names(0).description
    35. End Select
    37. Me.SetUp()
    38. If manualStartPos Then Me.StartPosition = FormStartPosition.Manual
    39. Return MyBase.ShowDialog()
    40. End Function



    Beim Aufrufen einer anderen Form aus bwShowDialog.RunWorkerCompleted nutze ich dann die Lösung von @us4711, da diese Form ohne Parameter angezeigt wird und auch kein Invoke nötig ist.

    :thumbsup:

    DanCooper schrieb:

    VB.NET-Quellcode

    1. Public Overloads Function ShowDialog(...)
    ist suboptimal, genau dafür wurden die Properties erfunden. :D
    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