Примеры классов : Класс Документ СвойстваМетодыСобытия ИмяКопировать документ Document_New() Создание документа Полное имяНапечататьDocument_Open(…) Открытие.

Презентация:



Advertisements
Похожие презентации
Экземпляр класса 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,
Advertisements

Проект «Управление без обратной связи» на языке Visual Basic.
Проект Три шара Постановка задачи : Дано число N – количество вызовов функции, которая возвращает шар одного из трех цветов : красный, синий или желтый.
В проекте рассмотрены функции даты и времени: текущие дата и время, день недели, день месяца, день года, проверка на високосный год, максимальное и минимальное.
На смену объектам в Visual Basic 6 пришли классы Visual Basic Аналогично событиям объекта рассматриваются события класса, причем в некоторых случаях.
Проект Коды символов Проект Перевод чисел Проект Калькулятор.
Создать форм 2 для GAME OVER Создать форм 3 для поздравления победителя.
Графика в VISUAL BASIC 10 класс УМК Угринович Н.Д. учитель Болтенкова В.М.
Программирование в среде Visual Basic: обработка событий Яковлева Татьяна Геннадьевна МАОУ гимназия 23 г. Челябинска.
Учитель информатики и ИКТ Кузнецова Aлёна Анатольевна МБОУ СОШ 121 г.Екатеринбург.
Что необходимо сделать, прежде чем использовать переменную в коде? Если необходимо 2 переменные целого типа? 10? Как же поступить, если необходимо использовать.
1 using System; using System.Drawing; using System.Collections; using System.ComponentModel; using System.Windows.Forms; using System.Data; 2 namespace.
Dim graph1 As Graphics (устанавливает ИМЯ объекта области рисования) Dim pen1 As New Pen(Color.Red, 1) (устанавливает ЦВЕТ и ТОЛЩИНУ пера) Dim brush1 As.
Что такое «одномерный массив»? Для чего нужны при работе с массивом операторы цикла? Как обозначается элемент массива? Как описывается массив?
Проект «Решение квадратного урвнения» Visual Basic.
Графические возможности языка Visual Basic Автор: Неваленова Н.Г.
Программирование на языке высокого уровня Лекция 7. Методы класса как подпрограммы. Решение нелинейных уравнений Кафедра АСОИУ ОмГТУ, 2012 Богатов Р.Н.
ВыполнитьEXIT PUBLIC SUB Button1_Click() DIM A AS Integer DIM B AS Integer A = InputBox("Введите целое первое число А", "Наибольшее из двух чисел") B.
Определение максимального и минимального значений переменных. Задание 1. Даны две переменные А и В, значения которых вводятся командой Input. Определить.
Программирование в среде Visual Basic: переменные Яковлева Татьяна Геннадьевна МАОУ гимназия 23 г. Челябинска.
Транксрипт:

Примеры классов : Класс Документ СвойстваМетодыСобытия ИмяКопировать документ Document_New() Создание документа Полное имяНапечататьDocument_Open(…) Открытие документа Цвет фонаСохранитьDocument_Close() Закрытие документа

Примеры классов : Класс Диаграмма СвойстваМетодыСобытия НазваниеИзменить тип диаграммы Diagram_New() Создание диаграммы Тип диаграммы Изменить стиль диаграммы Diagram_Print(…) Вывод диаграммы на печать Размер диаграммы Изменить макет диаграммы Diagram_Delete() Удаление диаграммы

Пример экземпляр класса 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