VB error: De objectverwijzing is niet op een exemplaar va...

Index

» digital corner

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
pi_50345658
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
    • pi_50346134
    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?
    pi_50346409
    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
    pi_50346641
    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?
    pi_50347141
    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 ;)
    actieve topics nieuwe topics
    abonnement Unibet Coolblue Bitvavo
    VB error: De objectverwijzing is niet op een exemplaar va...
    Index

    » digital corner

    Forum Opties
    Forumhop:
    Hop naar:
    (afkorting, bv 'KLB')