Программирование на Visual Basic

3D Текст на Visual Basic

Небольшой пример, демонстрирующий вывод объёмного текста :)

 

Private Sub Print3D(Text As String, _                    ShadowX As Integer, _                    ShadowY As Integer, _                    Max As Integer)  Dim OLDFore As Long    Dim OldScale As Integer  Dim I As Integer  "Сохраняем кое-что                         OLDFore = Form1.ForeColor  OldScale = Form1.Scalemode  "Устанавливаем Scalemode в pixel  Form1.ScaleMode = 3  "Меняем основной цвет Form1  "на цвет тени (тёмно серый)  Form1.ForeColor = vb3DShadow  For I = 0 To Max   CurrentX = ShadowX + I   CurrentY = ShadowY + I   "Меняем цвет на старый   If I = Max Then Form1.ForeColor = OLDFore   Form1.Print Text  Next I"ВосстанавливаемForm1.ScaleMode = OldScale End Sub

Осталось добавить, что можно рисовать не только на форме.

Hosted by uCoz