首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

teechart控件 多轴曲线 缩放 及数值显示?该怎么处理

2013-11-11 
teechart控件 多轴曲线 缩放 及数值显示?[解决办法]多条曲线最好还是自己通过Picturebox绘制。[解决办法]解

teechart控件 多轴曲线 缩放 及数值显示?

[解决办法]
多条曲线最好还是自己通过Picturebox绘制。
[解决办法]
解决你第二个问题:给你一个例子
Private Sub TChart2_OnMouseMove(ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
    Dim somebar As Single  ‘定义变量
    With TChart2.Series(0)
        somebar = .Clicked(X, Y)    ’获得鼠标点击的地方的坐标
        If somebar <> -1 Then       ‘判断,没有什么具体意义
            Label27.ForeColor = .PointColor(somebar)   ’标签中字体颜色和点击的系列相同
            Label27.Caption = Format(.XValues.Value(somebar) + 3, "0000") + "相对误差:" + Format(.YValues.Value(somebar), "0.0") + " %"            ‘显示坐标
        End If
    End With
    With TChart2.Series(1)
        somebar = .Clicked(X, Y)
        If somebar <> -1 Then
            Label27.ForeColor = .PointColor(somebar)
            Label27.Caption = Format(.XValues.Value(somebar) + 3, "0000") + "计算流量:" + Format(.YValues.Value(somebar), "0.0") + " m3/s"
        End If
    End With
    
    With TChart2.Series(2)
        somebar = .Clicked(X, Y)
        If somebar <> -1 Then
            Label27.ForeColor = .PointColor(somebar)
            Label27.Caption = Format(.XValues.Value(somebar) + 3, "0000") + "雨量:" + Format(.YValues.Value(somebar), "0.0") + " mm"
        End If
    End With
End Sub

[解决办法]
问下,这东东稳定吗?

用过一段,一直不太稳定,很容易就....

热点排行