Dim sfile 'Променлива за пътя на избрания файл

 

Private Sub Form_Load()

Form1.Picture = LoadPicture(App.Path & "/kosmos.jpg") ' Въвеждаме картина на формата

Image1.Picture = LoadPicture(App.Path & "/sun.gif") ' Въвеждаме в Image1

Image2.Picture = LoadPicture(App.Path & "/planeta.gif") ' Въвеждаме в Image

End Sub

 

Private Sub Menu1_Click()

IzborNaKartina ' Задействаме процедурата за избор на картинка

Image1.Picture = LoadPicture(sfile) ' Въвеждаме избраната картинка в Image1

End Sub

 

'Процедура за избор, чрез CommonDialog контрола

Private Sub IzborNaKartina()

With CommonDialog1

        .DialogTitle = "Open"

        .CancelError = False

        .Filter = "All Files (*.gif)|*.gif|All Files (*.bmp)|*.bmp|All Files (*.jpg)|*.jpg"

        .ShowOpen

        If Len(.FileName) = 0 Then

            Exit Sub

        End If

        sfile = .FileName ' Тук въвеждаме избраното в променливата, която ползваме

End With

 

End Sub

 

Private Sub Menu2_Click()

IzborNaKartina ' Задействаме процедурата за избор на картинка

Image2.Picture = LoadPicture(sfile) ' Въвеждаме избраната картинка в Image2

End Sub