vb.net畫圖區(qū)域,vb中繪制圖形

vb.net讀取txt的數(shù)據(jù)作圖問題

一、分析：

十載的汕尾網(wǎng)站建設(shè)經(jīng)驗，針對設(shè)計、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時及時工作處理。營銷型網(wǎng)站的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動調(diào)整汕尾建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計，從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)從事“汕尾網(wǎng)站設(shè)計”,“汕尾網(wǎng)站推廣”以來，每個客戶項目都認真落實執(zhí)行。

1，這一類隨時間而變化的曲線圖，通常把橫軸作為時間，把縱軸作為相應(yīng)的值，在這里就是密度值。

2，點的集合就是線；一組時間、密度值，對應(yīng)一個點，把點連接起來就構(gòu)成了線。

二、在VB.NET中作圖，需要知道并解決幾個問題：

1，與VB6一樣，VB.NET中默認的坐標系統(tǒng)，左上角為坐標原點，X軸的正向為從左向右，Y軸的正向是從上向下。

為了使得它與數(shù)學(xué)中的坐標系統(tǒng)相一致，可以使用VB.NET中Graphics類的兩個方法；

1、TranslateTransform----平移變換

格式：Graphics.TranslateTransform(dx,dy)

其中：dx 和 dy分別是Single數(shù)據(jù)類型

2、ScaleTransform----縮放變換

格式：Graphics.ScaleTransform(sx,sy)

其中：sx 和 sy分別是Single數(shù)據(jù)類型；

例如：為了符合數(shù)學(xué)中的一般格式，可以使用下述代碼：

Graphics.ScaleTransform(1, -1)

這樣就把Y軸的正方向給翻過來了。

三、VB.NET中繪制圖形

1，繪制圓或橢圓

'繪制圖形的三步曲

'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)

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

MyGraphics.FillEllipse(Brush, 200, 200, 100, 100)

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

MyGraphics.DrawEllipse(Pen, 200, 200, 100, 100)

注意：最后兩個數(shù)值如果不等，就是繪制橢圓

當圓足夠小，就是點了。

2，繪制直線

'1，獲得一個Graphics對象

Dim MyGraphics As Graphics

MyGraphics = Me.CreateGraphics

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

Dim MyPen As New Pen(Color.Black)

MyGraphics.DrawLine(MyPen, 200, 200, 100, 100)

'或者直接用

Me.CreateGraphics.DrawLine(New Pen(Color.Black), 50, 50, 200, 200)

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

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) '繪制一個實心圓，該圓在：直線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畫同心圓

窗體上添加一個按鈕，在該按鈕的單擊事件里編寫代碼如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'聲明窗體的Me.CreateGraphics對象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圓心的X坐標

Dim Cy As Integer = 150 '圓心的Y坐標

Dim R As Integer '圓的半徑

'繪制半徑為R的圓

For R = 5 To 100 Step 5

MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))

Next

End Sub

‘用黑色畫筆繪制一組同心圓，半徑從5開始，增量為5。

說明：

DrawEllipse是VB.Net的Graphics類的繪制橢圓的方法；他有幾種格式，上面使用的是一種；

DrawEllipse（畫筆的顏色，繪制橢圓所需要的矩形區(qū)域）

其中：繪制橢圓所需要的矩形區(qū)域，如果被定義為正方形，就演變成繪制圓，定義該區(qū)域由死個數(shù)值確定，第1個數(shù)值，確定該區(qū)域左上角的X坐標，第2個數(shù)值，確定該區(qū)域左上角的Y坐標，第3個數(shù)值，確定該區(qū)域的寬度，第4個數(shù)值，確定該區(qū)域的高度。

例如1：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))

就是以圓心坐標為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標（150,150），邊長為50的正方形里繪制內(nèi)切圓。理解了是在正方形里繪制內(nèi)切圓，就可以通過數(shù)學(xué)計算，知道如何繪制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圓心坐標為（100,100），繪制半徑為50 的圓。其實在VB.NET中，是告訴系統(tǒng)在以左上角坐標（150,150），長軸為100，短軸為50的內(nèi)切橢圓。

分享名稱：vb.net畫圖區(qū)域,vb中繪制圖形
標題網(wǎng)址：http://muchs.cn/article36/hssdsg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、用戶體驗、標簽優(yōu)化、Google、網(wǎng)站改版、網(wǎng)站營銷

廣告

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