温馨提示×

用VB进行GDI+绘图

vb
小云
183
2023-09-16 05:28:27
栏目: 编程语言

使用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方法运行程序。这将创建一个窗体并显示绘制的内容。

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

0