在仪表控件里添加图表控件

本帮助的内容需要更新Foxtable到最新版。

仪表控件其实是一个容器，可以把任意其它控件拖入里面，结合窗口新增加的自动布局属性，就可以让其它控件像仪表一样进行按比例缩放。

步骤一、打开窗口设计，把窗口属性：杂项-》自动调整布局 设置为true

步骤二、添加一个图表控件，拖入仪表控件中，图表控件的大小和位置拖动调整为合适的值

步骤三、到窗口afterload事件设置一下代码，把图表控件设置为透明无边框模式：

  1. Dim Chart As WinForm.Chart '定义一个图表变量  
  2. Chart = e.Form.Controls("Chart1")   
  3. Chart.Transparent = True '设置为透明模式 

最后根据需要设置图标内容即可。

注意，图表的透明设置是针对父控件的，所以必须把图表拖放入仪表控件里，透明设置才起作用。

下面是一个图表的设置代码：

  1. '''设置图表  
  2. Dim t As Table = Tables("网站访问量")  
  3. Dim Chart As WinForm.Chart '定义一个图表变量  
  4. Dim Series As WinForm.ChartSeries '定义一个图系变量  
  5. Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表  
  6. Chart.Transparent = True '边框和背景透明  
  7. Chart.VisualEffect = True '  
  8. 'Chart.ColorGeneration = C1Chart.ColorGeneration.Standard '设置色系  
  9. Chart.DataSource = "网站访问量" '绑定表格  
  10.   
  11. Chart.AxisX.DateType = True 'X轴是日期型  
  12. Chart.AxisX.AnnoFormatString = "M月d日" '格式化日期  
  13. Chart.AxisX.MajorTick = False '不显示X轴主刻度  
  14. Chart.AxisX.MinorTick = False '不显示X轴副刻度  
  15. Chart.AxisX.ForeColor = Color.White  
  16. Chart.AxisY.ForeColor = Color.White  
  17. Chart.AxisY2.ForeColor = Color.Transparent '不显示副坐标Y轴  
  18. Chart.AxisY.GridMinorVisible = False '隐藏Y轴副坐标线  
  19. Chart.AxisY.MinorTick = False  
  20. '图一显示曲线点  
  21. Chart.SeriesList.Clear() '清除图表原来的图系  
  22. Chart.ChartType = ChartTypeEnum.XYPlot '图表类型改为Area  
  23. Series = Chart.SeriesList.Add() '增加一个图系  
  24. Series.FitType = FitTypeEnum.Spline  
  25. Series.MarkShape = MarkShapeEnum.Circle  
  26. Series.MarkColor = Color.White  
  27. Series.X.DataField = "日期" 'X轴绑定到日期列  
  28. Series.Y.DataField = "数量" 'Y轴绑定到数量列  
  29. Series.DataLabelText = "{#YVAL}"  
  30. Series.DataLabelForeColor = Color.FromArgb(57, 222, 222)  
  31. Series.DataLabelCompass =LabelCompassEnum.North  
  32. '图二显示区域  
  33. Chart.ChartType2 = ChartTypeEnum.Area '图表类型改为Area  
  34. Chart.SeriesList2.Clear() '清除图表原来的图系  
  35. Series = Chart.SeriesList2.Add() '增加一个图系  
  36. Series.FitType = FitTypeEnum.Spline  
  37. Series.X.DataField = "日期" 'X轴绑定到日期列  
  38. Series.Y.DataField = "数量" 'Y轴绑定到数量列  
  39. Series.LineColor = Color.FromArgb(16, 148, 173)  

效果：