Окна Ролл/Управления Слайд – VB 4.0 (32-bit), VB 5.0, VB 6.0 – База кода

Скачать

Название (оригинал): Windows Roll/Slide Control

Описание:
Англ (оригинал)I have been tinkering with the Windows API AnimateWindow function, and have wrapped it into a user control, which you can drop onto any top-level window. You simply call the controls CloseAnimation method from the form_unload event, and your window will roll or slide up, down, left, or right, or fade or zoom to nothing. This easy to use control has 2 main properties – the “AnimationEffect”, and the “EffectDelay”. The included example project here shows how easy it is to use. It seems that this API Function exists in Windows 98, ME, 2000, and XP (I was unable to get this to work with Windows 95 or Windows NT). I got varying levels of effectiveness depending on the OS. Keeping the EffectDelay to a minimum (500 or less) usually produces great results. This project has the default delay at 1000 to exagerate the effect, but you should set to 400 or 500 in your projects. Use the “Project1.vbp” to see the example, or include the CoolAnimate.ctl in your project to just use the user control. Hope this is helpful to some of you.
Рус (машинный)Я был возиться с API-интерфейса Windows функция AnimateWindow, и завернули его в пользовательский элемент управления, который Вы можете оставить на любое окно верхнего уровня. Вы просто позвоните в управление CloseAnimation метод из события form_unload, и ваше окно будет катиться или скользить вверх, вниз, влево или вправо, или исчезать и приближаться к ничто. Это простой в использовании управления имеет 2 основных свойства – \”AnimationEffect\”, и \”EffectDelay\”. Здесь включен пример проекта показывает, как легко это использовать. Кажется, что эта API-функция присутствует в Windows 98, мне, 2000 и XP (я не смог заставить это работать с Windows NT или Windows 95). У меня разной степенью эффективности в зависимости от операционной системы. Сохраняя EffectDelay до минимума (500 или меньше), обычно дает отличные результаты. Этот проект имеет задержка по умолчанию на 1000, чтобы преувеличивать эффект, но вы должны установить до 400 или 500 в ваших проектах. Используйте \”Проект1.вбп\”, чтобы увидеть пример, или включать CoolAnimate.ctl в ваш проект, чтобы просто использовать пользовательский элемент управления. Надеюсь, это поможет некоторым из вас.

база кода