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

2013-01-02

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画折线图，怎的做到变换坐标
[解决办法]
还是内定了，内定了就说一下，别让大家瞎忙活
[解决办法]

引用:

引用:
http://topic.csdn.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 '标记样式

? ? ? ? .FillColor.Automatic = False
? ? ? ? .FillColor.Set 0, 255, 255 '填充色
? ? End With

这个可以用控件完成吗？

唉，不说你了，看不懂以上程序吗？？

内定了人员回答，请说明一下~~~~省得我瞎忙~~~~
[解决办法]
只要大家提出合理建议或代码,我想楼主会考虑给分的,千万不要误会.
[解决办法]
看来我只有顶的份了

热点排行