Зависание программы при попытке запуска CommandButton1_Click из него самого

@sesna7 · Регистрация: 06.04.2021

Author24 — интернет-сервис помощи студентам

Играюсь тут с VBA, сделал программу - маленькая кнопка ползает по userform с замедлением в 1 секунду, влево-вправо-вверх-вниз случайным образом, не вылазя за границы самой формы (500 х 500)

Но при попытке запуска программы она зависает, я наверное что-то не понимаю. По видимому из-за того, что я прямо из
Sub CommandButton1_Click пытаюсь запустить ее повторно. Я ее закоментировал и вручную когда нажимаю - все работает. Но как заставить программу запускаться и потом выгружаться и снова запускаться?

Visual Basic

Private Sub Random_Case()
Randomize
caseid = (Int((4 - 1 + 1) * Rnd + 1))
End Sub
 
 
Private Sub CommandButton1_Click()
Random_Case
Select Case caseid
 
Case 1
        If CommandButton1.Left >= 20 Then
        Application.Wait Now + #12:00:01 AM#
        CommandButton1.Left = CommandButton1.Left - 10
        'CommandButton1_Click
        Else
        'CommandButton1_Click
        End If
 
Case 2
        If CommandButton1.Left <= 480 Then
        Application.Wait Now + #12:00:01 AM#
        CommandButton1.Left = CommandButton1.Left + 10
        'CommandButton1_Click
        Else
        'CommandButton1_Click
        End If
 
 
Case 3
        If CommandButton1.Top >= 20 Then
        Application.Wait Now + #12:00:01 AM#
        CommandButton1.Top = CommandButton1.Top - 10
        'CommandButton1_Click
        Else
        'CommandButton1_Click
        End If
 
Case 4
        If CommandButton1.Top <= 480 Then
        Application.Wait Now + #12:00:01 AM#
        CommandButton1.Top = CommandButton1.Top + 10
        'CommandButton1_Click
        Else
        'CommandButton1_Click
        End If
End Select
End Sub

SergioJek · 23.02.2023, 20:10

Visual Basic

Private Sub CommandButton1_Click()
Randomize
my_Procedure
END SUB

в отдельном модуле

Visual Basic

dim caseid as long
 
Sub Random_Case()
caseid = Int(4 * Rnd + 1)
End Sub
 
Sub my_Procedure()
Random_Case
with UserForm1
Select Case caseid
Case 1
        If .CommandButton1.Left >= 20 Then
          .CommandButton1.Left = .CommandButton1.Left - 10
        End If
Case 2
        If .CommandButton1.Left <= 480 Then
          .CommandButton1.Left = .CommandButton1.Left + 10
        End If
Case 3
        If .CommandButton1.Top >= 20 Then
          .CommandButton1.Top = .CommandButton1.Top - 10
        End If
Case 4
        If .CommandButton1.Top <= 480 Then
          .CommandButton1.Top = .CommandButton1.Top + 10
        End If
End Select
Application.OnTime Now + TimeValue("00:00:01"), "my_Procedure"
end with
End Sub

SergioJek · 24.02.2023, 09:39

Но можно и без ONTIME обойтись

Visual Basic

Option Explicit
Dim B As Boolean
 
Private Sub CommandButton1_Click()
Dim H!, W!, D!
Randomize
H = InsideHeight - CommandButton1.Height
W = InsideWidth - CommandButton1.Width
B = Not B
While B
  DoEvents
  D = Int(Rnd * 4)
  CommandButton1.Left = CommandButton1.Left + Array(0, 0, 10, -10)(D)
  If CommandButton1.Left < 0 Then CommandButton1.Left = 0
  If CommandButton1.Left > W Then CommandButton1.Left = W
  CommandButton1.Top = CommandButton1.Top + Array(-10, 10, 0, 0)(D)
  If CommandButton1.Top < 0 Then CommandButton1.Top = 0
  If CommandButton1.Top > H Then CommandButton1.Top = H
  Application.Wait Now + 1 / 86400
Wend
End Sub
 
Private Sub UserForm_Terminate()
B = False
End Sub

@sesna7 · 24.02.2023, 10:08 **[ТС]**

SergioJek, Спасибо большое, все работает, но есть одна маленькая проблема - я абсолютно не понимаю, КАК это работает.

Новый код понимаю еще меньше.

SergioJek · 24.02.2023, 10:14

