VB.NET绘图4---绘制字符串文本

 '========================================================
    '函数名称：Drawing5()
    '函数参数：
    '函数功能：绘制字符串
    '=======================================================
    Private Sub Drawing6()
        Dim Graphics1 As Graphics = PictureBox1.CreateGraphics  '在容器PictureBox1里面 创建画布
        Dim Brush1 As New SolidBrush(Color.Blue)                ' 创建画刷，并且制定红色
        Dim Font1 As New Font("宋体", 10)
        '使用DrawString 方法时，如果提供了一个矩形对象(RectangleF)，则文本在这个指定的矩形中换行显示，
        '否则将从提供的坐标起始绘制显示文本
        Graphics1.DrawString("cesi测试", Font1, Brush1, New RectangleF(10, 40, 100, 200)) '

        Font1 = New Font("宋体", 20)
        Graphics1.DrawString("cesi测试", Font1, Brush1, 0, 10)

        Graphics1.Dispose() '释放内存
        Brush1.Dispose() '释放内存

    End Sub