ArcGIS Engine Developer Guide

BUILDING APPLICATIONS WITH ACTIVEX
' Set the symbol properties.
pTextSymbol.Font = pFont
' Set the text element properties.
pTextElement.Symbol = pTextSymbol
pTextElement.Text = Date
' QI for IElement
Dim pElement As IElement
Set pElement = pTextElement
' Create a page point.
Dim pPoint As IPoint
Set pPoint = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)
' Set the elements geometry.
pElement.Geometry = pPoint
' Add the element to the graphics container.
pActiveView.GraphicsContainer.AddElement pTextElement, 0
' Refresh the graphics.
pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing
End Sub
Private Sub ITool_OnMouseMove(ByVal button As Long, ByVal shift As Long,
ByVal x As Long, ByVal y As Long)
' Not implemented
End Sub
Private Sub ITool_OnMouseUp(ByVal button As Long, ByVal shift As Long,
ByVal x As Long, ByVal y As Long)
' Not implemented
End Sub
Private Sub ITool_Refresh(ByVal hdc As esriSystem.OLE_HANDLE)
' Not implemented
End Sub
11. You now need to compile your project into an ActiveX DLL. Give it the
name ControlCommands.dll.
12. Register the ControlCommands.dll.
13. In the Visual Basic Standard executable project that you created at the beginning
of this scenario, select the Form_Load event and add the following code
after the code to add the map navigation commands.
Private Sub Form_Load()
' Add Map navigation commands…
' Add custom date tool.
sProgID = "EngineScenarioCommands.AddDateTool"
ToolbarControl1.AddItem sProgID, , , True, , esriCommandStyleIconAndText
298 • ArcGIS Engine Developer Guide