Bar click event
Posted: Mon Jan 17, 2005 10:32 pm
Hi all,
Does anybody know how to implement Bar Click Event? I found the point click event on the help file. However, it doesn't work for me when I tried to use it.
Here is my code for clicking event.
Private Sub WebChart1_ClickSeries(ByVal sender As System.Object, ByVal s As Steema.TeeChart.Styles.Series, ByVal valueIndex As Integer, ByVal e As System.EventArgs)
'
Dim tChart As Steema.TeeChart.Chart
tChart = CType(sender, Steema.TeeChart.Web.WebChart).Chart
ClickedX = s.CalcXPos(valueIndex)
ClickedY = s.CalcYPos(valueIndex)
MsgText = "Series: " _
& tChart.Series.IndexOf(s).ToString() _
& (Chr(13) + Chr(10)) & "Value: " _
& (s.YValues.Item(valueIndex).ToString("#0.00"))
End Sub
Thanks,
Amy
Does anybody know how to implement Bar Click Event? I found the point click event on the help file. However, it doesn't work for me when I tried to use it.
Here is my code for clicking event.
Private Sub WebChart1_ClickSeries(ByVal sender As System.Object, ByVal s As Steema.TeeChart.Styles.Series, ByVal valueIndex As Integer, ByVal e As System.EventArgs)
'
Dim tChart As Steema.TeeChart.Chart
tChart = CType(sender, Steema.TeeChart.Web.WebChart).Chart
ClickedX = s.CalcXPos(valueIndex)
ClickedY = s.CalcYPos(valueIndex)
MsgText = "Series: " _
& tChart.Series.IndexOf(s).ToString() _
& (Chr(13) + Chr(10)) & "Value: " _
& (s.YValues.Item(valueIndex).ToString("#0.00"))
End Sub
Thanks,
Amy