ZedGraph控件生成饼图、拆线图与柱状图例程.docVIP

这几天做了个自己觉得还蛮NB的功能，在GRID中选中一块数据，然后右键菜单即可生成三种图形，还可以互相切换，对了，饼图还添加了鼠标点击分离的处理，大致如图： 用的控件就是ZedGraph，我把它继承封装了一下，方便调用： 1 Imports ZedGraph 2 3 Public Class FinexGraph 4 用于切换图型的 5 Private dtSource As DataTable 6 HYPERLINK 7 Private Function FinexGraph_MouseDownEvent(ByVal sender As ZedGraph.ZedGraphControl, ByVal e As System.Windows.Forms.MouseEventArgs) As System.Boolean Handles MyBase.MouseDownEvent 8 9 If e.Button = Windows.Forms.MouseButtons.Left Then 10 Dim pane As GraphPane = sender.GraphPane 11 Dim pt As New PointF(e.X, e.Y) 12 Dim curve As CurveItem = Nothing 13 Dim i% 14 If pane.FindNearestPoint(pt, curve, i) Then 15 If curve.IsPie Then 16 Dim pi As PieItem = CType(curve, PieItem) 17 If pi.Displacement 0 Then 18 pi.Displacement = 0 19 Else 20 pi.Displacement = 0.3 21 End If 22 sender.Refresh() 23 End If 24 End If 25 End If 26 Return True 27 28 End Function 29 30 Public Sub SetTitle(ByVal title As String) 31 Set the pane title 32 GraphPane.Title.Text = title 33 End Sub 34 HYPERLINK 35 Public Sub SetPieDataB(ByVal dt As DataTable, ByVal title As String) 36 37 为多列一行的数据，按列分块，不支持切换，不推荐使用 38 39 Dim ds As New DataSet 40 Dim i, j As Integer 41 Dim cc, rc As Integer 42 43 rc = dt.Rows.Count 44 cc = dt.Columns.Count 45 If rc = 0 Or cc = 0 Then Return 46 47 GraphPane.CurveList.Clear() 48 GraphPane.GraphObjList.Clear() 49 GraphPane.Legend.IsVisible = True 50 GraphPane.Legend.Position = LegendPos.Right 51 GraphPane.Legend.FontSpec.Size = 7 52 If String.IsNullOrEmpty(title) = Fa