GetSelectedAnnotationFontColor Example VB

This example uses the GetSelectedAnnotationFontColor method to determine the font color of a selected annotation.  It then updates the Microsoft common dialog box to indicate the color obtained.

This example also uses the Microsoft common dialog box and the SetSelectedAnnotationFontColor method to change the font color of a selected annotation.

Private Sub cmdFontColor_Click()
    'This example uses the Microsoft color dialog box to
    'change a selected annotation mark's font color.
    Dim FontColor As OLE_COLOR
    
    'Determine the current color of the selected annotation
    'mark and init the dialog box color property to that color.
    FontColor = ImgEdit1.GetSelectedAnnotationFontColor
    CommonDialog1.Color = FontColor
    CommonDialog1.Flags = cdlCCRGBInit
    CommonDialog1.ShowColor
    ImgEdit1.SetSelectedAnnotationFontColor CommonDialog1.Color
End Sub