WinForms

Re: Δημιουργία bitmap

axaros — Tue, 19 Jul 2005 19:38:18 GMT

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

Re: Δημιουργία bitmap

Χρήστος Γεωργακόπουλος — Tue, 19 Jul 2005 00:51:00 GMT

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

Re: Δημιουργία bitmap

Χρήστος Γεωργακόπουλος — Tue, 19 Jul 2005 00:48:31 GMT

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

Re: Δημιουργία bitmap

axaros — Mon, 18 Jul 2005 20:44:54 GMT

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

Re: Δημιουργία bitmap

Χρήστος Γεωργακόπουλος — Sat, 16 Jul 2005 23:44:44 GMT

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

Re: Δημιουργία bitmap

axaros — Sat, 16 Jul 2005 23:24:59 GMT

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

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")

Re: Δημιουργία bitmap

axaros — Thu, 16 Jun 2005 22:15:25 GMT

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

Re: Δημιουργία bitmap

plavidas — Thu, 16 Jun 2005 21:20:10 GMT

Θα μπορούσες να γίνεις λίγο ποιό συγκεκριμένος?[<: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

Re: Δημιουργία bitmap

axaros — Thu, 16 Jun 2005 18:17:13 GMT

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

Re: Δημιουργία bitmap

Παναγιώτης Καναβός — Thu, 16 Jun 2005 18:03:51 GMT

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

Δημιουργία bitmap

axaros — Thu, 16 Jun 2005 17:05:05 GMT

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

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

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