|
Visual Basic 5.0/6.0 - ГрафикаВсе примеры / Мультимедиа / Графика3D-текст на форме
Автор: Алексей Иванов | добавлено: 06.03.2010, 12:35 | просмотров: 2556 (1+) | комментариев: 0 | рейтинг:
Пример демонстрирует прорисовку стандартными средствами Visual Basic 3D-текста на форме.
![]() Код'Установите свойство формы AutoRedraw как True Private Sub Form_Load() Dim ShadowX Dim ShadowY ScaleMode = 3 ForeColor = "&H808080" ShadowY = 5 ShadowX = 5 For I = 0 To 5 CurrentX = ShadowX + I CurrentY = ShadowY + I If I = 5 Then Form1.ForeColor = vbWhite Form1.Print "3D Text!!!" Next End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|