怎么利用VB.NET實現三維繪圖

數學上不是有斜二測豎渣物畫法，算好坐標即可余液畫出

成都創新互聯公司專注于杜集企業網站建設,響應式網站設計,成都做商城網站。杜集網站建設公司,為杜集等地區提供建站服務。全流程按需定制開發，專業設計，全程項目跟蹤，成都創新互聯公司專業和態度為您提供的服務

或者用AnyCAD的.Net圖形控梁卜件

也可以調用matlab 實現

VB點虐 中如何畫圖？

分類: 電腦/網絡 程序設計 其他編程語言枝渣改

問題描述:

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

急用啊！梁早?。。。。。?！

解析:

VB與VB不同。

VB已經有專門繪圖的類。

可以定義筆刷然后用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 ?其實還是很好繪制圖形的

你可以看下?Graphics ?類

Dim d As New Bitmap(Me.Width, Me.Height) ?‘一個圖片吧

? Dim g As Graphics = Graphics.FromImage(d)’繪制 ?脊塌輪準備在這個圖片是進行

然后 ?就是你繪制的東西了

線 就是 ??g.DrawLine()

圓 弧衫喚度 ?就用 ?g.DrawArc(Pens.Black, New Rectangle(0, 0, 400, 200), 0, 360)

復雜的就是 ? ? ?g.DrawBezier()

等 ?如果你用的是 VS的 ?編譯 ?上面都有詳細的參數說明

櫻信???Dim?d?As?New?Bitmap(Me.Width,?Me.Height)

Dim?g?As?Graphics?=?Graphics.FromImage(d)

g.DrawArc(Pens.Black,?New?Rectangle(0,?0,?200,?200),?0,?360)

g.DrawLine(Pens.Red,?New?Point(0,?0),?New?Point(200,?200))

g.DrawLines(Pens.Green,?New?Point()?{New?Point(0,?0),?New?Point(50,?40),?New?Point(50,?80),?New?Point(90,?70),?New?Point(100,?400)})

g.DrawBezier(Pens.Yellow,?New?Point(0,?100),?New?Point(0,?0),?New?Point(200,?0），?New?Point(200,?200))

g.Dispose()

Me.BackgroundImage?=?d