VB.net中如何畫圖？

VB.net與VB不同。

創(chuàng)新互聯(lián)是一家專業(yè)提供仙游企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站制作、做網(wǎng)站、H5網(wǎng)站設(shè)計(jì)、小程序制作等業(yè)務(wù)。10年已為仙游眾多企業(yè)、政府機(jī)構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)網(wǎng)站建設(shè)公司優(yōu)惠進(jìn)行中。

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.net怎么實(shí)現(xiàn)圖像的處理

這問題有點(diǎn)籠統(tǒng)，軟糖來說說把：

圖像處理由System.Drawing命名空間負(fù)責(zé)。

主要是Bitmap類和Graphics類。

Bitmap表示一個位圖，可以是BMP,JPG,PNG等文件。

裝載位圖

Dim?位圖?As?Bitmap?=?Bitmap.FromFile("C:\Image1.PNG")

Graphics表示一張畫紙，能夠進(jìn)行繪制操作。

它可以被窗體、控件、位圖調(diào)用CreateGraphics()方法來創(chuàng)建。

然后調(diào)用Graphics.Draw開頭的一系列函數(shù)來繪制圖像和圖形，F(xiàn)ill開頭的填充圖形。

創(chuàng)建畫紙并繪制位圖

Dim?畫紙?As?Graphics?=?Me.CreateGraphics()

畫紙.DrawImage(位圖,?100,?100,?256,?256)

可以將上面三行放到Form1_Load中測試，把路徑改一下，

還可以把Me改為能在上面繪圖的控件的名稱。

更多內(nèi)容請看MSDN的System.Drawing命名空間。

如滿意，請采納，謝謝。

[VB.NET]怎樣讓移動圖像顯示更快一些...

***怎樣讓移動圖像顯示更快一些*** Hide Controls When Setting Properties to Avoid Multiple Repaints Every repaint is expensive. The fewer repaints Visual Basic must perform, the faster your application will appear. One way to reduce the number of repaints is to make controls invisible while you are manipulating them. For example, suppose you want to resize several list boxes in the Resize event for the form: Sub Form_Resize () Dim i As Integer, sHeight As Integer sHeight = ScaleHeight / 4 For i = 0 To 3 lstDisplay(i).Move 0, i * sHeight, _ ScaleWidth, sHeight Next End Sub This creates four separate repaints, one for each list box. You can reduce the number of repaints by placing all the list boxes within a picture box, and hiding the picture box before you move and size the list boxes. Then, when you make the picture box visible again, all of the list boxes are painted in a single pass: 在vb中用move方法移動圖片時,速度有些慢,當(dāng)圖片很大時,這時可以用下面的方法: Sub Form_Resize () Dim i As Integer, sHeight As Integer picContainer.Visible = False picContainer.Move 0, 0, ScaleWidth, ScaleHeight sHeight = ScaleHeight / 4 For i = 0 To 3 lstDisplay(i).Move 0, i * sHeight, _ ScaleWidth, sHeight Next picContainer.Visible = True End Sub Note that this example uses the Move method instead of setting the Top and Left properties. The Move method sets both properties in a single operation, saving additional repaints.

VB.net繪圖具體如何設(shè)置雙緩沖

VB.NET畫圖是不能設(shè)置雙緩沖的，雙緩沖是指窗體，從來沒說是針對控件。

不用graphic.clear清理重畫就不會閃爍。你可以先把容器刪了再重新建立一個再去畫。

簡單舉例：

Graphics g;

Pen p;

Panel pl;

構(gòu)造函數(shù)初始化：

p=new Pen(Color.Red,2);

pl=panel1;

造成閃爍的畫法：

g=pl.CreateGraphics();

g.Clear(SystemColor.ButtonFace);

//.....畫新的

不會閃爍的辦法：

this.Controls.ReMoveAt(panel1);

pl=new Panel();

pl.Name="panel1";

//....創(chuàng)建容器控件

this.Controls.Add(pl);

//繼續(xù)畫

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

一、分析：

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

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

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

1，與VB6一樣，VB.NET中默認(rèn)的坐標(biāo)系統(tǒng)，左上角為坐標(biāo)原點(diǎn)，X軸的正向?yàn)閺淖笙蛴遥琘軸的正向是從上向下。

為了使得它與數(shù)學(xué)中的坐標(biāo)系統(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)

'繪制一個實(shí)心圓，該圓在：直線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ù)值如果不等，就是繪制橢圓

當(dāng)圓足夠小，就是點(diǎn)了。

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)