用VB进行GDI+绘图

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

Imports System.DrawingPublic Class Form1Inherits FormProtected 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 SubPublic Sub New()Me.Text = "GDI+绘图示例"Me.ClientSize = New Size(400, 300)End SubEnd ClassPublic Shared Sub Main()Application.Run(New Form1())End Sub

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

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

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