OnCursorChange

<< Clique para Mostrar o Sumário >>

 

OnCursorChange

OnCursorChange()

Ocorre quando o cursor do E3Chart muda de posição. Por exemplo, pode-se criar um script para este evento quando é necessário mostrar os valores de posição do cursor na Tela. O script a seguir contém um exemplo de uso deste evento.

Sub E3Chart1_OnCursorChange()
  Set Chart = Application.GetFrame("").Screen.Item("E3Chart1")
  Set Pena = Chart.Pens.Item(0)
  ' O objeto Text1 deve mostrar a posição atual do cursor
  Set Texto = Application.GetFrame("").Screen.Item("Text1")
  If Pena.GetCursorPos(aa, bb) Then
    Texto.Value = "Posição X = " & aa & "; Posição Y = " & bb
  End If
End Sub

Esta página foi útil?