vb6.0 Mschar 获取X轴（注脚）的值、改变图例位置（默认右边）
本帖最后由 smithlzh 于 2011-09-21 13:22:34 编辑
SQL = " SELECT CONVERT (varchar(16), atime ,120) as 日期, float1, float2,, float3 FROM tab1 "

Set RS = Data_Module(SQL)

If Not (RS.BOF = True And RS.EOF = True) Then

RS.MoveFirst

End If


Set SChart1.DataSource = RS

请教： 鼠标点击 Mschar1 .Row 获取该点 日期 的值。

例如：

Private Sub SChart_fire_c1_PointActivated(Series As _
Integer, DataPoint As Integer, MouseFlags As _
Integer, Cancel As Integer)



If Series = 1 Then
Text1.Text = ""
With SChart1
.Column = Series
.Row = DataPoint
.data = InputBox("Change the data point:", , .data)




Text1.Text = "实测：" & .data

Text1.Visible = True

End With



With SChart1

.Column = 2
.Row = DataPoint




Text1.Text = Text1.Text & " Hi:" & .data

Text1.Visible = True

End With

With SChart1
.Column = 3
.Row = DataPoint




Text1.Text = Text1.Text & " Lo:" & .data

Text1.Visible = True

End With

Else
Text1.Text = ""
Text1.Visible = False



End If



End Sub

***********

请教：改变 SChart1 图例显示位置（默认右边）； SChart1 的图例在底部（顶部）显示？

[解决办法]

补充说明： SChart1 绑定数据后， SChart1 X轴（注脚）的值能显示出来。但是数据多时， 就看不清楚啦。
[解决办法]

dim dot_id as Integer 'rs 的指针

Private Sub SChart_fire_c1_PointActivated(Series As _
Integer, DataPoint As Integer, MouseFlags As _
Integer, Cancel As Integer)



If Series = 1 Then


dot_id = DataPoint
...
...


End If



End Sub

'调用 rs 指针
rs.movefirst
rs.move dot_id-1
'获取到 日期
rs("日期")

[解决办法]
VB6.0 打印多个SChart方法；同一张纸（例如：A4）

SChart_1.EditCopy

Printer.PaintPicture Clipboard.GetData(), -300, 0

'Printer.EndDoc



SChart_2.EditCopy

Printer.PaintPicture Clipboard.GetData(), -300, 11520 / 2

' Printer.EndDoc


SChart_3.EditCopy


Printer.PaintPicture Clipboard.GetData(), -300, 11520

Printer.EndDoc