VB6 - destroir 1 objecto(UC)

desculpa mas continuo com problemas no meu metodo:
Código: 
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Implements[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#000000] IDisposable[/COLOR][/SIZE]
 
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Event[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Destroyed([/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]ByVal[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] PosX [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Long[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2], [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]ByVal[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] PosY [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Long[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
 
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Private[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] disposedValue [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Boolean[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] = [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]False[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' To detect redundant calls[/COLOR][/SIZE][/COLOR][/SIZE]
 
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' IDisposable[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Protected[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Overridable[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Destroy([/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]ByVal[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] disposing [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Boolean[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]            If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Not[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2].disposedValue [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]                 If[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] disposing [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]                     ' TODO: free other state (managed objects).[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]                 End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]                ' TODO: free your own state (unmanaged objects).[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]                ' TODO: set large fields to null.[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]             End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]            Me[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2].disposedValue = [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]True[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE]
 
[SIZE=2][COLOR=#0000ff]#Region[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#a31515][SIZE=2][COLOR=#a31515]" IDisposable Support "[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]      ' This code added by Visual Basic to correctly implement the disposable pattern.[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]       Public[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Destroy() [/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Implements IDisposable.Dispose[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]                  RaiseEvent[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Destroyed([/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2].Left, [/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2].Top)[/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]                  ' Do not change this code. Put cleanup code in Dispose(ByVal disposing As Boolean) above.[/COLOR][/SIZE]
[/COLOR][/SIZE][SIZE=2]                 Destroy([/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]True[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]                GC.SuppressFinalize([/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]       End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]#End[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]Region[/COLOR][/SIZE]
[/COLOR][/SIZE]
o erro esta de tal forma que quando faço "nome." ja não aparece a lista.
diz que o objecto(apos inserido no formulario) não esta defenido(defined). o porque aind n sei :(
eu preciso que este metodo tenha o nome Destroy e que destro-a o objecto.
outra coisa: o evento deve ser chamado onde esta ou no procedimento fora do REGION?
a serio, desculpa te chatear com isto.... e obrigado por me ajudares.
 
Última edição:
Uma region apenas serve para tu poderes organizar o teu código. Para o Vb, o código estar dentro de uma region ou fora não tem diferença nenhuma.

Em relação ao teu erro, preciso que, ou mete-ses mesmo a descrição do erro aqui no post juntamente com a sub onde te da o erro, ou que tirases um screenshot com essa informação pk assim derepente não estou a ver o porque desse erro.
 
PNDmartins disse:
Uma region apenas serve para tu poderes organizar o teu código. Para o Vb, o código estar dentro de uma region ou fora não tem diferença nenhuma.

Em relação ao teu erro, preciso que, ou mete-ses mesmo a descrição do erro aqui no post juntamente com a sub onde te da o erro, ou que tirases um screenshot com essa informação pk assim derepente não estou a ver o porque desse erro.
Clicar para expandir...
antes queria perguntar 1 cena: será que dá para anexar o projecto, aqui?
 
Duvido devido ao espaço permitido para attachments no forum mas podes fazer upload para algum sitio tipo megaupload, ou Skydrive da microsoft que é de borla, e depois é só postares o link para download aqui no forum.
 
Não respondi mais cedo porque tenho estado ocupado e por isso peço desculpas.

Tive a ver o teu projecto e em principio já sei qual é a causa.

Normalmente eu costumo usar IDispoable em classes, e funciona perfeitamente, mas esqueci-me que tas a criar um usercontrol e por defeito os usercontrols já trazem bastantes metodos , e um deles é mesmo o ".Dispose".

Experimenta criar o controlo novamente mas não tentes adicionar o IDisposable.
 
PNDmartins disse:
Não respondi mais cedo porque tenho estado ocupado e por isso peço desculpas.

Tive a ver o teu projecto e em principio já sei qual é a causa.

Normalmente eu costumo usar IDispoable em classes, e funciona perfeitamente, mas esqueci-me que tas a criar um usercontrol e por defeito os usercontrols já trazem bastantes metodos , e um deles é mesmo o ".Dispose".

Experimenta criar o controlo novamente mas não tentes adicionar o IDisposable.
Clicar para expandir...
eu ja testei isso:
Código: 
me.dispose
me=nothing 'aqui da-me 1 erro
obrigado
 
Inicie sessão ou registe-se para poder participar.
Back
Topo