sesna7, какая из строк вызывает замешательство?

@sesna7 · 24.02.2023, 10:26 **[ТС]**

Многие

. Я новичок совсем.

Сообщение от SergioJek

.CommandButton1.Left

- почему с точкой в начале?

with UserForm1

- вообще непонятно, для чего это

Application.OnTime Now + TimeValue("00:00:01"), "my_Procedure"

- т.е. фактически я вызываю процедуру повторно прямо из нее, то, что я делал в своем коде, но тут это не вызывает зависания. И почему в кавычках не просто:

Visual Basic

1 2	Application.OnTime Now + TimeValue("00:00:01") my_Procedure

SergioJek · 24.02.2023, 10:35

sesna7, кнопка F1 у Вас есть?

Сообщение от sesna7

я вызываю процедуру повторно прямо из нее

Такой подход приводит к зависанию и переполнению стека вызовов в итоге.
Почитайте про рекурсию...

@sesna7 · 24.02.2023, 10:37 **[ТС]**

Ладно, наверное глупые вопросы, пошёл сам разбираться, спасибо еще раз за помощь.

Добавлено через 2 минуты

Сообщение от SergioJek

Такой подход приводит к зависанию и переполнению стека вызовов в итоге.
Почитайте про рекурсию...

Я это сразу понял еще со своим кодом и начал думать, как обойти это.
А вот почему ваш код не вызывает рекурсию - этого не пойму пока. Но постараюсь понять. Спасибо.

SergioJek · 24.02.2023, 10:46

Сообщение от sesna7

А вот почему ваш код не вызывает рекурсию

Потому что тут нет рекурсии, процедура идет дальше и заканчивается.
Процедуру "my_Procedure" вызывает не сама процедура, а Application, т.е. Excel.

@sesna7 · 24.02.2023, 10:46 **[ТС]**

Сообщение от sesna7

with UserForm1

Понял. Иду дальше. Просто не сразу понял, что в With можно еще и If засунуть.

Новые блоги и статьи
Администрирование Git, продвинутые техники работы с Git InfoMaster 11.01.2025 Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .	Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .	Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .

@sesna7 1 / 1 / 1 Регистрация: 06.04.2021 Сообщений: 44
	24.02.2023, 10:08 [ТС]	4
	SergioJek, Спасибо большое, все работает, но есть одна маленькая проблема - я абсолютно не понимаю, КАК это работает. Новый код понимаю еще меньше. 0

SergioJek 424 / 327 / 60 Регистрация: 29.06.2019 Сообщений: 491
	24.02.2023, 10:14	5
	sesna7, какая из строк вызывает замешательство? 1

SergioJek 424 / 327 / 60 Регистрация: 29.06.2019 Сообщений: 491
	24.02.2023, 10:35	7
	sesna7, кнопка F1 у Вас есть? Сообщение от sesna7 я вызываю процедуру повторно прямо из нее Такой подход приводит к зависанию и переполнению стека вызовов в итоге. Почитайте про рекурсию... 1

@sesna7 1 / 1 / 1 Регистрация: 06.04.2021 Сообщений: 44
	24.02.2023, 10:37 [ТС]	8
	Ладно, наверное глупые вопросы, пошёл сам разбираться, спасибо еще раз за помощь. Добавлено через 2 минуты Сообщение от SergioJek Такой подход приводит к зависанию и переполнению стека вызовов в итоге. Почитайте про рекурсию... Я это сразу понял еще со своим кодом и начал думать, как обойти это. А вот почему ваш код не вызывает рекурсию - этого не пойму пока. Но постараюсь понять. Спасибо. 0

SergioJek 424 / 327 / 60 Регистрация: 29.06.2019 Сообщений: 491
	24.02.2023, 10:46	9
	Сообщение от sesna7 А вот почему ваш код не вызывает рекурсию Потому что тут нет рекурсии, процедура идет дальше и заканчивается. Процедуру "my_Procedure" вызывает не сама процедура, а Application, т.е. Excel. 1

@sesna7 1 / 1 / 1 Регистрация: 06.04.2021 Сообщений: 44
	24.02.2023, 10:46 [ТС]	10
	Сообщение от sesna7 with UserForm1 Понял. Иду дальше. Просто не сразу понял, что в With можно еще и If засунуть. 0

Зависание программы при попытке запуска CommandButton1_Click из него самого

Решение