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: ' Сильно выпуклый
