Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.79
Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования стр.79

Dim s As String

s = «text,text,text»

Параметр brush типа Brush задает цвет шрифта: Dim brush As Brush brush - Brushes.Black

Параметр font типа Font определяет шрифт, то есть его наименование, размер и начертание (курсив, зачеркнутый, подчеркнутый и т.д.):

Dim fnt As Font

fnt = New Font(«arial»/ 16, FontStyle.Italic)

Параметр format типа StringFormat задает некоторые особые способы отображения текста - горизонтальное, вертикальное, в одну строку, в несколько строк.

Параметр Direct ionVertical располагает буквы текста горизонтально.

Параметр NoClip задает горизонтальное расположение текста, ограниченное размерами прямоугольника. Часть текста, выходящая за пределы прямоугольника, переносится на другую строку. Таким образом, сделав прямоугольник шириной, не превышающей ширины одной буквы, можно расположить текст вертикально.

Параметр NoWrap выводит одну строку текста, расположенную горизонтально. Текст, выходящий за пределы прямоугольника не отображается.

Dim format As StringFormat

format = New StringFormat(StringFormatFlags.DirectionVertical)

Все перечисленные параметры используются в конструкторе:

Sub (ByVal s As String, ByVal font As System.Drawing.Font, ByVal brush As System.Drawing.Brush, ByVal layoutRectangle As System.Drawing.RectangleF, ByVal format As System.Drawing.StringFormat )

Трусов М. А. Visual Basic .NET. Создание графических объектов и основы программирования

Работа с текстом

Вот как выглядит код с использованием этого конструктора и параметров, представленных переменными:

Private Sub Forml_Paint(ByVal sender As Object, ByVal e _

As Systern.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim s As String

s = «text,text,text»

Dim brush As Brush

brush = Brushes.Black

Dim fnt As Font

fnt = New Font(«arial», 16, FontStyle.Underline) Dim layoutRectangle As RectangleF layoutRectangle = New RectangleF(50, 50, 20, 150) Dim format As StringFormat

format = New StringFormat(StringFormatFlags.NoClip)

e.Graphics.Drawstring(s, fnt, brush, layoutRectangle, format)

End Sub

Чтобы определить позицию строки, необязательно указывать параметры соответствующего четырехугольника. Достаточно координат его верхнего левого угла. При этом размер строки не ограничивается. Также нет нужды объявлять переменные для каждого параметра. Их можно представить в качестве аргументов метода. Продемонстрируем это на примере следующего конструктора:


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta