如何用VB.NET调用excel的画图命令，即用.NET得到一组点坐标后，调用excel根据点画出曲线图并显示在VB.NET里

你可以通过用VB.net控制excel，让excel生成曲线图，然后利用excelVBA将图输出，最后导入到VB.net就可以了。

十余年的左权网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站的优势是能够根据用户设备显示端的尺寸不同，自动调整左权建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联从事“左权网站设计”,“左权网站推广”以来，每个客户项目都认真落实执行。

用VB编写画图程序

提供一个绘制任意曲线的简单代码。其他功能类似，希望能举一反三。

在窗体中添加一个Picture box，然后输入命令如下：

Dim oldx As Single

Dim oldy As Single

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then       '当鼠标左建按下时发生

Picture1.Line (oldx, oldy)-(X, Y)

oldx = X

oldy = Y

End If

End Sub

Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)

oldx = X

oldy = Y

End Sub

VB.net中如何画图？

分类: 电脑/网络 程序设计 其他编程语言

问题描述:

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画图画程序 vb画图语句
本文路径：http://myzitong.com/article/dogphso.html