Visual Basic

ChrisDScott93 wrote:

I am unable to determine what sort of equation I could use to account for all of the different sizes.

ChrisDScott93 wrote:

Is there a way to have it draw the circle with the cursor position as the center of the circle.

Dim penCharacterCircle as Pen
Dim gfxCharacterCircle as Graphics

Dim MousePositionX as Integer = Cursor.Position.X - 35 'This offsets the X coordinate so the circle will be drawn to be centered on the MouseClick event.

Dim MousePositionY as Integer = Cursor.Position.Y - 55 'This offsets the Y coordinate

penCharacterCircle = New Pen(System.Drawing.Color.Green, 6)
gfxCharacterCircle.DrawEllipse(penCharacter, MousePositionX, MousePositionY, 50, 50)

ChrisDScott93 wrote:

This is caused by it drawing the circle from the top left to the bottom right, instead of from the center. It draws it like a rectangle.

Origin = centre.x - Radius, centre.y - Radius

gfxCharacterCircle.DrawEllipse(penCharacter, MousePositionX-radius, MousePositionY-radius, radius, radius)

m_SelectedStyle = New DataGridViewCellStyle()
           m_SelectedStyle.BackColor = Color.LightBlue
           m_SelectedStyle.BackColor = SystemColors.Highlight
           DataGridView1.ReadOnly = True
           Dim SQLString As String = "SELECT id, bedrijfsnaam, startdatum, vervaldatum, omschrijving, netto, bruto, opmerkingen FROM Facturen"
           Dim DataSet As New DataSet()
           Dim OleDbDataAdapter As System.Data.OleDb.OleDbDataAdapter = New           System.Data.OleDb.OleDbDataAdapter(SQLString, oleConn)
           oleConn.Open()
           OleDbDataAdapter.Fill(DataSet, "Facturen")
           DataGridView1.DataSource = DataSet.Tables("Facturen")
           'here i do the code to check if a field is smaller then a certain date
            Dim vandaag As String = Today
           Dim i As Integer = 0
           For Each row As DataGridViewRow In DataGridView1.Rows
               If DataGridView1.Item(2, i).Value() > vandaag Then
                   DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.IndianRed
               ElseIf DataGridView1.Item(2, i).Value() < vandaag Then
                   DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
               End If
               i = i + 1
           Next

           oleConn.Close()

Public Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting

'...do your coloring thing

End Sub