Καλημέρα ανύσηχοι ...
Για άλλη μια φορά ζητώ τα φώτα σας :
Θέλω να φτιάξω μία ρουτίνα που θα παίρνει ένα Input και θα δημιουργεί αντίστοιχα ένα bitmap της μορφής :
...

Το input του παραδειγματος θα ήταν RGBB
R(ed)
G(reen)
B(lue)
Bl(ack)

Ουστιαστικά για κάθε input θέλω ένα τετραγωνάκι συγκεκριμένων διαστάσεων χρωματισμένο στο επιθυμητό χρώμα.
Πως θα το κάνω ;

---

Πάνος Αβραμίδης

Να βλέπαμε και την εικόνα, καλά θα ήτανε

---

Παναγιώτης Καναβός, Freelancer
Twitter: http://www.twitter.com/pkanavos

Πως θα την κάνω upload ?

---

Πάνος Αβραμίδης

Θα μπορούσες να γίνεις λίγο ποιό συγκεκριμένος?[<:o)]

Τι εννοείς όταν λές να δημιουργήσεις bitmap?
Πάνω σε μία φόρμα? ή να την φτιάξεις στον αέρα και μετα να τη σώσεις στο δίσκο?


Για παράδειγμα στον παρακάτω κώδικα ζωγραφίζεις πάνω στη φόρμα...

Private Sub CreateRect(ByVal aForm As System.Windows.Forms.Form, ByVal aRect As Rectangle, ByVal aColor As System.Drawing.Color)

   Dim g As System.Drawing.Graphics
   'Αρχικοποίηση επάνω στη φόρμα
   g = aForm.CreateGraphics
   'Επιλογή πινέλου για σχεδίαση
   Dim brush As System.drawing.SolidBrush
   Dim rect As Rectangle = aRect
   'επιλογή χρώματος στο πινέλο
   brush = New System.Drawing.SolidBrush(aColor)
   'το χρώμα του BackGround
   g.Clear(Color.White)
   g.FillRectangle(brush, rect)
End Sub

 

---

Παναγιώτης Λαβίδας
Software Developer

Στον αέρα και σώζω ένα αρχείο στο δίσκο ...
Θα δοκιμάσω τον κώδικα σου .. μου φαίνεται ότι είναι ακριβώς αυτό που θέλω ...
Ευχαριστώ πολύ !!!

---

Πάνος Αβραμίδης

Κάτι τέτοιο χρειάζομαι :

Dim bm As New Bitmap(45, 11, Imaging.PixelFormat.Format24bppRgb)

Dim Xcount As Integer

For Xcount = 1 To 10

Dim Ycount As Integer

For Ycount = 1 To 9

bm.SetPixel(Xcount, Ycount, Color.Blue)

Next Ycount

Next Xcount

For Xcount = 12 To 21

Dim Ycount As Integer

For Ycount = 1 To 9

bm.SetPixel(Xcount, Ycount, Color.Red)

Next Ycount

Next Xcount

For Xcount = 23 To 32

Dim Ycount As Integer

For Ycount = 1 To 9

bm.SetPixel(Xcount, Ycount, Color.PaleGreen)

Next Ycount

Next Xcount

For Xcount = 34 To 43

Dim Ycount As Integer

For Ycount = 1 To 9

bm.SetPixel(Xcount, Ycount, Color.Coral)

Next Ycount

Next Xcount

bm.Save("C:\Test.bmp")

 

---

Πάνος Αβραμίδης

Για winforms ή για web το θέλεις αυτό;

---

Χρήστος Γεωργακόπουλος

Για win ...
Να καταλάβεις θέλω να δημιουργούνται κάποια bitmaps που θα χρησιμοποιήσω αργότερα σε ένα grid (Infragistics).

---

Πάνος Αβραμίδης

Public Shared Function GetColoredSquare(ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer, ByVal size As Integer) As Bitmap

If red < 0 Or red > 255 Then Throw New Exception("Invalid red value supplied")

If green < 0 Or green > 255 Then Throw New Exception("Invalid green value supplied")

If blue < 0 Or blue > 255 Then Throw New Exception("Invalid blue value supplied")

If size <= 0 Then Throw New Exception("Invalid size supplied")

Try

Dim Bitmap As Bitmap = New Bitmap(size, size, Imaging.PixelFormat.Format24bppRgb)

Dim Graphic As Graphics = Graphics.FromImage(Bitmap)

Graphic = Graphics.FromImage(Bitmap)

Graphic.Clear(System.Drawing.Color.FromArgb(255, red, green, blue))

Return Bitmap

Catch ex As Exception

Throw New Exception("An error occured while creating colored bitmap", ex)

End Try

End Function

---

Χρήστος Γεωργακόπουλος

Πάρε το και σε παράδειγμα

---

Χρήστος Γεωργακόπουλος

Χρήστο ευχαριστώ θερμά !!!
Και με γειά το avatar !!!

---

Πάνος Αβραμίδης