AnnToolChecked Example for Visual Basic

Note: This topic is for Document/Medical only.

'Please note the following:
'LEADRasterView1 refers to a LEADRasterView control
'Global declarations
Private WithEvents RasterAnn As LEADRasterAnnotation
Private RasterAnnToolbar As LEADRasterAnnToolBar

'In the Form_Load method:
Set RasterAnn = New LEADRasterAnnotation
Set RasterAnnToolbar = New LEADRasterAnnToolBar
RasterAnn.AnnParentRasterView = LEADRasterView1

Private Sub RasterAnn_OnAnnToolChecked(ByVal iTool As Integer)
Dim TestString As String

Select Case iTool
Case ANN_TOOL_SELECT
  TestString = "Selection pointer tool"
Case ANN_TOOL_LINE
  TestString = "Line tool"
Case ANN_TOOL_RECT
  TestString = "Rectangle tool"
Case ANN_TOOL_ELLIPSE
  TestString = "Ellipse tool"
'...
'...
'...
Case Else
  TestString = "User defined tool"
End Select
MsgBox TestString, 0, "Notice"


End Sub