VB画线 请问一下,如何利用VB根据记事本中的两列数据来画出线条来。就像根据直角坐标系来画样条曲线一样! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 思路:1、使用Open语句读取记事本数据2、将读来的数据存入一个二维数组3、将这个数组赋值给一个MSChart,实现曲线绘制。 MSChart是什么函数啊?没有接触过耶! mschart不是函数,它是图表控件。可以画直方图,折线图、散点图等。 MSChart是个比较简单的方法 GDI+画线:先到网站下载mGdip.bas:http://www.cmd58.com/ku_web/UploadFile/201042114530261.rarOption ExplicitDim Graphics As LongDim pen As LongPrivate Sub Form_Load() Me.AutoRedraw = True Me.ScaleMode = 3 InitGDIPlus '初始化GDI+ GdipCreateFromHDC Me.hDC, Graphics GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen GdipDrawLineI Graphics, pen, 1, 5, 2, 12 GdipDrawLineI Graphics, pen, 3, 20, 4, 16 GdipDrawLineI Graphics, pen, 5, 4, 6, 1End SubPrivate Sub Form_Unload(Cancel As Integer) GdipDeletePen pen '删除这个笔(pen) GdipDeleteGraphics Graphics '释放graphics占用的内存 TerminateGDIPlus '卸载GDI+End Sub 怎样提取数据库中的数据? VB6求两个窗体可以吸在一起的方法;拖动窗体可以改变位置的方法 〓〓>===→ 怎样屏蔽datagrid的提示信息?up也给分。 如何用printer自定义纸张大小 在VB中如何向SQL-Server数据库表单插入数据 招聘VB高手 关于数据想合并的问题 求教,vb编写的管理程序,实现条码机打印 一个小问题:整型数除以整型数结果赋植给浮点数结果不准确 如何让窗体总在最上层 求助:怎么获取到Windows系统自带的Windows照片查看器打开的图片绝对路径 webBrowser 控件应用
1、使用Open语句读取记事本数据
2、将读来的数据存入一个二维数组
3、将这个数组赋值给一个MSChart,实现曲线绘制。
MSChart是个比较简单的方法
先到网站下载mGdip.bas:http://www.cmd58.com/ku_web/UploadFile/201042114530261.rar
Option ExplicitDim Graphics As Long
Dim pen As LongPrivate Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3
InitGDIPlus '初始化GDI+
GdipCreateFromHDC Me.hDC, Graphics
GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen
GdipDrawLineI Graphics, pen, 1, 5, 2, 12
GdipDrawLineI Graphics, pen, 3, 20, 4, 16
GdipDrawLineI Graphics, pen, 5, 4, 6, 1
End SubPrivate Sub Form_Unload(Cancel As Integer)
GdipDeletePen pen '删除这个笔(pen)
GdipDeleteGraphics Graphics '释放graphics占用的内存 TerminateGDIPlus '卸载GDI+
End Sub