Ich schreibe ein Programm, das Bilddateien zur Laufzeit erstellt und lädt. Das Problem ist, dass sie nicht angezeigt oder angezeigt werden. Nicht sicher, was ich falsch mache. Ich habe überprüft und der vollständige Pfad für die Bilder ist korrekt.Picturebox zeigt kein Bild an
Sub DrawScreen()
'Call g.DrawImage to draw whatever you want in here
Dim layers(Me.ListBox1.Items.Count) As PictureBox
For i = 0 To ListBox1.Items.Count - 1
'Create New Layer as picturebox
layers(i) = New PictureBox
layers(i).Parent = Me.picWatch
layers(i).BackColor = Color.Transparent
layers(i).Visible = True
Select Case ListBox1.Items(i)
Case "image"
'Debug.Print(ListofLayers(i).Full_Path)
layers(i).Image = Image.FromFile(ListofLayers(i).Full_Path)
layers(i).Top = ListofLayers(i).X
picWatch.Controls.Add(layers(i))
Case "shape"
'Dim g As Graphics
'g.DrawRectangle()
Case "text"
Dim g As Graphics = layers(i).CreateGraphics
g.DrawString(ListofLayers(i).Text, New Font("Arial", 12), Brushes.White, ListofLayers(i).X, ListofLayers(i).Y)
Case Else
Debug.Print(ListBox1.Items(i))
End Select
Next
Me.Refresh()
End Sub
'Schichten (i) .Top = ListofLayers (i) .X' ? X ist normalerweise linke oder rechte Position. Verwenden Sie nicht CreateGraphics. Verwenden Sie das Paint-Ereignis des Steuerelements. – LarsTech
Ich habe gerade bemerkt, was ist 'PicWatch' und wo ist es? –
@VisualVincent müsste es nicht ein Container irgendeiner Art sein, wie ein "Panel"? Es scheint die wahrscheinlichste Möglichkeit zu sein. –