使用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方法運行程序。這將創建一個窗體并顯示繪制的內容。
運行上面的代碼,將會顯示一個窗體,窗體中繪制了一個紅色的矩形、橢圓和文本。