Making a list of bitmaps

Question

I have a list of restaurant names that I want to convert into a list of bitmaps showing the name - Here's what I have, what works and what doesn't

If I don't save the bitmap and add it as shown, the list is populated but every image is invalid. Debug details shows every property of every image as follows: Width = '(New System.Collections.Generic.Mscorlib_CollectionDebugView(Of System.Drawing.Bitmap)(Images).Items(0)).Width' threw an exception of type 'System.ArgumentException'

![70386-bad-imagelist.jpg][1] I vastly prefer NOT to have to save as a file and then "import" - any ideas why adding a bitmap to a list fo bitmaps behaves like this ? [1]: /api/attachments/70386-bad-imagelist.jpg?platform=QnA

Answer 1

Imports System.IO
Public Class Form1
    Private R As New Random
    Private Places As New List(Of String)
    Private Images As New List(Of Bitmap)
    Private TheFont As Font = New Font("Engravers MT", 18)
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PictureBox1.Visible = False
        Dim FN As Integer = 1
        Using g As Graphics = Me.CreateGraphics

            For Each S As String In Places ' List of Restaurant Names
                Dim SF As SizeF = g.MeasureString(S, TheFont)
                TextBox1.AppendText(S & " = " & SF.Width & ", " & SF.Height & vbNewLine)
                PictureBox1.Size = New Size(SF.Width, SF.Height)

                Using BM As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
                    Using gg As Graphics = Graphics.FromImage(BM)
                        gg.Clear(Color.White)
                        gg.DrawString(S, TheFont, Brushes.Black, 0, 0)
                    End Using
                    ''BM.Save("D:\AAAAAA\" & S & ".jpg", Imaging.ImageFormat.Jpeg)
                    ''Images.Add(Bitmap.FromFile("D:\AAAAAA\" & S & ".jpg"))
                    ''The code above DOES WORK
                    'The code below DOES NOT WORK
                    'Images.Add(BM)
                End Using
                FN += 1
            Next
        End Using
    End Sub

Answer 2

Hi @Devon Nullman ,

Change

Using BM As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)

to

Dim BM As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)  

Here's the code you can refer to.

    Private R As New Random  
    Private Places As New List(Of String)  
    Private Images As New List(Of Bitmap)  
    Private TheFont As Font = New Font("Engravers MT", 18)  
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click  
        Dim FN As Integer = 1  
        Using g As Graphics = Me.CreateGraphics  
            For Each S As String In Places  
                Dim SF As SizeF = g.MeasureString(S, TheFont)  
                TextBox1.AppendText(S & " = " & SF.Width & ", " & SF.Height & vbNewLine)  
                PictureBox1.Size = New Size(SF.Width, SF.Height)  
  
                Dim BM As Bitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)  
                Using gg As Graphics = Graphics.FromImage(BM)  
                    gg.TextRenderingHint = System.Drawing.Text.TextRenderingHint.SingleBitPerPixel  
                    gg.DrawString(S, TheFont, Brushes.Black, New Point(2, 2))  
                    Images.Add(BM)  
                End Using  
                FN += 1  
            Next  
        End Using  
    End Sub  

Hope it could be helpful.

Best Regards,
Xingyu Zhao
*
If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.