Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.93
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.93 Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

Коды для пункта меню Файл

обратитесь к окну Class Name и выделите в нем строку Print-Documentl, а затем в окне MethodName - строку PrintPage. В результате будет создана процедура обработки события PrintDocument 1_ PrintPage. Код для вывода текста на печать получится примерно таким:

Private Sub PrintDocumentl_PrintPage(ByVal sender As _ Object, ByVal e As System.Drawing.Printing.PrintPage_ EventArgs) Handles PrintDocumentl.PrintPage

e.Graphics.DrawString(RichTextBoxl.Text,_ RichTextBoxl.Font, Brushes.Black, 50, 50) End Sub

Этот код использует параметр е, который в данном случае является экземпляром класса PrintPageEventArgs. Этот параметр дает возможность использовать объект Graphics, с помощью которого и производится печать, то есть данная операция похожа на процесс рисования. Для вывода на печать рисунка следует использовать элемент управления PictureBox. Код будет выглядеть следующим образом:

Private Sub PrintDocumentl_PrintPage(ByVal sender As _ Object, ByVal e As System.Drawing.Printing.PrintPage_ EventArgs) Handles PrintDocumentl.PrintPage

e.Graphics.Drawlmage(PictureBoxl.Image, 0, 0) End Sub

Предварительный просмотр

Ниже приведен код, показывающий окно предварительного просмотра документа (окно PrintPreview).

Private Sub MenuIteml9_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles Menulteml9.Click

PrintPreviewDialogl.Document = PrintDocumentl

PrintPreviewDialogl.ShowDialog() End Sub

Закрыть

Private Sub MenuItem5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Menultem5.Click

Me.CloseO End Sub

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 18 ▼ Текстовый редактор

Коды для пункта меню Правка

Данный код удаляет из текстового поля выделенный фрагмент текста в буфер обмена.

Private Sub MenuItem7_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Menultem7.Click

RichTextBoxl.Cut() End Sub

Подпункт Копировать

Этот код копирует выделенный фрагмент текста в буфер обмена.

Private Sub MenuItem8_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles Menultem8.Click


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta