The snippet of code is as follows:
Code:
Code: Select all
If CType(Panel2.Controls.Item(i), Steema.TeeChart.TChart).IsAccessible Then
CType(DestChart.Tools.Item(0), Steema.TeeChart.Tools.CursorTool).XValue = myXValue
End If
Code: Select all
If CType(Panel2.Controls.Item(i), Steema.TeeChart.TChart).IsAccessible Then
CType(DestChart.Tools.Item(0), Steema.TeeChart.Tools.CursorTool).XValue = myXValue
End If
Code: Select all
Dim rect As New Rectangle(TChart1.Left, TChart1.Top, TChart1.Width, TChart1.Height)
rect.IntersectsWith(ScreenRect)
Narcís Calvet / Development & Support Steema Software Avinguda Montilivi 33, 17003 Girona, Catalonia Tel: 34 972 218 797 http://www.steema.com |
Instructions - How to post in this forum |