VB.net的 使用畫筆在窗體上繪制不同的圖形的代碼

首先引入System.Drawing和System.Drawing.Drawing2D

成都創(chuàng)新互聯(lián)為企業(yè)級客戶提高一站式互聯(lián)網(wǎng)+設(shè)計(jì)服務(wù)，主要包括網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、成都app軟件開發(fā)公司、成都微信小程序、宣傳片制作、LOGO設(shè)計(jì)等，幫助客戶快速提升營銷能力和企業(yè)形象，創(chuàng)新互聯(lián)各部門都有經(jīng)驗(yàn)豐富的經(jīng)驗(yàn)，可以確保每一個作品的質(zhì)量和創(chuàng)作周期，同時每年都有很多新員工加入，為我們帶來大量新的創(chuàng)意。 

自己看得了

這里面說的有的可以填充的，是g.FillXXXX

vb.net2010中如何在窗口中建立畫布

'繪制圖形的三步曲

'1，獲得一個Graphics對象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定義一個Pen對象，用于繪制圖形（輪廓線）

Dim MyPen As New Pen(Color.Black)

'3，定義一個Brush對象，用于填充圖形（如果需要填充的話）

Dim MyBrush As New SolidBrush(Color.Orange)

MyGraphics.FillEllipse(MyBrush, 200, 200, 100, 100) '繪制一個實(shí)心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃的矩形區(qū)域內(nèi)

MyGraphics.DrawEllipse(MyPen, 200, 200, 100, 100) '繪制一個空心圓，該圓在：直線x=200，y=200，x=200+100，y=200+100所劃的矩形區(qū)域內(nèi)

如何通過vb.net WinForm窗體上畫線條或弧線，讓用戶可以用鼠標(biāo)捕捉（選中）已畫的線條。

代碼寫起來可能比較麻煩，給你個思路，就是用GraphicsPath來繪制，然后通過繪制目標(biāo)的鼠標(biāo)移動事件來獲取當(dāng)前鼠標(biāo)在繪制目標(biāo)中的實(shí)際位置，再通過GraphicsPath的IsVisible()方法來確認(rèn)鼠標(biāo)是否包含在GraphicsPath中。

DrawLine直線比較容易處理，只要得到Line的坐標(biāo)點(diǎn)，然后比較當(dāng)前鼠標(biāo)坐標(biāo)就好。

VB.net中如何畫圖？

VB.net與VB不同。

VB.net已經(jīng)有專門繪圖的類。

可以定義筆刷然后用Drawing類中的方法繪制。

Private Sub DrawEllipse()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub

Private Sub DrawRectangle()

Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)

Dim formGraphics as System.Drawing.Graphics

formGraphics = Me.CreateGraphics()

formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))

myPen.Dispose()

formGraphics.Dispose()

End Sub