Ошибка выполнения: 28 из стекового пространства в Vb 6.0

Question

Во время работы над моим проектом VB 6.0 я выхожу из пространства стека.

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

Может ли кто-нибудь помочь с исправлением этой ошибки?

Проблема возникает в следующем сценарии: В моем коде около 20 свойств Get и Set Statements, и эта проблема возникает, когда мой код пытается присвоить значение (скажем, для 9-го свойства)

Public Property Get Language() As String
    Language = m_strLanguage
End Property

Public Property Let Language(ByVal strLanguage As String)
    m_strLanguage = strLanguage
End Property

Мой код входит в рекурсивный цикл.

Answer 1

Спасибо за ваши предложения. Ты был прав . Я исправил проблему, и теперь код работает нормально.

Проблема была в том, как было установлено свойство Let: я передал неправильную переменную, которая теперь исправлена.

Public Property Let Language(ByVal strLanguage As String) 
   Language = strLanguage 
End Property 

, который сделал код для рекурсивного цикла,

Правильный код:

Public Property Let Language(ByVal strLanguage As String) 
   m_strLanguage= strLanguage 
End Property 

Answer 2

Есть ли у вас логическая ошибка, которая вызывает рекурсивный цикл? Вы оглянулись назад на стек вызовов, чтобы увидеть, почему происходит рекурсивный цикл?