Visual Basic. Практика. Ищенко В.А - 14 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

14
5. Форме и объектам, расположенным на ней, задать дополнительные
свойства (аналогично табл .2).
6. Создать в процедуре события Drive1_Change программный код для
объекта “Список драйверов”:
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
7. Аналогично добавить программный код к процедурам события:
• Dir1_Change:
Private Sub Dir1_Change()
File1.Path = Dir1.Path ‘Связывает список файлов со спи -
ском директорий
End Sub
• File1_Click:
Private Sub File1_Click()
SelectedFile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture (SelectedFile)
End Sub
8. Просмотреть результат выполнения программы. При обнаружении
ошибок – исправить их.
9. В своей папке сохранить форму под именем Просмотр карти -
нок.frm и проект под именем Просмотр картинок.vbp.
10. Результатом работы приложения является форма, приведенная ни-
же.
11. Самостоятельно изменить разработанную форму, добавив в нее но-
вый объект управления кнопкаКонец , и записать для нее про -
граммный код . 
                                        14
5. Ф орм е и объект а м , ра спол ож ен н ым н а н ей, за д а т ь д опол н ит ел ь н ые
   свойст ва (а н а л огичн о т а бл .2).
6. С озд а т ь в процед у ре событ ия Drive1_Change програ м м н ый код д л я
   объект а “С писок д ра йверов”:

            Private Sub Drive1_Change()
            Dir1.Path = Drive1.Drive
            End Sub
7. А н а л огичн о д оба вит ь програ м м н ый код к процед у ра м событ ия:
   • Dir1_Change:

        Private Sub Dir1_Change()
        File1.Path = Dir1.Path ‘С вязы вает с пис ок ф ай лов с о с пи-
        с ком директорий
        End Sub
   • File1_Click:

            Private Sub File1_Click()
            SelectedFile = File1.Path & "\" & File1.FileName
            Image1.Picture = LoadPicture (SelectedFile)
            End Sub
8. П росм отрет ь резу л ь т а т выпол н ен ия програ м м ы. П ри обн а ру ж ен ии
   ошибок – испра вить их.
9. В своей па пке сохра н ит ь ф орм у под им ен ем П рос м отр карти-
   нок.frm и проект под им ен ем П рос м отр картинок.vbp.
10.Р езу л ь т а т ом ра боты прил ож ен ия явл яется ф орм а , привед ен н а я н и-
   ж е.




11. С а м остоятел ь н о изм ен ит ь ра зра бота н н у ю ф орм у , д оба вив в н ее н о-
    вый объект у пра вл ен ия кнопкаК онец, и за писа т ь д л я н ее про-
    гра м м н ый код .

Страницы