SaveFileDialog - Picturebox.Color

TomTheCoder15 · 3. Januar 2017, 16:49

Hallo,

Ich habe eine Form gebastelt bei der in deine Picturebox Farben gepackt werden.
Ich habe :

Picturebox1, Picturebox2, Picturebox3, Picturebox4, Picturebox5 die jeweils 100x100 px groß sind.

Ich habe in den Pictureboxen keine Bilder sondern Farben.
Und möchte nun aus den 5 einzelnen Pictureboxen ein Bild machen.

Hoffe mein Problem ist klar geschildert.
Danke im Vorraus für eure Hilfe

Gruß

RodFromGermany · 3. Januar 2017, 16:56

TomTheCoder15 schrieb:

Hoffe mein Problem ist klar geschildert.

Nö.
Was hat das ganze mit SaveFileDialog zu tun?
Was soll hinterher rauskommen?

TomTheCoder15 · 3. Januar 2017, 17:11

SaveFileDialog um das Bild dann abzuspeichern und am Ende möchte ich ein Bild wie dieses haben :

RodFromGermany · 3. Januar 2017, 17:35

@TomTheCoder15 Soll das so was wie Paint werden?
Über welche Programmiererfahrung verfügst Du?

TomTheCoder15 · 3. Januar 2017, 17:46

Naja ich benutze VB 2010 schon seid 2014. Kenne mich einigermaßen aus. Jedoch würde ich die Anforderungen nicht zu hoch setzen

Und nein es soll nicht wie Paint werden es soll so sein, dass ich 5 Pictureboxen habe denen ich einzelnd eine Farbe zuweisen kann.
Bsp.

Picturebox1 ist Rot und Picturebox2 ist Blau.
Dann möchte ich, dass diese beiden Pictureboxen sozusagen aneinander gereiht werden und als Bild gespeichert werden.
Ist das Möglich oder zu kompliziert ?
Man könnte ja auch einen screenshot von dem ganzen machen lassen oder ?

RodFromGermany · 3. Januar 2017, 18:06

@TomTheCoder15 Das Zusammensetzen der Bilder zu einem Bitmap ist kein Problem.
Dieser Code setzt 3 Images aus den PictureBoxen 1, 2, 3 der Größe 64 x 64 zusammen und speichert sie ab:

VB.NET-Quellcode

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using bmp = New Bitmap(64 * 3, 64)
Dim g = Graphics.FromImage(bmp)
g.DrawImage(PictureBox1.Image, New Point(0 * 64, 0))
g.DrawImage(PictureBox2.Image, New Point(1 * 64, 0))
g.DrawImage(PictureBox3.Image, New Point(2 * 64, 0))
bmp.Save("c:\Temp\test.png", Imaging.ImageFormat.Png)
End Using
End Sub

TomTheCoder15 · 3. Januar 2017, 18:15

*Vollzitat entfernt*

RodFromGermany schrieb:

g.DrawImage(PictureBox1.Image, New Point(0 * 64, 0))

Bei dieser Zeile bekomme ich beim Debuggen die Meldung : Wert darf nicht NULL sein. Parametername : Image

Edit by ~blaze~:
*Vollzitat entfernt*

RodFromGermany · 3. Januar 2017, 18:25

@TomTheCoder15 Klar. die Image-Property der PictureBoxen ist bei Dir Nothing.

TomTheCoder15 · 3. Januar 2017, 18:42

Achso...

Ja ich benutze ja keine Bilder. Also ist es eine leichtere Variante einen Screenshot davon machen zu lassen ?

RodFromGermany · 3. Januar 2017, 18:55

@TomTheCoder15 Oder Du malst Deine bunten Rechtecke und befüllst die Image-Property der PictureBoxen:

VB.NET-Quellcode

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim bmp = New Bitmap(64, 64)
Dim g = Graphics.FromImage(bmp)
g.Clear(Color.Red)
PictureBox1.Image = bmp
Dim bmp2 = New Bitmap(64, 64)
g = Graphics.FromImage(bmp2)
g.Clear(Color.Green)
PictureBox2.Image = bmp2
Dim bmp3 = New Bitmap(64, 64)
g = Graphics.FromImage(bmp3)
g.Clear(Color.Blue)
PictureBox3.Image = bmp3
End Sub

TomTheCoder15 · 4. Januar 2017, 11:02

Aaah

Vielen Dank. Das sollte mein Problem lösen

Edit: Jetzt habe ich allerdings ein weiteres Problem. Habe zum speichern nun deinen Code verwendet und bekomme nachdem ich die Farben als Bild malen lassen hab und speichern möchte den Fehler :

bmp.Save("c:\Desktop\test.jpg", Imaging.ImageFormat.Jpeg) <-- Allgemeiner Fehler in GDI+

RodFromGermany · 4. Januar 2017, 11:58

TomTheCoder15 schrieb:

Allgemeiner Fehler in GDI+

ist etwas zu allgemein.
Kannst Du mal den kompletten Code posten?

TomTheCoder15 · 4. Januar 2017, 13:21

VB.NET-Quellcode

