Исходники
Статьи
Языки программирования
.NET Delphi Visual C++ Borland C++ Builder C/С++ и C# Базы Данных MySQL MSSQL Oracle PostgreSQL Interbase VisualFoxPro Веб-Мастеру PHP HTML Perl Java JavaScript Протоколы AJAX Технология Ajax Освоение Ajax Сети Беспроводные сети Локальные сети Сети хранения данных TCP/IP xDSL ATM Операционные системы Windows Linux Wap Книги и учебники
Скрипты
Магазин программиста
|
Ishodniki.Ru » Online книги » Visual Basic по шагам Шаг 120 - Первая анимация с помощью Direct Animation Вот код: Private Sub Form_Load() Set m = DAControl.PixelLibrary Set fillImg = m.Until(m.SolidColorImage(m.Red), m.LeftButtonDown, m.SolidColorImage(m.Green)) Set ovalImg = m.Oval(100, 100).Fill(m.DefaultLineStyle, fillImg) Set rotXf = m.Rotate3RateDegrees(m.Vector3(1, 1, 1), 45).ParallelTransform2() Set finalImg = ovalImg.Transform(rotXf) DAControl.Image = finalImg DAControl.BackgroundImage = m.SolidColorImage(m.Blue) DAControl.Start End Sub Пояснений пока никаких. Мы просто пробуем и смотрим. О Direct Animation нужно разговаривать отдельно. Запускаем и смотрим.
|
Форум Программиста
Новости Обзоры Магазин Программиста Каталог ссылок Поиск Добавить файл Обратная связь Рейтинги
|