Я пытаюсь использовать свойства Appearance и BorderStyle элемента управления изображением для предоставления не выбранного / выбранного индикатора.
После того, как изображение загружено и отображается в невыбранном состоянии, я могу изменить Appearance и BorderStyle на 1, и оно отображается правильно. Но последующие изменения этих свойств обратно к 0 не действуют .
Public Sub SelectPic(obj As Object, SelectIt As Boolean)
Dim Val As Integer
If SelectIt Then
Val = 1 'this works
Else
Val = 0 'this doesn't work
End If
obj.Appearance = Val
obj.BorderStyle = Val
obj.Refresh
End Sub
Если я загружаю файл .bmp в изображение с плоским видом и без рамки, изображение отображается в соответствии с информацией о размерах .bmp. Но если загрузить изображение с трехмерным изображением и одной границей, оно отобразится в соответствии с заданным размером изображения. Изменение свойств обратно на плоское и без границ не имеет никакого эффекта.