AnnTextExpandTokens example for Visual Basic
Private Sub ExampleAnnTextExpandToken(hObject As Long)
Dim ObjectType As AnnObjectType
Dim bTextExpandToken As Boolean
RasterAnn.AnnGetType hObject
ObjectType = RasterAnn.AnnType
If ObjectType <> ANN_OBJECT_TEXT Then
MsgBox "This Object is not a Text Object"
End If
bTextExpandToken = RasterAnn.AnnTextExpandTokens(hObject)
bTextExpandToken = Not bTextExpandToken
RasterAnn.AnnTextExpandTokens(hObject) = bTextExpandToken
If bTextExpandToken = True Then
MsgBox "Text Expand Token"
Else
MsgBox "Text Not Expand Token"
End If
End Sub