Hi, everybody.
I,m working with Image Annotation control linked to an Image Edit control that displays an image.
I select an item from an image combo (below) that asigns a color to a long variable named "lcolor",
I want to change the color of an annotation palette control, to allow end user make annotations
on the image with the color selected. I don´t need to use the Draw method. End user will draw.
Why the annotation line color doesn´t change?. What´s wrong?
Thanks in advance.
Private Sub ImageCombo1_Click()
Select Case ImageCombo1.SelectedItem.Index
Case 1 '
lColor = vbRed
Case 2 '
lColor = vbBlack
Case 3 '
lColor = &H808080
Case 4 '
lColor = vbYellow
Case 5 '
lColor = &H8080&
Case 6 '
lColor = &H80FFFF
Case 7 '
lColor = vbGreen
Case 8 '
lColor = &HFF00FF
Case 9 '
lColor = &H80FF&
Case 10 '
lColor = vbBlue
End Select
ImgEdit1.AnnotationLineColor = lColor
ImgEdit1.ShowAnnotationToolPalette
End Sub
xabalb@cantv.net
I,m working with Image Annotation control linked to an Image Edit control that displays an image.
I select an item from an image combo (below) that asigns a color to a long variable named "lcolor",
I want to change the color of an annotation palette control, to allow end user make annotations
on the image with the color selected. I don´t need to use the Draw method. End user will draw.
Why the annotation line color doesn´t change?. What´s wrong?
Thanks in advance.
Private Sub ImageCombo1_Click()
Select Case ImageCombo1.SelectedItem.Index
Case 1 '
lColor = vbRed
Case 2 '
lColor = vbBlack
Case 3 '
lColor = &H808080
Case 4 '
lColor = vbYellow
Case 5 '
lColor = &H8080&
Case 6 '
lColor = &H80FFFF
Case 7 '
lColor = vbGreen
Case 8 '
lColor = &HFF00FF
Case 9 '
lColor = &H80FF&
Case 10 '
lColor = vbBlue
End Select
ImgEdit1.AnnotationLineColor = lColor
ImgEdit1.ShowAnnotationToolPalette
End Sub
xabalb@cantv.net