Чтение, создание, запись и печать текстовых файлов
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: контрольная работа 3, защита реферата
| Добавил(а) на сайт: Dementij.
Предыдущая страница реферата | 1 2
Form1.Text1.Text = Input$(LOF(1), 1) ‘ чтение файла в текстовое поле
Close #1 ‘ закрытие файла
В четвертой строке происходит открытие выбранного файла для чтения под номером «Первый». Пятая строка считывает содержимое открытого файла в текстовое поле объекта Text1. Здесь инструкция LOF определяет длину файла, открытого под номером «Первый». Шестая строка необходима для закрытия файла под номером «Первый».
В процедуру прерывания Save_Click впишите строки:
CMDialog1.Action = 2 ‘ активизация окна СОХРАНЕНИЕ ФАЙЛА
' если имя файла не указано, то выход из процедуры
If CMDialog1.Filename = "" Then Exit Sub
Form1.Caption = CMDialog1.Filename & ".txt" ' показ пути и имени файла
‘ открытие файла для записи
Open CMDialog1.Filename & ".txt" For Output As #1
Print #1, Form1.Text1.Text ‘ запись текста в файл
Close #1 ‘ закрытие файла
Во второй строке программа защищена от возможной ошибки в четвертой строке. Такая ошибка может возникнуть в том случае, если пользователь не указал имя сохраняемого файла. Вторая строка осуществляет выход из процедуры Save_Click, если именем файла является пустое множество. Третья строка помещает информацию о пути и имени сохраняемого файла в строку заголовка окна формы Form1. В четвертой строке открывается файл для записи под номером «Первый». Пятая строка записывает в открытый файл содержимое текстового поля. Последняя строка закрывает файл под номером «Первый».
В процедуру прерывания Print_Click впишите программный код:
Printer.FontName = "Arial Cyr" ‘ выбор вида шрифта для печати
Printer.FontSize = 12 ‘ установка размера шрифта для печати
Printer.Print "" ‘ инициализация объекта принтер
Printer.Print Form1.Text1.Text ‘ вывод текста на бумагу
Printer.EndDoc ‘ остановка печати документа
Самостоятельно завершите обработку выборов меню для знакомой Вам команды «Выход». Сохраните проект приложения. Создайте исполняемый EXEфайл.
При желании в меню добавьте команды, позволяющие пользователю менять размер шрифта как для набора текста, так и для печати.
Скачали данный реферат: Язев, Яхимович, Огородов, Samsonov, Чернявский, Ясногородский, Makar.
Последние просмотренные рефераты на тему: оружие реферат, реферат по экологии, компьютер реферат, сочинение евгений онегин.
Категории:
Предыдущая страница реферата | 1 2
Главная