Добавьте событийную процедуру для таймера:
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim StrTemp As String
StrTemp = Me.Text
StrTemp = Microsoft.VisualBasic.Right(StrTemp, Len(StrTemp) - 1) &
Microsoft.VisualBasic.Left(StrTemp, 1)
Me.Text = StrTemp
End Sub
Сохраните проект. Проверьте работу приложения.
II. Текстовые эффекты
Рекомендуемое время
60 Минут
Самый простой способ добиться некоторого эффекта при работе с текстом – это использование штриховых и градиентных кистей.
Проект 3. «Использование узорных и градиентных кистей»
Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – lr9_3.
Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Использование кистей для текстов:
Введите глобальные переменные:
Dim f As Font = New Font("Tahoma", 72)
Dim sBrick As String = "Кирпичики"
Dim sGradient As String = "Градиент"
Перед описанием класса Form1 добавьте строку, подключающую требуемую библиотеку:
Imports System.Drawing.Drawing2D
Public Class Form1
…..…………………..
End Class
Добавьте событийную процедуру Form1_Paint(…) – рисование формы. Для этого в поле Class Name в режиме редактирования кода программы установите (Form Events), в поле Method Name – Paint:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics
'Создаем кисть с узором кирпича
Dim hbr As New HatchBrush(HatchStyle.HorizontalBrick, _
Color.White, Color.Tomato)
' Выводим строку, закрашенную кирпичами
g.DrawString(sBrick, f, hbr, 0, 0)
Dim rect As New Rectangle(10, 50, _
ClientSize.Width, ClientSize.Height)
' Создаем градиентную кисть
Dim lgrb As New LinearGradientBrush(rect, _
Color.Violet, Color.SkyBlue, _
LinearGradientMode.BackwardDiagonal)
g.DrawString(sGradient, f, lgrb, 0, 100)
End Sub
Сохраните проект. Проверьте работу созданного приложения:
Измените тип и размер шрифта, а также цвет текста, например:
Проект 4. «Объемный текст»
Существует два эффекта объемности – выпуклый и вдавленный текст. Достигаются подобные эффекты простым смещением заданного текста с другим цветом, имитирующим тень.
Создайте новый проект. Для этого введите команду File-New Project... Выберите тип проекта - Windows Application (Windows-приложение). В окне Name задайте имя проекта – lr9_4.
Активизируйте форму Form1 щелчком мыши. В окне Properties (Свойства объекта) выберите свойство Text и присвойте ему значение Объемный текст:
Добавьте событийную процедуру Form1_Paint(…) – рисование формы, отображение выпуклого текста. Для этого в поле Class Name в режиме редактирования кода программы установите (Form Events), в поле Method Name – Paint:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim sb As New SolidBrush(Color.Gray)
Dim f As New Font("Tahoma", 24, FontStyle.Bold)
Dim g As Graphics = e.Graphics
g.DrawString("Программирование", f, sb, 10, 10)
sb.Color = Color.White
g.DrawString("Программирование", f, sb, 8, 8)
End Sub
Сохраните проект. Проверьте работу созданного приложения:
Разместите на форме кнопку Button1:
Дважды щелкните по кнопке Button1 и введите событийную процедуру (отображение вдавленного текста):
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sb As New SolidBrush(Color.Gray)
Dim f As New Font("Tahoma", 24, FontStyle.Bold)
Dim g As Graphics = CreateGraphics()
g.Clear(BackColor)
g.DrawString("Программирование", f, sb, 10, 10)
sb.Color = Color.White
g.DrawString("Программирование", f, sb, 12, 12)
g.Dispose()
End Sub
Сохраните проект. Проверьте работу созданного приложения:
