|
Visual Basic 5.0/6.0 - ГрафикаВсе примеры / Мультимедиа / Графика3D-текст на форме
Автор: Алексей Иванов | добавлено: 06.03.2010, 12:35 | просмотров: 2556 (1+) | комментариев: 0 | рейтинг:
Пример демонстрирует прорисовку стандартными средствами Visual Basic 3D-текста на форме.
 x10
Код'Установите свойство формы 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
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации  .Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
|
|
![[at]](/Content/Themes/Native5x/Images/a.gif){kind=small}
kbyte.ru