Mehreren Picturenboxen ein Bild Zuweisen

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

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

    Mehreren Picturenboxen ein Bild Zuweisen

    Moin Zusammen, ich habe mir mehrere Pictureboxen Dynamisch erstellt und möchte diesen nun ein Bild geben (.dds, mithilfe der WIC .DDS Datei Laden (DevIL))

    Nur weiß ich nicht genau wie ich ein Control auch zuweisen kann.

    Die WIC läuft mithilfe eines Sub´s die mit einem ByVal Parameter übergeben

    Erstellen der Picturebox:

    VB.NET-Quellcode

    1. For i As Integer = 1 To 10 Step 1​
    2. PBI = New PictureBox
    3. PanelI.Controls.Add(PBI)
    4. With PBI
    5. .Name = i & "_Picturebox"
    6. .Dock = DockStyle.Left
    7. .BackColor = Color.Blue
    8. .Width = 160
    9. .BringToFront()
    10. .Image = LoadDDS(PFAD DER DATEI, 'Hier soll die Picturebox genannt werden z.B. 1_PB)
    12. End With
    13. Next


    Image Funktion laden:

    Siehe: .DDS Datei Laden (DevIL)
    Einzige Änderung:

    VB.NET-Quellcode

    1. ​ Public Sub LoadDDS(ByVal DDSPath As String, ByVal PictureboxX As ???) '<- Hier soll die Zuständige Picturebox Zugewiesen werden
    2. Dim strPicture As String = DDSPath


    Und

    VB.NET-Quellcode

    1. PictureboxX = bmp​


    Auf Google hab ich bislang nur Gefunden wie man mehrere Bilder in einer Picturebox Lädt. Aber das benötige ich nicht...

    Danke im Voraus.

    Hi

    Ich würde in der Schleife nicht jedes mal das gleiche Bild neu laden und der PB zuweisen. Lade das Bild einmal in eine Variable und in der Schleife weist dann den PBs die Variable als Image zu.

    Pseudocode
    Using dds As Bitmap = LoadDDS(Pfad)
    For x.....
    PBI.Image = New Bitmap(dds)
    Next
    End Using
    Mfg -Franky-

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

    Und wie soll ich der WCI Sagen welche Picturebox es ist?

    Hab jetzt das hier Versucht, aber will nicht.


    VB.NET-Quellcode

    1. Public Sub LoadDDS(ByVal DDSPath As String) '<- Hier soll die Zuständige Picturebox Zugewiesen werden
    4. Dim strPicture As String = DDSPath
    5. Dim intWidth As Integer = 0
    6. Dim intHeight As Integer = 0
    7. Dim intBuffSize As Integer = 0
    8. Dim intFrameCount As Integer = 0
    9. Dim tWICRect As WICRect = New WICRect
    10. Dim pIWICLock As IntPtr = IntPtr.Zero
    11. Dim pIWICBitmap As IntPtr = IntPtr.Zero
    12. Dim pIWICDecoder As IntPtr = IntPtr.Zero
    13. Dim pIImagingFactory As IntPtr = IntPtr.Zero
    14. Dim pIWICBitmapFrame As IntPtr = IntPtr.Zero
    15. Dim pIWICFormatConverter As IntPtr = IntPtr.Zero
    16. Dim pData As IntPtr = IntPtr.Zero
    17. ' WIC starten
    18. If CreateImagingFactory(WINCODEC_SDK_VERSION2, pIImagingFactory) = S_OK Then
    19. ' ein Decoder vom Bild erstellen
    20. If CreateDecoderFromFilename(pIImagingFactory, strPicture, IntPtr.Zero,
    21. WICAccessOption.GENERIC_READ,
    22. WICDecodeOptions.WICDecodeMetadataCacheOnLoad,
    23. pIWICDecoder) = S_OK Then
    24. ' Anzahl der Frames ermitteln
    25. If GetFrameCount(pIWICDecoder, intFrameCount) = S_OK Then
    26. ' mindestens ein Frame vorhanden?
    27. If intFrameCount > 0 Then
    28. ' erstes Frame laden
    29. If GetFrame(pIWICDecoder, 0, pIWICBitmapFrame) = S_OK Then
    30. ' ein FormatConverter erstellen
    31. If CreateFormatConverter(pIImagingFactory, pIWICFormatConverter) = S_OK Then
    32. ' FormatConverter initialisieren -> PixelFormat32bppBGRA
    33. If InitializeFormatConverter(pIWICFormatConverter, pIWICBitmapFrame,
    34. GUID_WICPixelFormat32bppBGRA,
    35. WICBitmapDitherType.WICBitmapDitherTypeNone,
    36. IntPtr.Zero, 0,
    37. WICBitmapPaletteType.WICBitmapPaletteTypeMedianCut) = S_OK Then
    38. ' ein WIC-Bitmap vom FormatConverter erstellen
    39. If CreateBitmapFromSource(pIImagingFactory, pIWICFormatConverter,
    40. WICBitmapCreateCacheOption.WICBitmapCacheOnLoad, pIWICBitmap) = S_OK Then
    41. ' Dimensionen der WIC-Bitmap ermitteln
    42. If GetSize(pIWICBitmap, intWidth, intHeight) = S_OK Then
    43. With tWICRect
    44. .X = 0
    45. .Y = 0
    46. .Width = intWidth
    47. .Height = intHeight
    48. End With
    49. ' WIC-Bitmap zum auslesen der Pixeldaten sperren
    50. If WicLockBits(pIWICBitmap, tWICRect, WICBitmapLockFlags.WICBitmapLockRead, pIWICLock) = S_OK Then
    51. ' Pointer auf die Pixeldaten und Größe der Pixeldaten ermitteln
    52. If GetDataPointer(pIWICLock, intBuffSize, pData) = S_OK Then
    53. ' entsprechend ein ByteArray dimensionieren
    54. Dim arrData As Byte() = New Byte(intBuffSize - 1) {}
    55. ' Pixeldaten vom Pointer in das ByteArray kopieren
    56. Marshal.Copy(pData, arrData, 0, intBuffSize)
    57. ' neues Bitmap in gleicher Größe und Pixelformat wie das WIC-Bitmap erstellen
    58. Dim bmp As Bitmap = New Bitmap(intWidth, intHeight, PixelFormat.Format32bppArgb)
    59. ' Bitmap zum schreiben der Pixeldaten sperren
    60. Dim bmpdata As BitmapData = bmp.LockBits(New Rectangle(0, 0, intWidth, intHeight),
    61. ImageLockMode.WriteOnly, bmp.PixelFormat)
    62. ' Pixeldaten aus dem ByteArray in das Bitmap schreiben
    63. Marshal.Copy(arrData, 0, bmpdata.Scan0, intBuffSize)
    64. ' Sperre der Bitmap aufheben
    65. bmp.UnlockBits(bmpdata)
    66. ' Bild ausgeben
    68. 'For Each C As Panel In FlowLayoutPanel1.Controls
    69. ' For Each TB As Control In C.Controls
    70. ' If TB.GetType() Is GetType(PictureBox) Then
    71. ' TB.Name = bmp
    72. ' End If
    73. ' Next
    74. 'Next
    76. For Each C As Panel In FlowLayoutPanel1.Controls
    77. For Each TB As Control In C.Controls
    78. If TB.GetType() Is GetType(PictureBox) Then
    79. TB.BackgroundImage = bmp
    80. End If
    81. Next
    82. Next
    83. ' PictureboxX = bmp
    84. End If
    85. ' Sperre der WIC-Bitmap aufheben
    86. Marshal.Release(pIWICLock)
    87. End If
    88. End If
    89. ' WIC-Bitmap löschen
    90. Marshal.Release(pIWICBitmap)
    91. End If
    92. ' FormatConverter löschen
    93. Marshal.Release(pIWICFormatConverter)
    94. End If
    95. End If
    96. ' geladenes Frame löschen
    97. Marshal.Release(pIWICBitmapFrame)
    98. End If
    99. End If
    100. End If
    101. ' Decoder löschen
    102. Marshal.Release(pIWICDecoder)
    103. End If
    104. ' WIC beenden
    105. Marshal.Release(pIImagingFactory)
    106. End If
    107. ' Next
    108. End Sub

    Hi

    So wie Du Dein Problem beschreibst, wird für jede PB das gleiche Bild verwendet. Dann zunächst aus der Sub eine Funktion machen Die Dir bmp zurück gibt (Code auf das wichtigste eingekürzt).

    VB.NET-Quellcode

    1. Private Function LoadDDS(ByVal DDSPath As String) As Bitmap
    3. Dim intWidth As Integer = 0
    4. Dim intHeight As Integer = 0
    5. ' restliche Dim
    7. Dim bmp As Bitmap = Nothing ' <- neu
    9. ' WIC starten
    10. If CreateImagingFactory(WINCODEC_SDK_VERSION2, pIImagingFactory) = S_OK Then
    12. ' weiterer Code
    14. ' neues Bitmap in gleicher Größe und Pixelformat wie das WIC-Bitmap erstellen
    15. bmp = New Bitmap(intWidth, intHeight, PixelFormat.Format32bppArgb) ' <- ändern
    17. ' weiterer Code
    19. ' Bild ausgeben
    20. ' PictureBox1.Image = bmp ' <- auskommentieren
    22. ' weiterer Code
    24. ' WIC beenden
    25. Marshal.Release(pIImagingFactory)
    27. End If
    29. Return bmp ' <- bmp zurück geben
    31. End Function

    Deinen Code müsstest dann entsprechend anpassen.

    VB.NET-Quellcode

    1. ' Bild einmal laden
    2. Dim dds As Bitmap = LoadDDS(PFAD DER DATEI)
    4. For i As Integer = 1 To 10 Step 1 ' <- Step 1 brauchst Du hier nicht. Nur wenn Step > 1 oder < 0 ist
    5. PBI = New PictureBox
    6. PanelI.Controls.Add(PBI)
    7. With PBI
    8. .Name = i.ToString & "_Picturebox" ' <- i zu einem String konvertieren
    9. .Dock = DockStyle.Left
    10. .BackColor = Color.Blue
    11. .Width = 160
    12. .BringToFront()
    13. .Image = dds ' <- geladenes Bild zuweisen
    14. End With
    15. Next

    Bei CreateDecoderFromFilename kannst auch gleich DDSPath anstelle von strPicture einsetzen. Zu bedenken wäre, wenn DDSPath einen ungültigen Pfad zu einem Bild enthält, liefert Dir die Function LoadDDS Nothing zurück. Evtl. vorher noch den Pfad prüfen ob der Pfad zum Bild auch vorhanden ist. Das aber nur optional.
    Mfg -Franky-

Facebook
Telefonspende