俺也就能做到这种效果了
For i = 1 To Date.DaysInMonth(ye,mo) '创建日历标签
Chart = e.Form.CreateControl("Chart" & i,ControlTypeEnum.Chart) ' 创建图表
Chart.Left = 23 + 80*((i-1+da.DayOfWeek) Mod 7)
Chart.Top = 40 + 80*((i-1+da.DayOfWeek)\7)
Chart.Width = 78 '留出80-78=2的间距,以产生表格线的效果
Chart.Height = 78
Chart.VisualEffect = True '加上这一行,图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie '饼形
Dim ctl As C1Chart.C1Chart = Chart.BaseControl
ctl.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None
ctl.ChartArea.Style.Border.BorderStyle = C1.Win.C1Chart.BorderStyleEnum.None
ctl.ChartArea.plotarea.sizedefault = new size(80,80)
ctl.ChartArea.Margins.Bottom = 0
ctl.ChartArea.Margins.Top = 0
ctl.ChartArea.Margins.left = 0
ctl.ChartArea.Margins.right = 0
加好友 
发短信
Post By：2020/4/10 17:04:00 [显示全部帖子]
