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() является одной из основных и, как скоро будет видно, используется в этом же виде в коде элемента управления. Можете открыть проект и ознакомиться с кодом перед его компоновкой.




Содержание  Назад  Вперед