91超碰碰碰碰久久久久久综合_超碰av人澡人澡人澡人澡人掠_国产黄大片在线观看画质优化_txt小说免费全本

溫馨提示×

用VB進行GDI+繪圖

vb
小云
170
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
永年县| 双城市| 静安区| 庆阳市| 鸡泽县| 左贡县| 嘉定区| 革吉县| 恩施市| 大厂| 垦利县| 体育| 辽源市| 蓝田县| 天津市| 南靖县| 德庆县| 全州县| 新和县| 华亭县| 施甸县| 南江县| 云梦县| 长沙县| 昌乐县| 万盛区| 高安市| 磴口县| 堆龙德庆县| 兖州市| 哈巴河县| 太白县| 竹山县| 兴和县| 灵台县| 普格县| 临漳县| 渑池县| 武山县| 稷山县| 长葛市|