Images in Panels darstellen

  • VB.NET

    Images in Panels darstellen

    Hallo ^^

    Ich habe in meinem Programm ein Panel, dass in mehreren Paneln die Seiten eines bestimmten Dokuments untereinander anzeigt. Anfangs hat das auch noch funktioniert. Im Moment zeigt er aber in allen Paneln nur die letzte Seite. Welche Seite angezeigt werden soll entscheidet eigentlich die Methode: "selectActiveFrame".



    VB.NET-Quellcode

    1. Public Sub bilderSammeln(sPfad As String)
    3. If Mid(sPfad, sPfad.Length - 3) <> ".pdf" Then
    4. seitenPanel.Controls.Clear()
    5. firstPanel = True
    7. Dim img As Image = Image.FromFile(sPfad)
    9. iSeitenAnzahl = img.GetFrameCount(Imaging.FrameDimension.Page)
    10. iAktuelleSeite = 1
    12. For i As Integer = 0 To iSeitenAnzahl - 1
    14. Dim pnl As New Panel()
    15. If firstPanel Then
    16. pnl.BackColor = System.Drawing.Color.PeachPuff
    17. pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
    18. pnl.Location = New System.Drawing.Point(15, 10)
    19. pnl.Size = New System.Drawing.Size(224, 200)
    20. firstPanel = False
    22. Else
    23. pnl.BackColor = Color.PeachPuff
    24. pnl.BorderStyle = BorderStyle.FixedSingle
    25. pnl.Location = New System.Drawing.Point(DirectCast(PanelContainer(PanelContainer.Count - 1), Panel).Left, DirectCast(PanelContainer(PanelContainer.Count - 1), Panel).Bottom + 5)
    26. pnl.Size = New System.Drawing.Size(224, 200)
    28. End If
    30. pnl.Name = i.ToString
    32. AddHandler pnl.Click, AddressOf panelKlick
    34. pnl.Visible = True
    35. pnl.TabIndex = PanelContainer.Count
    37. pnl.BackgroundImage = img
    38. img.SelectActiveFrame(FrameDimension.Page, i)
    40. pnl.BackgroundImageLayout = ImageLayout.Zoom
    42. seitenPanel.Controls.Add(pnl)
    43. PanelContainer.Add(pnl)
    45. Next
    46. End If


    ~blaze~: Thema verschoben
    We are all suckerz for something ...

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „~blaze~“ ()