直接在窗体上绘制二维文本/不加任何控件展现图像

 

1. Dim g As Graphics = Me.CreateGraphics
2.         Dim mybrush As New Drawing2D.LinearGradientBrush(ClientRectangle, Color.Blue, Color.Yellow, Drawing2D.LinearGradientMode.Horizontal)
3.         Dim myfont As New Font("times new roman", 40)
4.         '由于提供了RECTANGLEf对象,所以文本将在矩形中换行
5.         g.DrawString("Hello,world! keenweiwei !", myfont, mybrush, New Point(10, 10))

由蓝色向黄色渐变

-------------------------------------------------------

不加任何控件展现图像

1.  Dim mybitmap As New Bitmap("d:/我的文档/桌面/002.jpg")
2.         Dim g As Graphics = Me.CreateGraphics
3.         '必须同时指定要绘制的图像以及绘制它的坐标位置
4.         g.DrawImage(mybitmap, 20, 20)

用图片来填充一个椭圆区域

1. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
2.         'Dim mybrush As New SolidBrush(Color.Yellow)
3.         Dim mybrush As New TextureBrush(New Bitmap("d:/我的文档/桌面/002.jpg"))
4.         Dim g As Graphics = Me.CreateGraphics
5.         g.FillEllipse(mybrush, ClientRectangle)
6.     End Sub