Элементами множества "шрифты" являются семейства шрифтов различных гарнитур, таких как, Arial, Courier New, Times New Roman, Tahoma и т.д.
Среди гарнитур можно выделить два крупных типа: Serif и SanSerif. Серифы - это "засечки" на концах символов, составляющих конкретный шрифтовый набор. Большинство гарнитур к серифам, потому что считается бесспорным следующее утверждение: текст, имеющий "засечки", прочитывается быстрее, чем текст без засечек. Пример гарнитуры типа Serif - шрифты Times и Courier New, типа Sanserif (без засечек) - Arial и Tahoma (этот ответ набран гарнитурой Arial).
Шрифт может быть пропорциональным или моноширинным. В пропорциональном шрифте ширина каждого символа зависит от этого символа, например, буква Ж занимает по ширине больше места, чем Т. В моноширинном шрифте все символы одной ширины. Моноширинные шрифты приводят к увеличению длины набранных слов и поэтому имеют ограниченное применение. Представитель моноширинных шрифтов - Courier New.
Шрифты внутри одной гарнитуры могут отличаться размерами и начертанием. Типичные начертания, кроме обычных - это Italic (курсив) и Bold (выделенный), а также их сочетание ItallicBold.
Во вложении находится архивный файл LT.RAR, у которого расширение RAR переименовано в TXT, поскольку вложить сюда RAR-архив невозможно.
В архивном файле находится проект VB-6 и исполняемый файл, который при наличии на компьютере среды поддержки VB, покажет работу программы.
Код проекта:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4275
ClientLeft = 60
ClientTop = 450
ClientWidth = 5880
LinkTopic = "Form1"
ScaleHeight = 4275
ScaleWidth = 5880
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdTiger
Caption = "Это ТИГР"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 1
Left = 1800
TabIndex = 1
Top = 3240
Width = 2055
End
Begin VB.CommandButton cmdLeo
Caption = "Это ЛЕВ"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 0
Left = 1800
TabIndex = 0
Top = 2520
Width = 2055
End
Begin VB.Image Image2
Height = 1995
Left = 1560
Picture = "Leo_Tiger.frx":0000
Top = 240
Visible = 0 'False
Width = 2655
End
Begin VB.Image Image1
Height = 1995
Left = 1200
Picture = "Leo_Tiger.frx":44CE
Top = 240
Visible = 0 'False
Width = 3300
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdLeo_Click(Index As Integer)
Me.Image1.Visible = True
Me.Image2.Visible = False
End Sub
Private Sub cmdTiger_Click(Index As Integer)
Me.Image2.Visible = True
Me.Image1.Visible = False
End Sub
Замечание: На самом деле этот код не нужен, если открыть прилагаемый проект, он будет доступен.