[Help]GDI+

Invidus · 2010-09-28T04:19:37.000Z

Hey guys, Does GDI+ support Windows 7 and/or Visual Studio 2010? Because i've downloaded the GDI component, and its an invalid file. Solutions?

Need help?[Help]GDI+ - MPGH

Originally Posted by Xscapism

GDI+ is included by default in VS.NET. And yes it supports vista and 7 too.

Double click your form. Select Form_Paint event and add the following code:

Code:

Dim g As Graphics = e.Graphics Dim rect As New Rectangle(50, 50, 100, 100) Dim BrushX As New LinearGradientBrush(rect, Color.Blue, Color.Indigo, LinearGradientMode.BackwardDiagonal) g.FillRectangle(BrushX, rect)

Congratulations, you just used GDI+ functionality !! -.-

Yeah that's what I was thinking when people were talking about GDI, I was like "Isn't it already included?" but didn't want sound like an idiot

I used GDI only for my MPGH Twitter skin

Anyone that wants a preview add this to your form. (Be sure to set it to FormBorderStyle = none first

[php]
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
'region MainBackground'
Dim blkPen As New Pen(Color.Black, 1)
Dim gBrush As New Drawing2D.LinearGradientBrush(New Point(Width / 2, 0), New Point(Width / 2, Height), Color.FromArgb(142, 193, 218), Color.FromArgb(202, 227, 240))
Dim rect As New Rectangle(New Point(0, 0), Me.Bounds.Size)
e.Graphics.FillRectangle(gBrush, rect)
Dim totalrect As New Rectangle(New Point(0, 0), New Size(Width - 1, Height - 1))
e.Graphics.DrawRectangle(blkPen, totalrect)

'region "DrawTopBar"'
Dim gradBrush As New Drawing2D.LinearGradientBrush(New Point(Width / 2, 0), New Point(Width / 2, 20), Color.FromArgb(8, 117, 171), Color.FromArgb(97, 175, 214))
Dim outlineRect As New Rectangle(New Point(0, 0), New Size(Width - 1, 20))
e.Graphics.FillRectangle(gradBrush, outlineRect)
e.Graphics.DrawRectangle(blkPen, outlineRect)
Dim sFormat As New StringFormat
sFormat.Alignment = StringAlignment.Center
sFormat.LineAlignment = StringAlignment.Center
Dim mFont As New Font("[z] Arista light", 12)
e.Graphics.DrawString("MPGH Tweeter", mFont, Brushes.White, outlineRect, sFormat)
'End region.'
End Sub
[/php]

Just thought I'd hijack the thread with some GDI examples

Oh and the button style I made as well

[php]
Private Sub Button1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint

Dim gBrush As New Drawing2D.LinearGradientBrush(New Point((Button1.Width / 2) + 2, 2), New Point((Button1.Width / 2) + 2, Button1.Height + 2), Color.FromArgb(118, 183, 224), Color.FromArgb(155, 202, 230))
Dim buttonRect As New Rectangle(New Point(2, 2), New Size(Button1.Width - 4, Button1.Height - 4))
e.Graphics.FillRectangle(gBrush, buttonRect)
Dim nBrush As New SolidBrush(Color.FromArgb(60, 255, 255, 255))
e.Graphics.FillRectangle(nBrush, New Rectangle(New Point(2, 2), New Size(Button1.Width - 4, (Button1.Height / 2) - 1)))
Dim sFormat As New StringFormat
sFormat.Alignment = StringAlignment.Center
sFormat.LineAlignment = StringAlignment.Center
Dim daFont As New Font("Microsoft YaHei", 10)
e.Graphics.DrawString("Login", daFont, Brushes.White, buttonRect, sFormat)

End Sub
[/php]

Made by /me

Post a Reply

Similar Threads

Tags for this Thread