国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

利用MSCHART畫圖的一段代碼

2019-11-18 21:12:42
字體：大 中 小
供稿：網(wǎng)友
<!-- Here we are calling the LPK file.  This LPK file
was created using the same method explained in the article-->

<object CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331"
id="Microsoft_Licensed_Class_Manager_1_0">
   <param NAME="LPKPath" VALUE="mschart5.lpk">
</object>


<-- Here is where we are actually "instantiating" the
ActiveX control.  I downloaded the file mschart5.cab from
Microsoft's website.  It has been digitally signed. -->

<OBJECT ID="MSChart1" WIDTH=100% HEIGHT=95%
CLASSID="CLSID:31291E80-728C-11CF-93D5-0020AF99504A"
  codebase="mschart5.cab">
</OBJECT>


<script LANGUAGE="Vbscript">
'Now, let's set the chart MSChart1.ChartType = 3

'Set the color and width of the line
' This sets the pen color to black (0,0,0)
' and width to 50 pixels.
MSChart1.Plot.SeriesCollection(1).Pen.VtColor.Set 0,0,0
MSChart1.Plot.SeriesCollection(1).Pen.Width = 50


'This sets the chart's labels to various formats,
' fonts, and sizes.
For i = 1 To MSChart1.Plot.Axis(1).Labels.Count
   'Format the Chart labels to Currency
   MSChart1.Plot.Axis(1).Labels(i).Format = "$0,###"
   
   'Set the font to Tahoma
   MSChart1.Plot.Axis(1).Labels(i).VtFont.Name = "Tahoma"
   
   'Set the font size to 10pt
   MSChart1.Plot.Axis(1).Labels(i).VtFont.Size = 10
Next


'This sets the # of rows in the chart
MSChart1.RowCount = 5;

'This sets the number of columns per row.
MSChart1.ColumnCount = 2

'This indicates to show the label
MSChart1.ShowLegend = True


for x = 1 to 5  'The number of rows we have
    'This sets what current row we are editing
    MSChart1.Row = x
    
      'This sets the row's label
    MSChart1.RowLabel = "Row " & x

    'This plots the points for both columns (1 and 2)
    'for the current row (x).  The value being
    'plotted is x*5 and x*10    
    call MSChart1.DataGrid.SetData(x, 1, x*5,nullFlag)
    call MSChart1.DataGrid.SetData(x, 2, x*10,nullFlag)
next

</script>

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 苏尼特右旗| 元江| 中西区| 大厂| 罗平县| 井研县| 平江县| 蚌埠市| 师宗县| 通化县| 襄樊市| 庄浪县| 斗六市| 华蓥市| 资阳市| 巴南区| 都匀市| 晋宁县| 奇台县| 双流县| 沁水县| 二手房| 连平县| 梅州市| 泸溪县| 宣化县| 开江县| 潜山县| 田阳县| 巴东县| 渭南市| 仁布县| 来安县| 聂荣县| 万年县| 日喀则市| 景宁| 公安县| 清新县| 隆昌县| 上林县|