ERRO 28 - OUT OF STACK SPACE

 Tópico anterior Próximo tópico Novo tópico

ERRO 28 - OUT OF STACK SPACE

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#484701 - 30/09/2018 18:40:57

KELLY
BRASILIA
Cadast. em:Setembro/2009


Última edição em 30/09/2018 18:43:59 por KELLY

Ol a todos!

Estou com o erro 28 no meu cdigo e no sei como resolver este problema. Analisei todo o cdigo, mas no encontrei erro.
Este cdigo uma DLL que estou criando para ser usado em outras aplicaes. Algum sabe onde estou errando?


Cdigo DLL

Option Explicit

Private vNewProduto As String
Private vNewSubCategoria As String
Private vNewCategoria As String
Private vNewPreco As Currency
Private vNewFrete As Currency
Private vNewAtivo As Boolean

Public Property Get Produto() As String
    Produto = vNewProduto
End Property

Public Property Let Produto(ByVal vNewValue As String)
    vNewProduto = vNewValue
End Property

Public Property Get SubCategoria() As String
    SubCategoria = vNewSubCategoria
End Property

Public Property Let SubCategoria(ByVal vNewValue As String)
    vNewSubCategoria = vNewValue
End Property

Public Property Get Categoria() As String
    Categoria = vNewCategoria
End Property

Public Property Let Categoria(ByVal vNewValue As String)
    Categoria = vNewValue
End Property

Public Property Get Preco() As Currency
    Preco = vNewPreco
End Property

Public Property Let Preco(ByVal vNewValue As Currency)
    Preco = vNewValue
End Property

Public Property Get Frete() As Currency
    Frete = vNewFrete
End Property

Public Property Let Frete(ByVal vNewValue As Currency)
    Frete = vNewValue
End Property

Public Property Get Ativo() As Boolean
    Ativo = vNewAtivo
End Property

Public Property Let Ativo(ByVal vNewValue As Boolean)
    Ativo = vNewValue
End Property

Cdigo Teste

Option Explicit

Dim obj As New Project1.Class1

Private Sub Form_Load()

With obj
    .Produto = []arroz[]
    .SubCategoria = []alimentos[]
    .Categoria = []pacotes[]
    .Preco = []12,00[]
    .Frete = []100,00[]
    .Ativo = True
    
    MsgBox .Produto & vbNewLine & _
           .SubCategoria & vbNewLine & _
           .Categoria & vbNewLine & _
           .Preco & vbNewLine & _
           .Frete & vbNewLine & _
           .Ativo
End With

End Sub






#484706 - 01/10/2018 01:18:46

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
[]Erro 28[] no nos diz muito, qual a mensagem de erro?

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


Resposta escolhida #484707 - 01/10/2018 08:25:35

FFCOUTO
COM LEVY GASPARIAN
Cadast. em:Março/2005


O erro est destacado em vermelho

Public Property Let Categoria(ByVal vNewValue As String)
    []Categoria = vNewValue
    vNewCategoria = vNewValue
End Property

Public Property Let Preco(ByVal vNewValue As Currency)
    []Preco = vNewValue
    vNewPreco = vNewValue
End Property

Public Property Let Frete(ByVal vNewValue As Currency)
    []Frete = vNewValue
    vNewFrete = vNewValue
End Property

Public Property Let Ativo(ByVal vNewValue As Boolean)
    []Ativo = vNewValue
    vNewAtivo = vNewValue
End Property



Cursos de Excel e VB6:
cursoexcelvba.com.br


#484723 - 01/10/2018 21:24:22

KELLY
BRASILIA
Cadast. em:Setembro/2009


Ol KERPLUNK e FFCOUTO!

Eu conferi o cdigo e realmente errei nas linhas onde o FFCOUTO destacou de vermelho. Mas obrigada pela inteno KERPLUNK e obrigada FFCOUTO pela ajuda.





 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por KELLY em 01/10/2018 21:25:30