Visual Basic 6. Руководство разработчика


         

Элемент управления - часть 3


CurrX = 30

CurrY = Me.ScaleHeight – CaptionHeight - 45

Case 7: ' Нижнее, по центру

CurrX = (Me.ScaleWidth - CaptionWidth) / 2

CurrY = Me.ScaleHeight – CaptionHeight - 45

Case 8: ' Нижнее, левое

CurrX = Me.ScaleWidth - CaptionWidth - 30

CurrY = Me.ScaleHeight - CaptionHeight - 45

End Select

oldForeColor = Me.ForeColor

Select Case m_Effect

Case 0: ' Плоский текст

Me.Cls

Me CurrentX = CurrX

Me CurrentY = CurrY

Me Print m_Caption

Case 1: ' Слегка тисненный

Me.Cls

Смещение на 15 твипов (1 пиксель)

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

Case 2: ' Средне тисненный

Me.Cls

Me.CurrentX = CurrX + 30

Me.CurrentY = CurrY + 30

Me.ForeColor = RGB(255, 255, 255)

Me.Print m_Caption

Me.CurrentX = CurrX

Me.CurrentY = CurrY

Me.ForeColor = oldForeColor

Me.Print m_Caption

Case 3:  ' Сильно тисненный

Me.Cis

Me.CurrentX = CurrX +45

Me.CurrentY = CurrY +45

Me.ForeColor = RGB(255, 255, 255)

Me Рrint 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

Case 4: ' Слегка выпуклый

Me.Cls

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

Case 5: ' Средне выпуклый

Me.Cls

Me.CurrentX = CurrX - 30

Me.CurrentY = CurrY - 30

Me.ForeColor = RGB(255, 255, 255)

Me.Print m_Caption

Me.CurrentX = CurrX

Me.CurrentY = CurrY

Me.ForeColor = oldForeColor

Me.Print m_Caption

Case 6: ' Сильно выпуклый




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