189 8069 5689
VB.net与VB不同。
创新互联公司是一家专注于成都做网站、网站设计与策划设计,红安网站建设哪家好?创新互联公司做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:红安等地区。红安做网站价格咨询:18982081108
VB.net已经有专门绘图的类。
可以定义笔刷然后用Drawing类中的方法绘制。
Private Sub DrawEllipse()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawEllipse(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
Private Sub DrawRectangle()
Dim myPen As New System.Drawing.Pen(System.Drawing.Color.Red)
Dim formGraphics as System.Drawing.Graphics
formGraphics = Me.CreateGraphics()
formGraphics.DrawRectangle(myPen, New Rectangle(0,0,200,300))
myPen.Dispose()
formGraphics.Dispose()
End Sub
引用microsoft chart control6.0(sp4)
添加mxchart空件
mxchart空件可以实现各种图形，什么饼，柱，三角，线，都可以。而且可以是立体的。
在 series 集合编辑器 里找到杂项 customproperties 里的 pointwidth 设置
Dim DtRRU As DataTable = New DataTable()
DtRRU.Columns.Add("Time_Int")
DtRRU.Columns.Add("Bins")
DtRRU.Rows(0)("Time_Int") = "0~6月"
DtRRU.Rows(1)("Time_Int") = "6~12月"
DtRRU.Rows(2)("Time_Int") = "1~2年"
DtRRU.Rows(3)("Time_Int") = "2~3年"
DtRRU.Rows(4)("Time_Int") = "3~4年"
DtRRU.Rows(5)("Time_Int") = "4~6年"
DtRRU.Rows(6)("Time_Int") = "6年以上"
用chart.DataSource绑定DataTable， DataTable自己添加响应的名称就可以了，省略了一切代码，如果不懂可以告诉我……………………
With (ChartENC.Series(0))
.YValueMembers = "Bins"
.XValueMember = "Time_Int"
.XValueType = DataVisualization.Charting.ChartValueType.DateTime
.ChartType = DataVisualization.Charting.SeriesChartType.Column
End With
______________________________________________________________________
可以生成图表，图表中的数据源用下面的代码在A7：G13位置sheet2的表A1：B5
在指定的位置图（子）
设置AB =范围（“A7： G13）'生成图表位置
设为BBB = ActiveSheet.ChartObjects.Add（0，0，0，0）
bbb.Chart.ChartType = xlColumnClustered的柱形图
bbb.Chart。数据源SetSourceData来源：=表（“Sheet2的”）范围（“A1：B5”）'
BBB
= ab.Top
左= ab.Left，
。的宽度= ab.Width
高度= ab.Height
尾与
尾子
用crystal报表，文件——新建文件——crystal报表，然后根据向导建立