2. Программный код
Private Sub Dir1_Change()
File1.Pattern = Text1.Text
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Text2_Click()
Text2.Text = File1.Path & "\" & File1.FileName
End Sub
Private Sub Text3_Click()
Open Text2.Text For Input As #1
Text3.Text = Input(LOF(1), #1)
Close #1
End Sub
Вывод:
Приведенное Windows-приложение дает возможность пользователям ПК создавать свои приложения, решающие подобные задачи, например, следующая задача.
Задача №14
Создать приложение: «Средства выбора диска, каталога и файла»
Решение:
Рассмотрим пример вывода в графическое окно(image) файлов с расширением - *.bmp.
Эскиз экранной формы представлен на рис. 1.
Рис. 1
. 1. Расставим имена объектов на эскизе экранной формы
2. Программный код
Private Sub Command1_Click()
End
Beep
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
SelectedFile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(SelectedFile)
End Sub
3. Ответ
Задача №15
Создать приложение: «Использование функции mod, \ ,&»
Решение:
Рассмотрим пример использования функции mod, \ ,&
Эскиз экранной формы представлен на рис. 1.
Рис. 1.
. 1. Расставим имена объектов на эскизе экранной формы
Рис. 2.
2. Программный код
Private Sub Command1_Click()
Dim First, Second Объявление переменных
First = Text1.Text Присваиваем переменным значения из окон ввода
Second = Text2.Text
‘Если выбрана первая кнопка, вычисляем целое от деления
If Option1.Value = True Then
Label1.Caption = First \ Second
End If
'Если выбрана вторая кнопка вычисляем остаток от деления
If Option2.Value = True Then
Label1.Caption = First Mod Second
End If
'Если выбрана третья кнопка, возводим первую переменную в степень равную второй переменной.
If Option3.Value = True Then
Label1.Caption = First ^ Second
End If
'Если выбрана четвертая кнопка, производим конкатенацию (сцепление) переменных.
If Option4.Value = True Then
Label1.Caption = First & Second
End If
End Sub
Private Sub Command2_Click()
End
End Sub
3. Ответ
Вводим последовательно в текстовые окна две переменные и щелкаем мышью кнопку – переключатель с той операцией, которую вы выбрали далее щелкаем кнопку «Вычислить» (см. рис. 3, рис. 4, рис. 5, рис. 6).
Рис. 3. Рис. 4.
Рис. 5. Рис. 6.
Задача №16
Создать приложение: «Изменение масштаба (Font Size)»
Решение:
Рассмотрим пример многократного вывода слова «Линия» с изменением размера шрифта.
Эскиз экранной формы представлен на рис. 1.
Рис. 1.
. 1. Расставим имена объектов на эскизе экранной формы рис. 2.
Рис. 2.