VB. Net class library (Advanced - 2 overload)

This time, let's see how a function drives different parameters

We see ：

  The green part ：1 individual （ common 2 individual ）

We are in the class library main Add 2 Segment function ：

''' <summary>
    '''  This is a coordinate system without letters 
    ''' </summary>
    ''' <param name="picWidth"> Get the length of the picture </param>
    ''' <param name="picHeight"> Get the height of the picture </param>
    ''' <param name="AxisColor"> The color of the axis </param>
    ''' <param name="penwidth"> Pen thickness </param>
    ''' <returns></returns>
    Public Function CreateAxis(picWidth As Integer, picHeight As Integer, AxisColor As Color, penwidth As Single)
        ' Draw the axis in red 
        Dim p As New Pen(AxisColor, penwidth)
        ' Arrow at the end of the axis 
        p.EndCap = Drawing2D.LineCap.ArrowAnchor
        ' Coordinate origin 
        Dim originPointX As Point = New Point(0, picHeight / 2)
        Dim originPointY As Point = New Point(picWidth / 2, picHeight)
        ' Draw abscissa 
        g.DrawLine(p, originPointX, New Point(picWidth, picHeight / 2))
        ' Draw ordinate --http://blog.csdn.net/uruseibest
        g.DrawLine(p, originPointY, New Point(picWidth / 2, 0))
        'g.DrawString("y", New Font(" Song style ", 10, FontStyle.Italic), New SolidBrush(AxisColor), New Point(185, 1))
        'g.DrawString("x", New Font(" Song style ", 10, FontStyle.Italic), New SolidBrush(AxisColor), New Point(390, 205))
        Return Image
    End Function
    ''' <summary>
    '''  Compared with the previous function, there is more than one coordinate system letter , namely  X O Y
    ''' </summary>
    ''' <param name="picWidth"> Get the length of the picture </param>
    ''' <param name="picHeight"> Get the height of the picture </param>
    ''' <param name="AxisColor"> The color of the axis </param>
    ''' <param name="penwidth"> Pen thickness </param>
    '''<param name="font"> typeface </param>
    ''' <returns></returns>
    Public Overridable Function CreateAxis(picWidth As Integer, picHeight As Integer, AxisColor As Color, penwidth As Single, font As Font)

        Dim brush As New SolidBrush(AxisColor)
        ' Draw the axis in red 
        Dim p As New Pen(AxisColor, penwidth)
        ' Arrow at the end of the axis 
        p.EndCap = Drawing2D.LineCap.ArrowAnchor
        ' Coordinate origin 
        Dim originPointX As Point = New Point(0, picHeight / 2)
        Dim originPointY As Point = New Point(picWidth / 2, picHeight)
        ' Draw abscissa 
        g.DrawLine(p, originPointX, New Point(picWidth, picHeight / 2))
        ' Draw ordinate --http://blog.csdn.net/uruseibest
        g.DrawLine(p, originPointY, New Point(picWidth / 2, 0))
        g.DrawString("y", font, brush, New Point(picWidth / 2 - 15, 1))
        g.DrawString("x", font, brush, New Point(picWidth - 10, picHeight / 2 + 10))
        g.DrawString("o", font, brush, New Point(picWidth / 2 - 10, picHeight / 2 + 10))

        Return Image
    End Function

  The second paragraph ：Public Overridable Function CreateAxis(picWidth As Integer, picHeight As Integer, AxisColor As Color, penwidth As Single, font As Font)

end function

Is an overload , It is worth noting that ： The parameters are different