vb6.0 Mschar 获取X轴（注脚）的值、改变图例位置（默认右边）

Question

本帖最后由 smithlzh 于 2011-09-21 13:22:34 编辑

Answer 1

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

Answer 2

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("日期")
   

Answer 3

  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