Mehrere Rückgabewerte aus einem Dialog

  • VB.NET

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

    Mehrere Rückgabewerte aus einem Dialog

    Ich möchte gerne aus einem Dialog als Result mehrere Werte erhalten.

    Zur Zeit sieht das ganze in etwa so aus:

    VB.NET-Quellcode

    1. Dim aList As New List(Of MediaContainers.Image)
    3. Using dImgSelect As New dlgImgSelect()
    4. If dImgSelect.ShowDialog(DBScrapeMovie, Enums.ImageType.Fanart, aList) = DialogResult.OK Then
    5. Fanart = dImgSelect.Results
    6. End If
    7. End Using



    Der Dialog sieht in etwa so aus:

    VB.NET-Quellcode

    1. Public Class dlgImgSelect
    2. Private _results As New MediaContainers.Image
    3. Private _ImageList As New List(Of MediaContainers.Image)
    5. #Region "Properties"
    6. Public Property Results As MediaContainers.Image
    7. 'Public Property Results As MediaContainers.Image
    8. Get
    9. Return _results
    10. End Get
    11. Set(value As MediaContainers.Image)
    12. _results = value
    13. End Set
    14. End Property
    15. #End Region
    17. Public Overloads Function ShowDialog(ByRef DBMovie As Structures.DBMovie, ByVal Type As Enums.ImageType, ByRef ImageList As List(Of MediaContainers.Image), Optional ByVal _isEdit As Boolean = False) As DialogResult
    18. '//
    19. ' Overload to pass data
    20. '\\
    22. Me.tMovie = DBMovie
    23. Me._ImageList = ImageList
    24. Me.DLType = Type
    25. Me.isEdit = _isEdit
    26. 'Me.isShown = True
    27. Select Case DLType
    28. Case Enums.ImageType.Posters
    29. aDes = Master.eSize.poster_names(2).description
    30. Case Enums.ImageType.Fanart
    31. aDes = Master.eSize.backdrop_names(0).description
    32. End Select
    34. Me.SetUp()
    35. Return MyBase.ShowDialog()
    36. End Function
    38. Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
    39. Try
    40. 'If IsNothing(Me.tmpImage.WebImage.Image) Then
    41. If Not IsNothing(Me.tmpImage.WebImage.Image) Then
    42. Me.pnlBG.Visible = False
    44. Me.Refresh()
    45. Application.DoEvents()
    46. Select Case True
    47. Case Me.rbXLarge.Checked
    48. Results = CType(Me.rbXLarge.Tag, MediaContainers.Image)
    49. Case Me.rbLarge.Checked
    50. Results = CType(Me.rbLarge.Tag, MediaContainers.Image)
    51. Case Me.rbMedium.Checked
    52. Results = CType(Me.rbMedium.Tag, MediaContainers.Image)
    53. Case Me.rbSmall.Checked
    54. Results = CType(Me.rbSmall.Tag, MediaContainers.Image)
    55. End Select
    56. End If
    58. Catch ex As Exception
    59. Master.eLog.WriteToErrorLog(ex.Message, ex.StackTrace, "Error")
    60. End Try
    62. Me.DialogResult = System.Windows.Forms.DialogResult.OK
    63. Me.Close()
    64. End Sub



    Ich möchte nun aber auch noch folgende Rückgabewerte (etList & efList):

    VB.NET-Quellcode

    1. Dim aList As New List(Of MediaContainers.Image)
    2. Dim etList As New List(Of String)
    3. Dim efList As New List(Of String)
    5. Using dImgSelect As New dlgImgSelect()
    6. If dImgSelect.ShowDialog(DBScrapeMovie, Enums.ImageType.Fanart, aList, etList, efList) = DialogResult.OK Then
    7. Fanart = ???
    8. efArt = ???
    9. etArt = ???
    10. End If
    11. End Using



    Was müsste ich machen damit ich als Result alle 3 Werte bekomme?

    @DanCooper:: Gib Deinem Dialog die kommunizierenden Properties und dann so:

    VB.NET-Quellcode

    1. Using dImgSelect As New dlgImgSelect()
    2. If dImgSelect.ShowDialog(DBScrapeMovie, Enums.ImageType.Fanart, aList, etList, efList) = DialogResult.OK Then
    3. Fanart = dImgSelect.Fanart
    4. efArt = dImgSelect.efArt
    5. etArt = dImgSelect.etArt
    6. End If
    7. End Using
    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!

    DanCooper schrieb:

    Optional
    So:

    VB.NET-Quellcode

    1. Using dImgSelect As New dlgImgSelect()
    2. dImgSelect.Fanart = Fanart
    3. dImgSelect.efArt = efArt
    4. dImgSelect.etArt = etArt
    5. If dImgSelect.ShowDialog(DBScrapeMovie, Enums.ImageType.Fanart) = DialogResult.OK Then
    6. Fanart = dImgSelect.Fanart
    7. efArt = dImgSelect.efArt
    8. etArt = dImgSelect.etArt
    9. End If
    10. End Using
    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