ImageList Fehlermeldung beim Hinzufügen von Bildern

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von vb-checker.

    ImageList Fehlermeldung beim Hinzufügen von Bildern

    Hi,
    ich habe ein Usercontrol, dass ein FlowLayoutPanel und eine ImageList beinhaltet. Die Bilder aus der ImageList sollen im FlowLayoutPanel angezeigt werden und man soll Bilder entfernen und hinzufügen können. Dafür habe ich diese Propery geschrieben:

    VB.NET-Quellcode

    1. <Description("Die anzuzeigenden Bilder")> _
    2. <Category("Appearance")> _
    3. <Browsable(True)> _
    4. <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    5. Public Property Images() As ImageList.ImageCollection
    6. Get
    7. Return ImageList1.Images
    8. End Get
    9. Set(ByVal txtValue As ImageList.ImageCollection)
    11. ImageList1.Images.Clear()
    12. FlowLayoutPanel1.Controls.Clear()
    14. For b = 0 To txtValue.Count - 1
    16. ImageList1.Images.Add(b, txtValue.Item(b))
    18. Next
    20. For x = 0 To ImageList1.Images.Count - 1
    22. Dim i As New PictureBox
    23. i.Name = x.ToString
    24. i.Image = ImageList1.Images.Item(x)
    25. i.Size = imgsize
    26. i.Margin = New Padding(10)
    27. i.SizeMode = PictureBoxSizeMode.Zoom
    28. AddHandler i.Click, AddressOf i_CLick
    29. FlowLayoutPanel1.Controls.Add(i)
    31. Next
    33. End Set
    34. End Property


    Aber wenn ich das UserControl dann teste und Bilder hinzufügen will, dann kommt die Fehlermeldung:
    Der Parameter muss den Typ "Image" haben. Parametername: Value
    Weiss einer, was ich da falsch mache?

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „vb-checker“ ()

    Alex2000 schrieb:

    mus das nicht so heisen:

    VB.NET-Quellcode

    1. i.Image = ImageList1.Images(x)

    Ich habs mal geändert. Hat aber nichts gebracht.

    und kannst du mal erklären was du hier erreichen willst:

    VB.NET-Quellcode

    1. ImageList1.Images.Add(b, txtValue.Item(b))


    Naja, ich füge die in txtValue enthaltenen Bilder in die ImageList ein

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    hier weist du ein Index zu der von Eigenschaft "Item" zurück gegeben wird, obwohl wird ein bild erwartet:

    VB.NET-Quellcode

    1. ImageList1.Images.Add(b, txtValue.Item(b))


    und das gleiche noch ein mal:

    VB.NET-Quellcode

    1. i.Image = ImageList1.Images.Item(x)


    Schau dir etwas genauer die Eigenschaften von ImageListe in MSDN an. ;)

    Irgendwie komm ich da nicht weiter. Mein Code sieht nun so aus:

    VB.NET-Quellcode

    1. Public Property Images() As ImageList.ImageCollection
    2. Get
    3. Return ImageList1.Images
    4. End Get
    5. Set(ByVal txtValue As ImageList.ImageCollection)
    7. ImageList1.Images.Clear()
    8. FlowLayoutPanel1.Controls.Clear()
    10. For b = 0 To txtValue.Count - 1
    12. ImageList1.Images.Add(b, txtValue(b))
    14. Next
    17. For x = 0 To ImageList1.Images.Count - 1
    19. Dim i As New PictureBox
    20. i.Name = x.ToString
    21. i.Image = ImageList1.Images(x)
    22. i.Size = imgsize
    23. i.Margin = New Padding(10)
    24. i.SizeMode = PictureBoxSizeMode.Zoom
    25. AddHandler i.Click, AddressOf i_CLick
    26. FlowLayoutPanel1.Controls.Add(i)
    28. Next
    30. End Set
    31. End Property

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

Facebook
Telefonspende