ник: akkorn
гхм... а что мешает вначале задать Картинка.Путь = Nothing а затем через on error resume next задать путь возможной картинки? Если есть- подгрузится. Нет- так нам и надо пустое поле.
Не?
При чем, как по мне, так я б вынес все это в отдельную процедуру, и вызывал б ее при необходимости смены картинки. А уж тело процедуры само буит обнулять и может задавать новую.. Что-то вроде этого:
Private Sub SetPict(Optional ByVal PathToPicture As String = "")
On Error Resume Next
Set Me.Picture1.Picture = Nothing
Set Me.Picture1.Picture = LoadPicture(PathToPicture)
End Sub
|