pictures fra resourcer

Er det det samme du spørger om her?
http://eksperten.dk/spm/568919

Har lagt et svar ...

Det er det nemlig...

Og så lige et andet...

Hvordan skriver man alle side billeder før de vises?

Tror ikke helt jeg forstår?

Altså at kunne tegne alle 10 billdeer i sin picturebox, før den bliver vist... Så man slipper for at se at den tegner dem alle 10...

forstår du ?

Ja, ok - går det da meget langsomt med at tegne dem?

Prøv at indsætte

  Me.SuspendLayout()

lige inden du begynder at tegne billederne, og

  Me.ResumeLayout()

når du er færdig. Se om det hjælper.

Det er fordi at jeg er ved at lave en EOB ligende spil...

Og der skal mappet jo tegnes...

Ok, og Suspend- og ResumeLayout fungerede ikke efter hensigten?

Nææ, ikke rigtigt...

Du kan fx lave en array af Bitmaps eller Images.

Eksempelvis:

Dim mImages(9) As System.Drawing.Image

og læse de 10 billeder ind i dette array, inden du viser billederne. Så skulle det gå lige hurtigere.

lige = lidt

Det køre sådan her:

Dim gr As Graphics = PictureBox1.CreateGraphics


        Dim i, a, posx, posy, sizex, sizey As Integer
        image_a = Bitmap.FromFile("C:\Documents and Settings\David Dollas\Desktop\wall11.gif")
        image_b = Bitmap.FromFile("C:\Documents and Settings\David Dollas\Desktop\wall01.gif")
        image_c = Bitmap.FromFile("C:\Documents and Settings\David Dollas\Desktop\wall21.gif")
        image_d = Bitmap.FromFile("C:\Documents and Settings\David Dollas\Desktop\wall31.gif")
        image_e = Bitmap.FromFile("C:\Documents and Settings\David Dollas\Desktop\wall03.gif")
        image_f = Bitmap.FromFile("C:\Documents and Settings\David Dollas\Desktop\wall13.gif")
        image_g = Bitmap.FromFile("C:\Documents and Settings\David Dollas\Desktop\wall23.gif")
        image_h = Bitmap.FromFile("C:\Documents and Settings\David Dollas\Desktop\wall33.gif")

     




     
        gr.DrawImage(image_h, 278, 61, 170, 122)
        gr.DrawImage(image_g, 297, 48, 150, 170)
        gr.DrawImage(image_f, 327, 22, 120, 267)
        gr.DrawImage(image_e, 384, 0, 64, 326)
        gr.DrawImage(image_d, 0, 61, 170, 122)
        gr.DrawImage(image_c, 0, 48, 150, 170)
        gr.DrawImage(image_a, 0, 21, 120, 267)
        gr.DrawImage(image_b, 0, 0)

Dvs. du har fundet en løsning du kan bruge? eller hvordan?

Jeg kan se, at den ikke henter fra Embedded Resources, men direkte fra fil?

Ja jeg har lige lavet det om til det du skrev i det andet spørgsmål, og det virker nu, så jeg smider lige point der...

Men spørgsmålet går så på hvordan man får den til at tagne dem, og så vise dem tilsidst...

forstår du ?

Ja, det var så det mit forslag fra 12:41:40 gik på -- Altså en form for "pre-load". Det kan jeg se du har forsøgt at implementere i ovenstående, men jeg går ud fra, at heller ikke det fungerede.

Hvad med bare at skrive

  PictureBox1.Visible = False
  Application.DoEvents()

og så tegne alle dine billeder, og derefter

  PictureBox1.Visible = True

har jeg også prøvet... De kommer i hak... :(

også hvis du benytter Application.DoEvents() ?

Med den du har lavet der komme de slet ikke med.

Har du mulighed for at kigge hvis jeg sender det hele til dig på email... selvføgelig flere point...

Ved du præcist hvor stort det "færdige" billede er ?

Yes sir... Det er:

448 * 326

Ok, så kan man nok godt lave noget der virker.

Jeg kan ikke hjælpe dig lige nu, men jeg kan forsøge at kigge på det i løbet af aftenen.

okay.... Mange tak.

Hey! Havde helt glemt dette spørgsmål.

Jeg ved ikke om du stadig skal bruge hjælp, og jeg kan egentlig ikke helt huske, hvad det var jeg havde tænkt mig at bikse sammen, men du kan jo prøve følgende:

    Dim lFullBitmap As New Bitmap(448, 326)
    Dim lGraphics As Graphics = Graphics.FromImage(lFullBitmap)
    Dim lBitmap(7) As Bitmap

    lBitmap(0) = New Bitmap("C:\Documents and Settings\David Dollas\Desktop\wall11.gif")
    lBitmap(1) = New Bitmap("C:\Documents and Settings\David Dollas\Desktop\wall01.gif")
    lBitmap(2) = New Bitmap("C:\Documents and Settings\David Dollas\Desktop\wall21.gif")
    lBitmap(3) = New Bitmap("C:\Documents and Settings\David Dollas\Desktop\wall31.gif")
    lBitmap(4) = New Bitmap("C:\Documents and Settings\David Dollas\Desktop\wall03.gif")
    lBitmap(5) = New Bitmap("C:\Documents and Settings\David Dollas\Desktop\wall13.gif")
    lBitmap(6) = New Bitmap("C:\Documents and Settings\David Dollas\Desktop\wall23.gif")
    lBitmap(7) = New Bitmap("C:\Documents and Settings\David Dollas\Desktop\wall33.gif")

    lGraphics.DrawImage(lBitmap(0), 278, 61, 170, 122)
    lGraphics.DrawImage(lBitmap(1), 297, 48, 150, 170)
    lGraphics.DrawImage(lBitmap(2), 327, 22, 120, 267)
    lGraphics.DrawImage(lBitmap(3), 384, 0, 64, 326)
    lGraphics.DrawImage(lBitmap(4), 0, 61, 170, 122)
    lGraphics.DrawImage(lBitmap(5), 0, 48, 150, 170)
    lGraphics.DrawImage(lBitmap(6), 0, 21, 120, 267)
    lGraphics.DrawImage(lBitmap(7), 0, 0)

    PictureBox1.Image = lFullBitmap

Jeg har bare brugt din kode fra tidligere, og ændret lidt i den. lFullBitmap bliver tegnet først, og så vist på skærmen i PictureBox1. Derved undgås, at billederne kommer i "hak".