Public Class Form1
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
ColorDialog1.ShowDialog()
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
ColorDialog2.ShowDialog()
End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
ColorDialog3.ShowDialog()
End Sub
Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
ColorDialog4.ShowDialog()
End Sub
Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
ColorDialog5.ShowDialog()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PictureBox1.BackColor = ColorDialog1.Color
PictureBox2.BackColor = ColorDialog2.Color
PictureBox3.BackColor = ColorDialog3.Color
PictureBox4.BackColor = ColorDialog4.Color
PictureBox5.BackColor = ColorDialog5.Color
PictureBox6.BackColor = ColorDialog6.Color
Panel1.BackColor = ColorDialog6.Color
Panel2.BackColor = ColorDialog6.Color
Panel3.BackColor = ColorDialog6.Color
Panel4.BackColor = ColorDialog6.Color
Panel5.BackColor = ColorDialog6.Color
PictureBox7.BackColor = ColorDialog6.Color
If TrackBar1.Value = 0 Then
Panel2.Location = New Point(116, 0)
Panel3.Location = New Point(232, 0)
Panel4.Location = New Point(348, 0)
Panel5.Location = New Point(464, 0)
Panel1.Height = 110
Panel1.Width = 110
PictureBox1.Location = New Point(5, 5)
Panel2.Height = 110
Panel2.Width = 110
PictureBox2.Location = New Point(5, 5)
Panel3.Height = 110
Panel3.Width = 110
PictureBox3.Location = New Point(5, 5)
Panel4.Height = 110
Panel4.Width = 110
PictureBox4.Location = New Point(5, 5)
Panel5.Height = 110
Panel5.Width = 110
PictureBox5.Location = New Point(5, 5)
Panel6.Width = 575
Panel6.Height = 110
PictureBox6.Visible = False
End If
If TrackBar1.Value = 2 Then
Panel6.Width = 492
Panel6.Height = 100
End If
End Sub
Private Sub ColorSwitch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorSwitch.Click
ColorDialog6.ShowDialog()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using bmp = New Bitmap(100 * 5, 100)
Dim g = Graphics.FromImage(bmp)
g.DrawImage(PictureBox1.Image, New Point(0 * 100, 0))
g.DrawImage(PictureBox2.Image, New Point(1 * 100, 0))
g.DrawImage(PictureBox3.Image, New Point(2 * 100, 0))
g.DrawImage(PictureBox4.Image, New Point(3 * 100, 0))
g.DrawImage(PictureBox5.Image, New Point(4 * 100, 0))
bmp.Save("c:\Desktop\test.png", Imaging.ImageFormat.Png)
End Using
End Sub
Private Sub PictureBox9_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.MouseEnter
PictureBox9.Visible = False
End Sub
Private Sub ColorSwitch_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorSwitch.MouseLeave
PictureBox9.Visible = True
End Sub
Private Sub PictureBox8_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.MouseEnter
PictureBox8.Visible = False
End Sub
Private Sub PictureBox10_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.MouseLeave
PictureBox8.Visible = True
End Sub
Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click
TrackBar1.Value += 1
'1
If TrackBar1.Value = 0 Then
Panel2.Location = New Point(119, 28)
Panel3.Location = New Point(235, 28)
Panel4.Location = New Point(351, 28)
Panel5.Location = New Point(467, 28)
Panel1.Height = 110
Panel1.Width = 110
PictureBox1.Location = New Point(5, 5)
Panel2.Height = 110
Panel2.Width = 110
PictureBox2.Location = New Point(5, 5)
Panel3.Height = 110
Panel3.Width = 110
PictureBox3.Location = New Point(5, 5)
Panel4.Height = 110
Panel4.Width = 110
PictureBox4.Location = New Point(5, 5)
Panel5.Height = 110
Panel5.Width = 110
PictureBox5.Location = New Point(5, 5)
End If
'2
If TrackBar1.Value = 1 Then
Panel2.Location = New Point(Panel2.Location.X - 9, Panel2.Location.Y + 0)
Panel3.Location = New Point(Panel3.Location.X - 18, Panel3.Location.Y + 0)
Panel4.Location = New Point(Panel4.Location.X - 27, Panel4.Location.Y + 0)
Panel5.Location = New Point(Panel5.Location.X - 36, Panel5.Location.Y + 0)
End If
'3
If TrackBar1.Value = 2 Then
Panel2.Location = New Point(Panel2.Location.X - 9, Panel2.Location.Y + 0)
Panel3.Location = New Point(Panel3.Location.X - 18, Panel3.Location.Y + 0)
Panel4.Location = New Point(Panel4.Location.X - 27, Panel4.Location.Y + 0)
Panel5.Location = New Point(Panel5.Location.X - 36, Panel5.Location.Y + 0)
Panel1.Height = 100
Panel1.Width = 100
PictureBox1.Location = New Point(0, 0)
Panel2.Height = 100
Panel2.Width = 100
PictureBox2.Location = New Point(0, 0)
Panel3.Height = 100
Panel3.Width = 100
PictureBox3.Location = New Point(0, 0)
Panel4.Height = 100
Panel4.Width = 100
PictureBox4.Location = New Point(0, 0)
Panel5.Height = 100
Panel5.Width = 100
PictureBox5.Location = New Point(0, 0)
If CheckBox1.Checked = True Then
PictureBox6.Visible = False
Else
PictureBox6.Visible = True
End If
End If
If TrackBar1.Value = 3 Then
TrackBar1.Value = 0
End If
End Sub
Private Sub PictureBox11_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox11.MouseEnter
PictureBox11.Visible = False
End Sub
Private Sub PictureBox12_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.MouseLeave
PictureBox11.Visible = True
End Sub
Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.Click
If CheckBox1.Checked = True Then
CheckBox1.Checked = False
Panel1.BackColor = Color.Black
Panel2.BackColor = Color.Black
Panel3.BackColor = Color.Black
Panel4.BackColor = Color.Black
Panel5.BackColor = Color.Black
Else
CheckBox1.Checked = True
Panel1.BackColor = Color.Transparent
Panel2.BackColor = Color.Transparent
Panel3.BackColor = Color.Transparent
Panel4.BackColor = Color.Transparent
Panel5.BackColor = Color.Transparent
End If
End Sub
Private Sub PictureBox13_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.MouseEnter
PictureBox13.Visible = False
End Sub
Private Sub PictureBox14_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.MouseLeave
PictureBox13.Visible = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim bmp = New Bitmap(100, 100)
Dim g = Graphics.FromImage(bmp)
g.Clear(PictureBox1.BackColor)
PictureBox1.Image = bmp
Dim bmp2 = New Bitmap(100, 100)
g = Graphics.FromImage(bmp2)
g.Clear(PictureBox2.BackColor)
PictureBox2.Image = bmp2
Dim bmp3 = New Bitmap(100, 100)
g = Graphics.FromImage(bmp3)
g.Clear(PictureBox3.BackColor)
PictureBox3.Image = bmp3
Dim bmp4 = New Bitmap(100, 100)
g = Graphics.FromImage(bmp4)
g.Clear(PictureBox4.BackColor)
PictureBox4.Image = bmp4
Dim bmp5 = New Bitmap(100, 100)
g = Graphics.FromImage(bmp5)
g.Clear(PictureBox5.BackColor)
PictureBox5.Image = bmp5
'Dim scr As Bitmap
'Dim w As Integer = Me.Width
'Dim h As Integer = Me.Height
'scr = New Bitmap(w, h)
'Me.DrawToBitmap(scr, Rectangle.FromLTRB(0, 0, w, h))
'SaveFileDialog1.ShowDialog()
'If SaveFileDialog1.FileName = "" Then
' SaveFileDialog1.ShowDialog()
'Else
' scr.Save(SaveFileDialog1.FileName)
'End If
End Sub
Private Sub PictureBox15_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox15.MouseEnter
PictureBox15.Visible = False
End Sub
Private Sub PictureBox16_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox16.MouseLeave
PictureBox15.Visible = True
End Sub
Private Sub PictureBox16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox16.Click
'PictureBox1.BackColor = Color.White
'PictureBox2.BackColor = Color.White
'PictureBox3.BackColor = Color.White
'PictureBox4.BackColor = Color.White
'PictureBox5.BackColor = Color.White
'Panel1.BackColor = Color.Black
'Panel2.BackColor = Color.Black
'Panel3.BackColor = Color.Black
'Panel4.BackColor = Color.Black
'Panel5.BackColor = Color.Black
'Panel6.BackColor = Color.Black
ColorDialog1.Color = Color.White
ColorDialog2.Color = Color.White
ColorDialog3.Color = Color.White
ColorDialog4.Color = Color.White
ColorDialog5.Color = Color.White
ColorDialog6.Color = Color.Black
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ColorDialog1.Color = Color.Lime
ColorDialog2.Color = Color.White
ColorDialog3.Color = Color.Lime
ColorDialog4.Color = Color.White
ColorDialog5.Color = Color.Lime
End Sub
End Class

RodFromGermany · 4. Januar 2017, 16:23

@TomTheCoder15

Pack den Code bitte in einen

Spoiler

Spoiler
~~poste bitte noch die Form1.Designer.vb~~

=============

VB.NET-Quellcode

bmp.Save("c:\Desktop\test.png", Imaging.ImageFormat.Png)

Kann es sein, dass es bei Dir das Verzeichnis c:\Desktop\ nicht gibt?

mrMo · 4. Januar 2017, 18:21

bmp.Save("c:\Desktop\test.png", Imaging.ImageFormat.Png)
-> Sieht der Desktop Pfad nicht normalerwiese irgend wie so in der Richtung aus C:\Users\Name\Desktop ?

TomTheCoder15 · 5. Januar 2017, 23:58

Ah Vielen Dank. Es war wirklich der Fehler, dass es nicht der richtige Pfad war.

SaveFileDialog - Picturebox.Color

SaveFileDialog - Picturebox.Color

TomTheCoder15 schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

VB.NET-Quellcode

TomTheCoder15 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben