|
Help with FillRectangle in VB.net
I'm looking for a little help; I've tried everything. Here is a little section of code of a bigger project. What do I need to plug into the ? in the FillRectangleRectangle call to get this to work? Thanks for any help.
-Bob
Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
Dim i As Integer
Dim pt As Point
Label1.Text = "X=" & MousePosition.X & " Y=" & MousePosition.Y & " "
pt = New Point(MousePosition.X, MousePosition.Y)
For i = 0 To 117
If rects(i).Contains(pt) Then
Beep()
FillRectangleRectangle(?, i)
End If
Next i
End Sub
Public Sub FillRectangleRectangle(e As System.Windows.Forms.PaintEventArgs, ByVal i As Integer)
Dim blueBrush As New SolidBrush(Color.Blue)
e.Graphics.FillRectangle(blueBrush, rects(i))
End Sub
|