About graphics.

**Ken Tucker [MVP]** · Nov 21 '05, 10:46 PM

Re: About graphics.

Hi,

http://www.windowsformsdatagridhelp.com/default.aspx?ID=bc815632-51bf-4e9d-af43-fa9d76e54f15

Ken
---------------------
"Tamer Abdalla via DotNetMonster.c om" <u12711@uwe> wrote in message
news:556062972e 726@uwe...[color=blue]
> Hello, everyone!
>
> I DO need some help in order to understand how to create graphics in
> VB.NET.
> I'm a little bit confused... I once knew a time when using Point & PSet
> was
> almost the only way to make some interesting apps which could tranform
> images
> (i.e. making saturation of colours "heavy", or gradually fade to
> grayscale,
> or "erasing" a colour... and so on), while nowadays it seems quite
> impossible.
>
>
> Now that I got .NET over VisualStudio I'm trying to figure out how to make
> a
> program that is the equivalent of "Hello, world!" speakin' in graphical
> terms:
> I need to split a B&W bitmap (W x H: 128 x 256 pixels) into 256 different
> pieces of it (W x H: 8 x 16), while saving them into 256 different files.
>
> HELP ME!
>
>
> --
> Message posted via DotNetMonster.c om
> http://www.dotnetmonster.com/Uwe/For...b-net/200510/1[/color]

**Peter Proost** · Nov 21 '05, 10:46 PM

Re: About graphics.

Hi,

to add to what Ken posted I created an example with explanation for you.
Place a button and two 128 x 256 picturboxes and a progressbar on a form.
Name the pictureboxes picOrg and picSplit. Create a directory images on your
desktop and place the file to split in it.

Next paste in the following code, for the explanation see the comments in
the code.

Hth Greetz Peter

'at the top of your form you need to import system.drawing
Imports System.Drawing

Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles _ Button1.Click

ProgressBar1.Va lue = 0
ProgressBar1.St ep = 1
ProgressBar1.Ma ximum = 255
'Load the bitmap/image to split from it's location
'in my case a directory called images on the desktop
Dim bmpToSplit As New Bitmap(Environm ent.GetFolderPa th
_(Environment.S pecialFolder.De sktopDirectory) & "\images\test.b mp")

'Create a new bitmap to check if the splitted parts are the same as the
original after the splitting
Dim bmpFromSplitted As New Bitmap(128, 256)

'create a graphics object to do the drawing
Dim g As Graphics

'create a 256 items containing image array (0-255)
Dim images(255) As Bitmap
Dim x, y As Integer

For i As Integer = 0 To 255
'Initialize each array item
images(i) = New Bitmap(8, 16)

'assign the image to the graphics object so it knows what
'it needs to draw on
g = Graphics.FromIm age(images(i))

'get the correct part of the original image and draw it onto one of our
255
'small images
'If you'd translate this line of code into normal language it would be
something like
'take a 8 x 16 part of the original at location x,y and draw it onto or
new image beginning at
'location 0 , 0 and draw it with a width of 8 and height of 16
g.DrawImage(bmp ToSplit, New Rectangle(0, 0, 8, 16), x, y, 8, 16,
GraphicsUnit.Pi xel)
x += 8
If x = 128 Then
x = 0
y += 16
End If

'save the newly created image

images(i).Save( Environment.Get FolderPath(Envi ronment.Special Folder.DesktopD i
rectory) & "\images\" & _ i & ".bmp", Imaging.ImageFo rmat.Bmp)
ProgressBar1.Pe rformStep()
Next

'reset or x and y counter
x = 0
y = 0

'Now we're going to recreat the original image from all 256
'small images

'First assign the bmpFromSplitted bitmap to the graphics object so it knows
what
'it needs to draw on
g = Graphics.FromIm age(bmpFromSpli tted)

For i As Integer = 0 To 255

'Now loop trough all the 256 files and put them at the original
location
g.DrawImage(Ima ge.FromFile(Env ironment.GetFol derPath
_(Environment.S pecialFolder.De sktopDirectory) & "\images\" & i & ".bmp"), x,
y)
x += 8
If x = 128 Then
x = 0
y += 16
End If
Next

'dispose the graphics object
g.Dispose()

'Load the original image and the image created from all small files
'in the pictureboxes
picOrg.Image = bmpToSplit
picSplit.Image = bmpFromSplitted
MsgBox("Splitti ng complete")

End Sub

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning.

"Ken Tucker [MVP]" <vb2ae@bellsout h.net> schreef in bericht
news:u0eflAayFH A.2848@TK2MSFTN GP15.phx.gbl...[color=blue]
> Hi,
>
>[/color]

http://www.windowsformsdatagridhelp.com/default.aspx?ID=bc815632-51bf-4e9d-a

f43-fa9d76e54f15[color=blue]
>
> Ken
> ---------------------
> "Tamer Abdalla via DotNetMonster.c om" <u12711@uwe> wrote in message
> news:556062972e 726@uwe...[color=green]
> > Hello, everyone!
> >
> > I DO need some help in order to understand how to create graphics in
> > VB.NET.
> > I'm a little bit confused... I once knew a time when using Point & PSet
> > was
> > almost the only way to make some interesting apps which could tranform
> > images
> > (i.e. making saturation of colours "heavy", or gradually fade to
> > grayscale,
> > or "erasing" a colour... and so on), while nowadays it seems quite
> > impossible.
> >
> >
> > Now that I got .NET over VisualStudio I'm trying to figure out how to[/color][/color]
make[color=blue][color=green]
> > a
> > program that is the equivalent of "Hello, world!" speakin' in graphical
> > terms:
> > I need to split a B&W bitmap (W x H: 128 x 256 pixels) into 256[/color][/color]
different[color=blue][color=green]
> > pieces of it (W x H: 8 x 16), while saving them into 256 different[/color][/color]
files.[color=blue][color=green]
> >
> > HELP ME!
> >
> >
> > --
> > Message posted via DotNetMonster.c om
> > http://www.dotnetmonster.com/Uwe/For...b-net/200510/1[/color]
>
>[/color]

About graphics.

About graphics.

Comment

Comment