Помогите избавиться от шлейфа

Помогите избавиться от шлейфа, При перемещении пользовательской формы по экрану возникает "шлейф"

Пользователь

Сообщений: 5 Регистрация: 25.10.2012

28.03.2013 15:47:46

Здравствуйте!

Нужно сделать плавное перемещение пользовательской формы по экрану, но при используемом мною решении возникает "шлейф".
Файл с примером во вложении.

Помогите, пожалуйста, от него избавиться.

Или, возможно, существует иное решение этой задачи?

Спасибо!

Прикрепленные файлы

Шлейф.xls (37.5 КБ)

ber$erk Пользователь Сообщений: 2735 Регистрация: 25.12.2012	#2 28.03.2013 15:52:26 у меня "шлейфа" нет Учимся сами и помогаем другим...

ZVI Пользователь Сообщений: 4620 Регистрация: 23.12.2012	#3 28.03.2013 16:11:26 Перед Sleep добавьте DoEvents

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

28.03.2013 16:16:36

Вот так будет работать:

Код

Private Sub CommandButton2_Click()
    For I = 1 To 250
        UserForm1.Left = UserForm1.Left + 1
        UserForm1.Top = UserForm1.Top + 1
        t = Timer: While Timer - t < 0.01: DoEvents: Wend
    Next I
End Sub

Можно и так (побыстрее будет)

Код

Private Sub CommandButton2_Click()
    For I = 1 To 250
        UserForm1.Left = UserForm1.Left + 1
        UserForm1.Top = UserForm1.Top + 1
        DoEvents
    Next I
End Sub

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

nerv Пользователь Сообщений: 3071 Регистрация: 22.12.2012	#5 28.03.2013 16:23:36 http://www.excelworld.ru/forum/2-2227-26595-16-1348170160 http://www.excelworld.ru/forum/3-2974-1 Чебурашка стал символом олимпийских игр. А чего достиг ты? Тишина - самый громкий звук https://github.com/nervgh

Кирилл Федосеев Пользователь Сообщений: 5 Регистрация: 25.10.2012	#6 28.03.2013 18:06:28 Спасибо большое! Всё работает!

Читают тему