Visual Basic 6. Руководство разработчика
Элемент управления - часть 4
Me.Cls
Me.CurrentX = CurrX - 45
Me.CurrentY = CurrY - 45
Me.ForeColor = RGB(255, 255, 255)
Me.Print m_Caption
Me.CurrentX = CurrX - 30
Me.CurrentY = CurrY - 30
Me.ForeColor = RGB(255, 255, 255)
Me.Print m_Caption
Me.CurrentX = CurrX - 15
Me.CurrentY = CurrY - 15
Me.ForeColor = RGB(255, 255, 255)
Me.Print m_Caption
Me.CurrentX = CurrX
Me.CurrentY = CurrY
Me.ForeColor = oldForeColor
Me.Print m_Caption
End Select
End Sub
Процедура DrawCaptionQ рисует строку, используя значения переменных, определяющих выравнивание и специальный эффект. Процедура вызывается кодом-обработчиком нажатия кнопки Display Caption:
Private Sub Conimand1_Click ()
m_Caption = "Mastering Visual Basic"
m_TextAlignment = 0
m_Effect = 1
DrawCaption
End Sub
Этот код устанавливает значения переменных m_Caption, m_TextAlignment и m_Effect, а затем вызывает DrawCaption() для отображения заголовка на форме. Процедура DrawCaption() является одной из основных и, как скоро будет видно, используется в этом же виде в коде элемента управления. Можете открыть проект и ознакомиться с кодом перед его компоновкой.
