如何用VB.NET調(diào)用excel的畫圖命令，即用.NET得到一組點(diǎn)坐標(biāo)后，調(diào)用excel根據(jù)點(diǎn)畫出曲線圖并顯示在VB.NET里

你可以通過用VB.net控制excel，讓excel生成曲線圖，然后利用excelVBA將圖輸出，最后導(dǎo)入到VB.net就可以了。

創(chuàng)新互聯(lián)是專業(yè)的泉港網(wǎng)站建設(shè)公司，泉港接單;提供做網(wǎng)站、成都網(wǎng)站設(shè)計(jì),網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行泉港網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!

vb.net作業(yè)，畫坐標(biāo)軸及標(biāo)尺，畫y=sin（x）曲線

Private Sub mainfrm_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Dim pt(200) As PointF

Dim a As Integer

For a = 0 To 200

pt(a).X = 50 * a

pt(a).Y = 200 - 50 * Math.Sin(a - 1)

Next

Me.CreateGraphics.DrawLine(Pens.Blue, 0, 200, 800, 200)

Me.CreateGraphics.DrawLine(Pens.Blue, 50, 0, 50, 600)

Me.CreateGraphics.DrawCurve(Pens.Blue, pt)

End Sub

vb.net 制作行標(biāo)尺

左邊放一個(gè)專門放行數(shù)的listbox，根據(jù)右邊的行數(shù)自動(dòng)生成行號(hào)

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

Dim arr() = RichTextBox1.Text.Split(vbLf)

Dim str As String

str = ""

For i = 1 To arr.Length

str = str i vbCrLf

Next

RichTextBox2.Text = str

End Sub

接下來是兩個(gè)listbox的同步滾動(dòng)，可以參考這篇文章：

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.net的picturebox里畫出坐標(biāo)啊？

自己用GDI+畫的 無論什么什么尺寸的picturebox都行

不過別太小了o(∩_∩)o

代碼放在哪里自己決定啊

最好是放在 picturebox的resize時(shí)間里

每次picturebox大小改變都重畫一次坐標(biāo)

Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g As Graphics = Graphics.FromImage(b)

g.Clear(Color.White)

Dim p As New Pen(Color.Black)

p.EndCap = Drawing2D.LineCap.ArrowAnchor

g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)

g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)

Dim i As Integer

Dim bs As New SolidBrush(Color.Green)

Dim po As New Point

po.X = 0

po.Y = PictureBox1.Height - 35

For i = 700 To 1000 Step 50

g.DrawString(i, Me.Font, bs, po.X, po.Y)

g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)

po.Y -= (PictureBox1.Height - 100) / 6

Next

po.X = 30

po.Y = PictureBox1.Height - 30

For i = 0 To 40 Step 5

g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)

g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)

po.X += (PictureBox1.Width - 100) / 8

Next

PictureBox1.Image = b

分享題目：包含vb.net畫標(biāo)尺的詞條
標(biāo)題網(wǎng)址：http://m.newbst.com/article24/hjpcce.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、網(wǎng)站排名、動(dòng)態(tài)網(wǎng)站、定制網(wǎng)站、網(wǎng)站收錄、品牌網(wǎng)站制作

廣告

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