Автор статьи: Беседин Игорь
Как вывести на экран текст в стиле Disable?
Все показано следующем коде. Единственное что Вам придется подобрать это значения Me.CurrentX и Me.CurrentY.
Private Sub Form_Load()
Call PrintDisable("IgorykSoft", 200, 200)
End Sub
Function PrintDisable(Stroka As String, x, y)
Me.CurrentX = x
Me.CurrentY = y
Cx = Me.CurrentX
Cy = Me.CurrentY
Me.ForeColor = QBColor(15)
Print Stroka
Me.CurrentX = Cx - 13 'Эти значения
подобраны для шрифта MS Sans Serif 10pt
Me.CurrentY = Cy - 13 'Для другого шрифта
придется подбирать другие параметры
Me.ForeColor = &H80000010
Print Stroka
End Function
При любом воспроизведении этой статьи (и других статей с этого сайта) ставьте ссылку на сайт www.igoryksoft.narod.ru