Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 12 лет назад пользователемfamsl.ru
1 Примеры классов : Класс Документ СвойстваМетодыСобытия ИмяКопировать документ Document_New() Создание документа Полное имяНапечататьDocument_Open(…) Открытие документа Цвет фонаСохранитьDocument_Close() Закрытие документа
2 Примеры классов : Класс Диаграмма СвойстваМетодыСобытия НазваниеИзменить тип диаграммы Diagram_New() Создание диаграммы Тип диаграммы Изменить стиль диаграммы Diagram_Print(…) Вывод диаграммы на печать Размер диаграммы Изменить макет диаграммы Diagram_Delete() Удаление диаграммы
3 Пример экземпляр класса Form Пример экземпляр класса Form Public Class Form1 Dim pen1 As New Pen(Color.Purple, 8) Dim pen2 As New Pen(Color.White, 8) Dim i, rad, x1, y1 As Integer Dim x, y As Single Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PictureBox1.CreateGraphics.Clear(Color.White) PictureBox1.CreateGraphics.FillEllipse(Brushes.Aquamarine, 100, 100, 100, 100) …. End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim pen As New Pen(Color.FromArgb(255, 0, 0, 255), 8) PictureBox1.CreateGraphics.Clear(Color.White) pen.StartCap = System.Drawing.Drawing2D.LineCap.RoundAnchor pen.EndCap = System.Drawing.Drawing2D.LineCap.ArrowAnchor PictureBox1.CreateGraphics.DrawLine(pen, 20, 175, 300, 175) End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Dim a As Integer a = TextBox1.Text If a = 1 Then PictureBox1.CreateGraphics.FillRectangle(Brushes.Red, 200, 200, 100, 100) If a = 2 Then PictureBox1.CreateGraphics.FillEllipse(Brushes.Blue, 200, 200, 50, 100) …. End Sub End Class
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.