Проект 7. «Тексты с поворотами»
Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – lr9_7.
Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Повороты текста.
Разместите на форме три кнопки Button1, Button2, Button3. Измените свойство Text в соответствии с рисунком:
Перед описанием класса Form1 добавьте строку, подключающую требуемую библиотеку:
Imports System.Drawing.Drawing2D
Public Class Form1
…..…………………..
End Class
Введите глобальные переменные:
Dim f As New Font("Tahoma", 20, FontStyle.Italic)
Dim g As Graphics = CreateGraphics()
Дважды щелкните по кнопке Button1 (Зеркальный поворот) и введите событийную процедуру:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
g = CreateGraphics()
'Разворачиваем текст на 180 градусов
g.RotateTransform(180)
g.DrawString("Программирование", _
f, Brushes.Green, _
-Width / 1 + 10, -Height / 2)
g.Dispose()
End Sub
Сохраните проект. Проверьте работу созданного приложения:
Дважды щелкните по кнопке Button2 (Поворот на 30 градусов) и введите событийную процедуру:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
g = CreateGraphics()
' Перемещаемся в заданную точку отсчета
g.TranslateTransform(30, 30)
'Поворачиваем на 30 градусов
g.RotateTransform(30)
' И выводим текст под заданным углом
g.DrawString("Текст под углом", f, Brushes.Red, 0, 0)
'Восстанавливаем преобразование
g.ResetTransform()
g.Dispose()
End Sub
Сохраните проект. Проверьте работу созданного приложения:
Дважды щелкните по кнопке Button3 (Солнышко) и введите событийную процедуру:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
g = CreateGraphics()
' Очистим форму
g.Clear(BackColor)
'Находим центр формы
Dim cx As Integer = ClientSize.Width \ 2
Dim cy As Integer = ClientSize.Height \ 2
' Перемещаемся в заданную точку отсчета
g.TranslateTransform(cx, cy)
g.FillEllipse(Brushes.Yellow, -45, -45, 90, 90)
Dim i As Integer
For i = 0 To 359 Step 15
g.DrawString("Солнышко", f, Brushes.Yellow, 50, 0)
'Поворачиваем на 30 градусов
g.RotateTransform(20)
Next
'Восстанавливаем преобразование
g.ResetTransform()
g.Dispose()
End Sub
Сохраните проект. Проверьте работу созданного приложения:
III. Самостоятельная работа
Рекомендуемое время
40 Минут
Выполните задание в соответствии с вариантом и оформите отчет.
Варианты |
Задание |
1 |
Создать проект, в котором текст в заголовке формы печатается слева направо. |
2 |
Создать проект, в котором текст на кнопке печатается справа налево. |
3 |
Создать проект, главная форма которого выглядит следующим образом:
|
4 |
Создать проект, главная форма которого выглядит следующим образом:
|
5 |
Создать проект, главная форма которого выглядит следующим образом:
|
