Bild Doppelte größe erstellen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von doci.

    Bild Doppelte größe erstellen

    Hi leute ich möchte ein Programm schreiben mit dem ich ein bild doppelt so groß machen kann.

    Ich habe auch schon rumprogrammiert aber ich bekomm immer die fehlermeldung das Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

    was kann ich da tun ??




    hier ist mein code :

    VB.NET-Quellcode

    1. Dim Höhe As Integer = PictureBox2.Image.Size.Height.ToString()
    2. Dim breite As Integer = PictureBox2.Image.Size.Width.ToString()
    4. ' Pixel Definition
    5. Dim Pixel1 As Integer = 0
    6. Dim Pixel2 As Integer = 0
    7. 'Pixel eingabe
    9. Dim Pixel3 As Integer = 0
    10. Dim Pixel4 As Integer = 0
    15. Dim bitmap2 As New Drawing.Bitmap(Höhe, breite)
    16. Dim bitmap1 As New Drawing.Bitmap(Höhe, breite)
    17. bitmap1 = PictureBox2.Image
    18. Label1.Text = bitmap1.Width.ToString
    19. Label2.Text = bitmap1.Height.ToString
    22. bitmap1 = PictureBox2.Image
    23. bitmap2 = PictureBox1.Image
    24. ' bitmap1.RotateFlip(RotateFlipType.Rotate90FlipY) ' Rotiert das Image
    25. 'bitmap1.GetPixel(Pixel1, Pixel2) ' Gibt die Farbe eines Pixels (hier 0,0) zurück
    28. bitmap2.SetPixel(Pixel3, Pixel4, bitmap1.GetPixel(Pixel1, Pixel2)) 'dies ist die zeile mit der Fehlermeldung.
    31. If Pixel1 = Label1.Text Then
    34. Pixel2 = Pixel2 + 1
    35. Pixel1 = 0
    36. Pixel3 = Pixel3 + 1
    37. Pixel4 = Pixel4 + 1
    39. Else
    41. If Pixel2 = Label2.Text Then
    42. Timer1.Stop()
    44. Exit Sub
    45. End If
    47. Pixel1 = Pixel1 + 1
    49. End If

    Hi

    Ich habe nur der Picturebox2 ein bild gegeben dann soll er

    der Picturebox1 an position 0 0 und Position 0 1, Position 1 0 und Position 1 1 das pixel gesetzt wird das in der picturebox2 eingelesen wird.

    so meine ich das Punkte gleich Pixel.


    Picturebox 2 Pixel wird gelesen:


    .


    Picturebox1 Pixel wird eingetragen

    ..
    ..




    Das wollte ich nur nochmal bildlich machen. :)

    ich versteh kein wort..absolut nicht

    aber eine kleine anmerkung zum "sauberen" programmieren

    VB.NET-Quellcode

    1. Dim breite As Integer = PictureBox2.Image.Size.Width.ToString()


    du willst einer integer variable einen wert zuweisen, den du per befehl in string konvertierst, geht zwar, solang es ne zahl ist, aber gehört sich nicht...da die size generell immer eine zahl ist, brauchst du das ".ToString" nicht

Facebook
Telefonspende