注册 登录
编程论坛 VB6论坛

VB使用mschart控件怎么标注下标你???困扰我好久,请高手指点

VBnext 发布于 2014-03-27 11:24, 448 次点击
代码如下:
Private Sub Command1_Click()
Dim y
  MSChart1.chartType = VtChChartType2dBar
  
  MSChart1.RowCount = 1
  MSChart1.ColumnCount = 50
  For y = 1 To 50
   MSChart1.Column = y
   MSChart1.ColumnLabel = y
    If y Mod 2 = 0 Then
     MSChart1.Plot.SeriesCollection(y).DataPoints(-1).Brush.FillColor.Set 0, 0, 255
    Else
      MSChart1.Plot.SeriesCollection(y).DataPoints(-1).Brush.FillColor.Set 255, 0, 0
    End If
 Next

    With MSChart1.Legend
                  .Location.Visible = True
                  .Location.LocationType = VtChLocationTypeBottom
                  '设置图例属性。
                  .TextLayout.HorzAlignment = VtHorizontalAlignmentLeft
                  '使用黄色文本。
                  .VtFont.VtColor.Set 0, 0, 0
                  .Backdrop.Fill.Style = VtFillStyleBrush
                  .Backdrop.Fill.Brush.Style = VtBrushStyleSolid
                  .Backdrop.Fill.Brush.FillColor.Set 255, 255, 255
    End With

  MSChart1.TitleText = "调频点"
End Sub

如下图所示:
只有本站会员才能查看附件,请 登录
1 回复
#2
vbvcr512014-03-27 13:28
下标好像标不出来的,只是图列显示。有什么问题再留言。https://bbs.bccn.net/thread-428764-1-1.html

[ 本帖最后由 vbvcr51 于 2014-3-27 13:33 编辑 ]
1