VB用mschart画折线图，怎的做到变换坐标

VB用mschart画折线图，怎样做到变换坐标？
我想变换坐标，比如说新增加一个缩短按钮，点击按钮，横坐标就会变短。

这是我的代码：
请大家帮忙
Option Explicit

Private Sub cmd_close_Click()
    Unload Me
End Sub

Private Sub cmd_pic_Click()
    Dim s As String, i As Long, ss() As String
    Dim cn As New adodb.Connection
    Dim rs As New adodb.Recordset
    cn.CursorLocation = adUseClient

    cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=."
    rs.Open "select number,sdatetime,data from udata", cn, adOpenStatic, adLockOptimistic

    If rs.RecordCount = 0 Then Exit Sub
    ReDim ss(rs.RecordCount)
    With MSChart1
      .RowCount = rs.RecordCount
      .ColumnCount = 1

      .chartType = VtChChartType2dLine
      For i = 1 To rs.RecordCount
        .Row = i
        .Data = rs.Fields("data")
        .RowLabel = rs.Fields("sdatetime")
        rs.MoveNext
      Next i
    End With

    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Private Sub Form_Load()

    Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=."
End Sub

Private Sub Form_Resize()
    MSChart1.Width = Me.Width - 1000
    MSChart1.Left = (Me.Width - MSChart1.Width) / 2
End Sub

------解决方案--------------------
人家自己在玩，我又何必凑热闹呢？ VB用mschart画折线图，怎的做到变换坐标

------解决方案--------------------
VB用mschart画折线图，怎的做到变换坐标

还是内定了，内定了就说一下，别让大家瞎忙活
------解决方案--------------------

引用:

引用:
http://topic.****.net/u/20090915/10/a94369e4-53de-4c4e-b12a-66d96b5431ba.html

人家帮我调的程序，帮助特别大，所以给他分了，别这样啊，都是朋友

  '这个不就是你要的属性吗？
  MSChart1.chartType = VtChChartType2dLine
  '以下不就是你要的小点点吗，你想看X或是+标记？
    MSChart1.Plot.SeriesCollection.Item(1).SeriesMarker.Auto = False
    With MSChart1.Plot.SeriesCollection.Item(1).DataPoints.Item(-1).Marker
        .Visible = True '显示标记
        .Size = 50 '标记大小
        .Style = VtMarkerStyleFilledCircle '标记样式

VB用mschart画折线图，怎的做到变换坐标

相关推荐