用VB进行GDI+绘图

使用VB进行GDI+绘图可以通过创建一个Graphics对象，并使用其提供的方法进行绘制。下面是一个简单的示例，演示如何使用VB进行GDI+绘图：

Imports System.Drawing Public Class Form1 Inherits Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) MyBase.OnPaint(e) ' 创建Graphics对象 Dim g As Graphics = e.Graphics ' 创建画笔 Dim brush As New SolidBrush(Color.Red) ' 绘制矩形 g.FillRectangle(brush, New Rectangle(50, 50, 100, 100)) ' 绘制椭圆 g.FillEllipse(brush, New Rectangle(200, 50, 100, 100)) ' 绘制文本 g.DrawString("Hello, GDI+!", New Font("Arial", 12), brush, New PointF(50, 200)) End Sub Public Sub New() Me.Text = "GDI+绘图示例" Me.ClientSize = New Size(400, 300) End Sub End Class Public Shared Sub Main() Application.Run(New Form1()) End Sub 

在上面的示例中，我们创建了一个继承自Form的自定义窗体类Form1。在窗体的OnPaint方法中，我们创建了一个Graphics对象，然后使用其FillRectangle、FillEllipse和DrawString方法绘制矩形、椭圆和文本。

在Main方法中，我们通过实例化Form1并使用Application.Run方法运行程序。这将创建一个窗体并显示绘制的内容。

运行上面的代码，将会显示一个窗体，窗体中绘制了一个红色的矩形、椭圆和文本。