Я работаю над программой, в которой пользователь нажимает кнопку на главном рабочем листе, и открывается пользовательская форма.Эта пользовательская форма в основном состоит из Imageframe и другой кнопки.Нажав на кнопку, рамка изображения меняет цвет фона через каждые 0,2 секунды.Похоже на небольшое цветное видео.Примерно через 10 секунд «видео» должно остановиться, и выбранное изображение должно быть загружено в кадр.
У меня есть большая проблема, что моя пользовательская форма падает после определенного количества времени во время показа «видео».Это разочаровывает, и я не могу понять проблему, потому что она случайно падает иногда через 5 секунд, в другой раз через 8 секунд и т. Д. После сбоя отображается рабочий лист, а пользовательская форма скрывается позади.
Мой вопрос заключается в том, знает ли кто-нибудь, как я предотвращаю аварийное завершение пользовательской формы ИЛИ, если после того, как есть команда, чтобы автоматически вывести пользовательскую форму на первый слой.
это мой код кнопки-клик:
For i = 1 To 15 'loop for showtime color sequenz
Randomize
DisplayUserform.NameBox.Caption = MainSheet.Cells(Int(nrempl * Rnd + 1), 11)
Randomize
DisplayUserform.DisplayImage.BackColor = RGB(Int(255 * Rnd + 1), Int(255 * Rnd + 1), Int(255 * Rnd + 1))
DisplayUserform.Repaint
stoptime = stoptime + 30
Sleep stoptime
Next
DisplayUserform.DisplayImage.Picture = LoadPicture("C:\Users\uib25432\Pictures\Mitarbeiter\" & guilty & ".jpg")
DisplayUserform.NameBox.Caption = guilty