Welcome Guest ( Log In | Click here to Register a free account now! )
Welcome to Bleeping Computer, a free community where people like yourself come together to discuss and learn how to use their computers. Using the site is easy and fun. As a guest, you can browse and view the various discussions in the forums, but can not create a new topic or reply to an existing one unless you are logged in. Other benefits of registering an account are subscribing to topics and forums, creating a blog, and having no ads shown anywhere on the site.![]() ![]() |
Jun 7 2009, 04:28 AM
Post
#1
|
|
![]() Senior Member ![]() ![]() ![]() ![]() Group: Members Posts: 357 Joined: 25-July 08 Member No.: 225,183 |
Thank you, Wolfy87. -------------------- C++ | C | xhtml | CSS | JavaScript | jQuery | PHP | MySql | Visual Basic | Action Script 3.0 / Flex I like to keep my options open. Click here for my first physics engine. |
|
|
|
Jun 7 2009, 04:43 AM
Post
#2
|
|
![]() Senior Member ![]() ![]() ![]() ![]() Group: Members Posts: 357 Joined: 25-July 08 Member No.: 225,183 |
ok, worked it out and refined the code a little, here it is for any people that want to know =)
CODE Imports System.Drawing.Imaging
Public Class MainClass Private Sub MainClass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim MyImage As New Bitmap(256, 256) Dim gr As Graphics = Graphics.FromImage(MyImage) gr.Clear(Color.White) gr.DrawEllipse(Pens.Red, 0, 0, MyImage.Width - 1, MyImage.Height - 1) gr.DrawLine(Pens.Green, 0, 0, MyImage.Width - 1, MyImage.Height - 1) gr.DrawLine(Pens.Blue, MyImage.Width - 1, 0, 0, MyImage.Height - 1) MyImage.Save("test.PNG", ImageFormat.Png) Me.Close() End Sub End Class -------------------- C++ | C | xhtml | CSS | JavaScript | jQuery | PHP | MySql | Visual Basic | Action Script 3.0 / Flex I like to keep my options open. Click here for my first physics engine. |
|
|
|
![]() ![]() |
| Lo-Fi Version | Time is now: 22nd November 2009 - 12:10 AM |