GDI - Bitmap wird nicht gezeichnet

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Load-soft.ch.vu.

    GDI - Bitmap wird nicht gezeichnet

    Hey,
    Ich habe eine Structure in der soll ein Rectangle drin sein ein Integer und ein Bitmap, folgende:

    VB.NET-Quellcode

    1. Public Structure RRectangle
    2. Dim Rect As Rectangle
    3. Dim Imagecount As Integer
    4. Dim Bmp As Bitmap
    5. End Structure

    Und habe jetzt eine neue List(Of RRectangle) erstellt, ich möchte nun dortrein die RRectangles adden (mit den Rectangles Imagecount aber auch das Bitmap) habe ich auch getan so:

    VB.NET-Quellcode

    1. Dim r As New RRectangle
    2. r.Rect = rechteck
    3. List.Add(r)

    So und später woltle ich dann noch bilder und bmp zuweisen und diese gleich draufmalen:

    VB.NET-Quellcode

    1. For Each Auflistung As RRectangle In rechtecke
    2. Dim ran As New Random
    3. Dim bild As New Bitmap(bilder(ran.Next(0, bilder.Length)))
    4. Auflistung.PB = bild
    5. Auflistung.Bmp = bild
    6. g.DrawImage(bild, Auflistung.Rect.X, Auflistung.Rect.Y)
    7. Next

    Aber er malt das Bild (bild) nun nicht drauf
    mein Array:

    VB.NET-Quellcode

    1. Public bilder As Bitmap() = {My.Resources.Blume, My.Resources.Fahrstuhl, My.Resources.Gebüschanfang, My.Resources.Gebüschende, My.Resources.Gebüschlinksoben, My.Resources.Goldsteinunbrauchbar, My.Resources.Himmel1, My.Resources.Himmel, My.Resources.Himmel2, My.Resources.Klotz, My.Resources.Mariolinks, My.Resources.Monsterfalling, My.Resources.Mariomonster, My.Resources.Schatzkiste, My.Resources.Schild}

    Hoffe ihr könnt mir helfen!
    Mfg
    Loadsoft
    falls ihr fragt fehleranzeige ist keine.

    Im Form Load
    Also so:

    VB.NET-Quellcode

    1. Dim g as Graphics
    2. Panel1.Backgroundimage = New Bitmap(panel1.width, Panel1.height)
    3. g = Graphics.Fromimage(Panel1.Backgroundimage)
    4. g.Clear(Color.Black)

    Daran kanns ja auch nicht liegen habe ja davor 150 Rechtecke gezeichnet.