Szachownica

[basia84]

witam

jestem na pierwszym roku infy i nie czaje zbytnio programowania.gosciu zadal nam zadanie narysowania szachownicy w visual studio,szachownica ma sie pojawiac w picturboxie.doszlam juz do tego ze rysuje ale niestety wszedzie ale nie w picturebox:/ pomozcie

tak wyglada jak narazie moj program

Imports System.Drawing.Drawing2D

Public Class Form1

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 

Dim G As Graphics

G = Me.CreateGraphics

Dim redPen As Pen = New Pen(Color.Red, 2)

Dim p1 As Point

Dim p2 As Point

Dim k As Integer

Dim x As Integer

k = 8

For x = 1 To k

p1.X = (Me.Width * x) / k

p1.Y = 0

p2.X = (Me.Width * x) / k

p2.Y = Me.Height

G.DrawLine(redPen, p1, p2)

Next

 

For x = 1 To k

p1.X = 0

p1.Y = (Me.Height * x) / k

p2.X = Me.Width

p2.Y = (Me.Height * x) / k

G.DrawLine(redPen, p1, p2)

Next

 

End Sub

 

Function GetGRaphicsObject() As Graphics

Dim bmp As Bitmap

bmp = New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim G As Graphics

PictureBox1.BackgroundImage = bmp

G = Graphics.FromImage(bmp)

Return G

 

End Function

 

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

 

 

 

End Sub

End Class

 

 

bede wdzieczna za podpowiedzi