Уроки по Visual Basic 6.0 – Конструкция IF-Then-ElseОбучающий материал

Проверка условий в Visual Basic осуществляется с помощью конструкции IF-Then-Else. Синтаксис конструкции имеет следующий вид:

IF условие Then - Команды, которые выполняются при истинном условии
Else - Команды, которые выполняются при ложном условии
End If

Рассмотрим работу конструкции на конкретном примере.

Создадим новый проект и добавим на форму три объекта: Label1, Text1 и Command1 (рисунок 1).

Уроки по Visual Basic 6.0 – Конструкция IF-Then-Else
Рисунок 1 – Вид формы после добавления нужных объектов
Читать дальше →

Уроки по Visual Basic 6.0 – Обработка щелчков мышиОбучающий материал

Обрабатывать щелчки мыши будем на примере простой программы. Создадим новый проект и добавим на форму объект Shape1. Изменим свойства Shape, FillStyle, FillColor и BorderColor.

Еще добавим объект Label1 и изменим свойства BackColor, Alignment, Font и Caption. В результате мы получим форму с объектами Shape1-Круг и Label1(рисунок 1).

Уроки по Visual Basic 6.0 – Обработка щелчков мыши
Рисунок 1 – Форма с добавленными объектами
Читать дальше →

Уроки по Visual Basic 6.0 – Программа для рисования мышьюОбучающий материал

Напишем программу, в которой можно рисовать на форме мышью. Для реализации поставленной задачи воспользуемся методом Line().

Текст программы рисования линии будем писать в процедуре Form_MouseMove() (рисунок 1). Так мы сможем узнать нажата левая кнопка мыши или нет.

Уроки по Visual Basic 6.0 – Программа для рисования мышью
Рисунок 1 – процедура Form_MouseMove()
Читать дальше →

Уроки по Visual Basic 6.0 - Метод Circle ()Обучающий материал

В этом уроке мы напишем программу, на форме которой будут появляться концентрические окружности (такие окружности лежат в одной плоскости и имеют общий центр).

За центр окружностей возьмем половины от ширины и высоты формы:

x=ScaleWidth/2
y=ScaleHeight/2

Чтобы нарисовать окружность, воспользуемся методом Circle(x,y), радиус, цвет. Так как нам нужно несколько таких окружностей, то воспользуемся циклом, в котором будем увеличивать радиус окружностей.

Так мы сможем избежать наложения окружностей друг на друга. Возьмем значение 100 твипов за начальный радиус, конечный радиус — 10000 твипов, шаг – 100 твипов.

Получим цикл:

For r = 100 To 10000 Step 100
Circle (x,y), r
Next r

Читать дальше →

Уроки по Visual Basic 6.0 - Метод Line()Обучающий материал

Сегодня мы рассмотрим метод Line() на примере программы, в которой при нажатии на форму рисуются горизонтальная и вертикальная штриховки.

Для начала создадим новый проект. Нажимаем «Файл», «Новый Проект» и выбираем «Стандартный EXE» (рисунок 1).

Уроки по Visual Basic 6.0 - Метод Line()
Рисунок 1 – Выбор проекта

Читать дальше →