Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 11 лет назад пользователемЗахар Шувалов
1 Экземпляр класса 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
2 Пример : Класс объектов - документ СвойстваМетодыСобытия ИмяОткрытьDocument_New() Создание документа Полное имяНапечататьDocument_Open(…) Открытие документа Цвет фонаСохранитьDocument_Close() Закрытие документа
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.