chartevents.vb

来自「使用Access数据库演示的任务分配管理程序 一个使用ADO.NET基于」· VB 代码 · 共 28 行

' Event argument that is passed to the container. Event is 
' sent when the chart is clicked and the argument contains 
' the index of the chart item that was clicked.

Public Delegate Sub ClickItemEventHandler(ByVal sender As Object, ByVal e As ClickItemEventArgs)

Public Class ClickItemEventArgs
    Inherits EventArgs

    ' Internal fields. Chart item that was clicked.
    Private m_SelItem As Integer

    ' Constructor.		
    Public Sub New(ByVal item As Integer)
        SelectedItem = item
    End Sub

    ' Properties.
    Public Property SelectedItem() As Integer
        Get
            Return m_SelItem
        End Get
        Set(ByVal Value As Integer)
            m_SelItem = Value
        End Set
    End Property
End Class