-- 作者:蓝蚂蚁
-- 发布时间:2018/11/2 11:20:00
-- 如何设置图表上标题
下图:浏览时如何默认为横向显示。
此主题相关图片如下:image 1.jpg

下图:如何在图表中设置上标题(图中红色字体“手术室”,这个“手术室”来自【科室金额统计临时表排序】中的科室列,见最后图)
此主题相关图片如下:image 2.jpg

此主题相关图片如下:image 3.jpg

代码如下:
Result=MessageBox.Show("马上浏览图表吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then Dim Chart As New ChartBuilder Dim Series As WinForm.ChartSeries Chart.DataSource = "科室金额统计临时表排序" Chart.SeriesList.Clear() Chart.ChartType = ChartTypeEnum.Bar Series = Chart.SeriesList.Add() Series.X.DataField = "月份" Series.Y.DataField = "金额" \'Chart.Inverted = True Chart.PrintWidth =200 Chart.PrintHeight =200 Chart.BarClusterWidth = 80 Chart.AxisX.AnnoRotation = - 60 \' Chart.AxisY.Major = 400 \'主刻度间隔值为400 Series.DataLabelText = "{#YVAL}" Series.DataLabelBackColor = Color.Blue \'蓝底 Series.DataLabelForeColor = Color.White \'白字 \'打印图表 Dim doc As New PrintDoc Dim rm As New prt.RenderImage rm.Image = Chart.Image doc.Body.Children.Add(rm) Doc.Preview() End If
请问老师,代码该如何修改,谢谢!
|