FOK!forum / Digital Corner / VB error: De objectverwijzing is niet op een exemplaar va...
dj_krismaandag 11 juni 2007 @ 20:32
Hallo

Ik heb hier een scriptje van msdn afgehaald:
1
2
3
4
5
6
7
8
9
10
11
12
13		Public Class Form1
    Dim a As PaintEventArgs
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Create image.
        Dim newImage As Image = Image.FromFile("C:\Documents and Settings\Administrator\Bureaublad\ijswinkel logo.bmp")

        ' Create Point for upper-left corner of image.
        Dim ulCorner As New Point(0, 0)
        ' Draw image to screen.
        a.Graphics.DrawImage(newImage, ulCorner) [*]
    End Sub
End Class


Maar nou krijg ik de volgende foutmelding bij het
  • : De objectverwijzing is niet op een exemplaar van een object ingesteld.
    Weet iemand hoe dit komt?

    Kris
    • Tarabassmaandag 11 juni 2007 @ 20:41
    Dan zit er een fout in je string.. Het pad klopt niet en dan kan het object niet gevonden worden? Geef de image geen spatie, maar een underscore mee. Gaat 'ie dan wel?
    Snakiejmaandag 11 juni 2007 @ 20:46
    Welke regel?

    Lijkt me dat je Image niet goed wordt uitgelezen, waardoor je een NullPointerException terugkrijgt.
    Controlleer dat eens, en zet misschien eens een @ voor je "c: ...

    In C# helpt het iig
    dj_krismaandag 11 juni 2007 @ 20:51
    Naja, eigenlijk snap ik bijna niks van wat er in dat scriptje staat want ik heb nog nooit met graphics gewerkt. Maar eigenlijk moet ik zoiets:
    1
    2    		destrect=new Rectangle(100,100,10,10)
    g.DrawImage(img,destrect,75,40,10,10,GraphicsUnit.Pixel)

    Dit komt van deze site: http://www.bobpowell.net/drawing_an_image.htm
    Ik moet dus een klein plaatje uit een grote afbeelding halen.

    Kan iemand mij verder helpen?
    dj_krismaandag 11 juni 2007 @ 20:59
    O, ik ben er al uit
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16    		    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim DrawBitmap As Bitmap
            DrawBitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)

            Dim g As Graphics
            g = Graphics.FromImage(DrawBitmap)

            Dim newImage As Image = Image.FromFile("C:Documents and SettingsAdministratorBureaubladijswinkel logo.bmp")

            Dim ulCorner As New Point(0, 0)
            Dim destrect As New Rectangle(100, 100, 10, 10)

            g.DrawImage(newImage, destrect, 75, 40, 10, 10, GraphicsUnit.Pixel)

            PictureBox1.Image = DrawBitmap
        End Sub

    Toch bedankt voor de hulp ;)