Интегрированная среда разработки Microsoft Visual Basic 2005. Работа с текстами и строками. Текстовые эффекты.
Код: ПТ.40349
Продолжительность:
160 мин
Дисциплина:
Информационные технологии. Юнита № 3.
Предназначено:
Для студентов по направлению информатика и ВТ в соответствии с учебным планом.
Цель:
Изучение системы программирования Microsoft Visual Basic 2005.
Результаты обучения:
После успешного завершения занятия пользователь должен уметь:
создавать печатающие и бегущие строки;
программировать различные текстовые эффекты.
Используемые программы:
Microsoft Visual Basic 2005 Express Edition
Используемая папка:
РФ_ПТ40349
План занятия:
Эффекты со строками 60 минут
Текстовые эффекты 60 минут
Самостоятельная работа 40 минут
I. Эффекты со строками
Рекомендуемое время
60 Минут Проект 1. «Печатающая строка»
Запустите Microsoft Visual Basic 2005.
Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – LR9_1.
Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Печатающая строка.
Разместите на форме элемент управления Label1 и кнопку Button1. Свойству Text элемента управления Label1 присвойте значение Программирование, свойству Text элемента управления Button1 присвойте значение Старт:
Добавьте на форму элемент управления Timer1. Установите свойство Interval = 50:
Дважды щелкните по кнопке Button1 и введите событийную процедуру (включение-выключение таймера):
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Старт" Then
Timer1.Enabled = True
Button1.Text = "Стоп"
Else
Timer1.Enabled = False
Button1.Text = "Старт"
End If
End Sub
Добавьте событийную процедуру для таймера:
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
' Анимация слева направо
Dim title As String = "Программирование"
Static c As Integer = 0
Label1.Text = title.Substring(0, c)
c += 1
If c = title.Length() + 1 Then c = 0
End Sub
Сохраните проект. Проверьте работу приложения.
Измените проект так, чтобы строка печаталась справа налево.
Проект 2. «Бегущая строка»
Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – lr9_2.
Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Бегущая строка.
Добавьте на форму элемент управления Timer1. Для элемента управления Timer1 установите свойство Enabled=True (включение таймера):
Добавьте событийную процедуру Form1_Load(…). Для этого в поле Class Name в режиме редактирования кода программы установите (Form Events), в поле Method Name – Load, добавьте код событийной процедуры:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Необходимо добавить несколько пробелов,
'чтобы строки не слипались
Me.Text = "Бегущая строка "
End Sub