如何在vb中绘制多条曲线

如何在vb中绘制多条曲线

这个是我在点击listview的标题时把获得的值放到数组Batch_array中

在mschart中显示相关内容的代码或许有用

最大值，最小值可以给数组排一下序

bt是标题的意思

leng是数组的长度

TempArray是临时数组

Public Sub ShowChar(bt As String, leng As Integer)

On Error GoTo errshow

Dim Tstr As String

Dim TT As String

With MSChart1

.chartType = 9

.ColumnCount = Total_City '设置列数

.RowCount = 1 '设置每一列的列数

TT = Batch_array(1) & ":" & Left(TempArray(1), leng - 1) & " "

For Column = 1 To Total_City

.Column = Column '返回当前列数

.Data = Mid(TempArray(Column), leng, 3)

.RowLabel = bt

If Column < Total_City Then

.ColumnLabel = Batch_array(Column + 1) & ":" & Left(TempArray(Column + 1), leng - 1) & " "

Else

.ColumnLabel = TT

End If

Next Column

'将图表作为图例的背景。

.ShowLegend = True

.SelectPart VtChPartTypePlot, 1, 1, _

1, 1

.EditCopy

.SelectPart VtChPartTypeLegend, 1, _

1, 1, 1

.EditPaste

End With

Exit Sub

errshow:

MsgBox Err.Descriptionk, vbDefaultButton1, "提示"

End Sub

vb中如何用load导入图像

将图片导入至image框

编程

09-11-28 匿名提问发布1个回答

时间

投票

fx676eu59

picturebox控件有一个Load(string url)方法,传入要读取的图片路径就可以了,如: this.pictureBox1.Load(1.png); 在这里要注意的是,程序读取图片文件的默认路径是在其项目文件夹的bin\debug目录下,这里我直接给路径为1.png 是因为我已经把

该图片复制到bin\debug目录下面去了.当然也可以指定其它的文件夹如果你需要

在窗体显示出来的时候就在picturebox控件中显示出来可以在如窗体的Paint事件中调用此方法,如: private void Form1_Paint(object sender, PaintEventArgs e) {

this.pictureBox1.Load(1.png);

Private Sub Command1_Click()

Picture1.BorderStyle = 0

Picture1.Picture = LoadPicture("c:\test.bmp")

SavePicture Picture1.Image, "C:\tmp.bmp"

ImgEdit1.Image = ("c:\tmp.bmp") '装载一幅图片

ImgEdit1.Display '将装载的图片显示出来

ImgEdit1.SaveAs "c:\1.jpg", wiFileTypeJPG, , 6 '保存成JPG文件

Kill "c:\tmp.bmp"

MsgBox "ok"

End Sub

取得曲线中的坐标值

for i=y1 to y2 step 0.1 ’step根据实际情况修改，只要保证曲线上对应的点不会跳过扫描

if me.point(x,i)=color then y=i *color是曲线的颜色值

next