VB.net中如何畫圖？

分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語言

成都創(chuàng)新互聯(lián)公司長期為1000多家客戶提供的網(wǎng)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為招遠(yuǎn)企業(yè)提供專業(yè)的做網(wǎng)站、成都網(wǎng)站制作，招遠(yuǎn)網(wǎng)站改版等技術(shù)服務(wù)。擁有10余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。

問題描述:

VB6中的form1.circle (100,200),rgb(0,255,0)的語句如何在VB中使用啊？

急用啊！！！！！！！！

解析:

VB與VB不同。

VB已經(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

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

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

自己看得了

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

VB.net 如何畫窗體？？

繪制和數(shù)據(jù)分離，就是說，Paint 事件永遠(yuǎn)是用來繪制的，具體繪制什么東西（也就是繪制的數(shù)據(jù)，如半徑為4的圓），有數(shù)據(jù)決定，MouseClick 可以更改一些參數(shù)，然后由Paint 繪制：

MouseClick 事件里，重繪窗體，即：

int r = 0, x = 0, y = 0;

private void Form1_MouseClick(object sender, MouseEventArgs e)

{

r = 10;

x = e.X;

y = e.Y;

this.Invalidate();

}

private void Form1_Paint(object sender, PaintEventArgs e)

{

// 繪制一個(gè)r半徑圓

e.Graphics.DrawEllipse(new Pen(Color.Red), x, y, r, r);

}

補(bǔ)充：

在 MouseClick 事件中去調(diào)用Form 的 Paint 事件，那么參數(shù)要如何傳遞？

參數(shù)是個(gè)全局變量，類似上面的r、x、y等，不是由e傳過去的，

上述代碼是c＃的，vb.net和c＃一樣，都是用的fcl類庫，你改一下就可以了，

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

'繪制圖形的三步曲

'1，獲得一個(gè)Graphics對(duì)象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

'2，定義一個(gè)Pen對(duì)象，用于繪制圖形（輪廓線）

Dim MyPen As New Pen(Color.Black)

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

Dim MyBrush As New SolidBrush(Color.Orange)

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

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

分享標(biāo)題：vb.net窗口繪制 vb中繪制圖形
網(wǎng)頁URL：http://chinadenli.net/article34/hipspe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、網(wǎng)站設(shè)計(jì)、網(wǎng)站收錄、網(wǎng)站排名、網(wǎng)站營銷、網(wǎng)站內(nèi)鏈

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)