vb点虐 拟合曲线 曲线拟合编程
vb中样条曲线问题
不引用的话,VB做不到。这事情要看VB的版本。如果是6.0的话,要去网上下载GDIPLUS的库文件或者自己声明GDI+的API。如果是VB.NET的话,VB自带GDI+,但是也可以下载GDIPLUS库来用。如果不知道去哪里下载,我下载有,你可以问我要。我使用VB6.0。下载gdiplus以后,在VB里面引用这个库,注意要选择“所有文件”才能看到这个库。gdi+里面的path功能可以实现样条:Private TOKEN As Long'GDI+对象
成都创新互联公司-专业网站定制、快速模板网站建设、高性价比上党网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式上党网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖上党地区。费用合理售后完善,十载实体公司更值得信赖。
Private Graphics As Long'画板
Private Sub InitGDIPlus()
'初始化GDI+
Dim uInput As GdiplusStartupInput
uInput.GdiplusVersion = 1
If GdiplusStartup(TOKEN, uInput) Ok Then
'初始化错误
MsgBox "GDI+ 初始化错误。程序即将关闭。", vbCritical, "InitError"
End
End If
GdipCreateFromHDC Me.hDC, Graphics'创建画板
GdipSetSmoothingMode Graphics, SmoothingModeAntiAlias'设置为反锯齿
End SubPrivate Sub TerminateGDIPlus()
GdipDeleteGraphics Graphics '释放graphics占用的内存
GdiplusShutdown TOKEN '关闭GDI+
End SubPrivate Sub Form_Load()
InitGDIPlus '初始化End SubPrivate Sub Command1_Click() Dim path As Long
Dim m(3) As POINTF '以下是坐标,你可以自由改变
m(0).x = 0
m(0).y = 0
m(1).x = 10
m(1).y = 100
m(2).x = 20
m(2).y = 3
m(3).x = 500
m(3).y = 100
Dim pen As Long
GdipCreatePen1 HFF000000, 2, UnitPixel, pen '创建画笔,用来画出样条
GdipCreatePath FillModeAlternate, path '创建path
GdipAddPathBeziers path, m(0), 4 '创建样条'Count是说坐标的个数,points只能传递数组的第一个元素,不能传递数组。
GdipDrawPath Graphics, pen, path '画出样条
GdipDeletePen pen '删除画笔
GdipDeletePath path '删除样条End SubPrivate Sub Form_Unload(Cancel As Integer)
TerminateGDIPlus '删除GDI+
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
求助:如何在VB中将datagrid中的数据做成曲线
在VB5中生成统计图形
在用VB5进行数据库编程时,经常要生成统计图形。生成的方法有很多种,最
简单的是利用VB5提供的MSChart控件。具体操作方法如下:
1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项,
选中并应用,此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1
中画一矩形,生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。
2.利用Access或VB5的可视化数据管理器生成一个example.mdb的数据库,在其
中建一名为temp的数据表,包含“日期”和“数据”两个字段,并在表中输入一些
记录。
3.在Form1中生成一个Command1按钮,然后在Private Sub Command1_click()
中写入以下代码:
dim i as integer
dim NewDyn as recordset
dim OpenWs as Workspace
dim OpenDB as DataBase
set OpenWs=DBengine.Workspaces(0)
set OpenDB=OpenWs.Opendatabase(app.path & 〃\example.mdb〃)
set NetDyn=OpenDB.Openrecordset(〃select * from temp〃,dbOpenSnapShot)
NewDyn.MoveLast
NewDyn.Movefirst
If NewDyn.RecordCount=0 then
Msgbox〃请在数据库中输入数据!〃,vbCritical
Exit sub
End if
With MSChart1
.TitleText=〃直方图示例〃
.RowCount=NewDyn.ReordCount
For i=1 to NewDyn.RecordCount
.Row=i
.Data=NewDyn.Fields(〃数据〃)
.Rowlabel=NewDyn.Fields(〃日期〃)
NewDyn.MoveNext
Next i
End With
NewDyn.Close
4.运行时按Command1键即可生成统计图表了。
如果想生成其他类型的图形,修改MSChart1的属性即可定制成其他各种二维或三维
图表。
如何用VB.NET调用excel的画图命令,即用.NET得到一组点坐标后,调用excel根据点画出曲线图并显示在VB.NET里
你可以通过用VB点虐 控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB点虐 就可以了。
本文题目:vb点虐 拟合曲线 曲线拟合编程
文章链接:http://scyanting.com/article/ddscdco.html