Webbrowser control -memoria insuficiente

Bom dia,

Nao acredito que exista soluçao para o meu problema, pois ja tentei encontrar em outros sites, mas quem sabe, aqui vai :

a minha tabela tem cerca de 400 registos, e no meu formulario um webBrowser control, que carrega um a pagina web cada vez que me desloco para o seguinte registo
O problema é quando chego mais ao mesnos ao registo 90, o sistema começa a ficar mais lento até que acaba por abortar com o erro de memoria insuficiente.

Alguem teve este problema com o control WebBrowser ?
Obrigado

Bom dia,

Me parece um problema de hardware. O webbrowser por si só já exige um pouco mais da máquina que o restante Quais as configurações da máquina que está rodando o sistema?

Abraço.

Cassio,
DEsculpe a demora na resposta
a maquina tem 4gb de memoria Ram, e processador Intel 2.2 ghz

tenho uma rotina de codigo que vai informando qual a memoria consumida em cada vez que o webBrowser le a nova pagian, e vai sempre aumentando, ou seja nunca é liberada a memoria

Bom dia,

Realmente com essa configuração, não deveria ter problemas. Tente dar uma olhada nas variáveis que está utilizando. Verifique se está limpando o valor da variável depois do uso, isso desocupa a memória utilizada por elas. No mais, verifique seu código por completo para ver se não há alguma rotina que esteja má elaborada.

Abraço.

Realmente nao consigo resolver esta situaçao, e ja nao sei mais o que fazer

basicamnete o codigo que tenho no evento onCurrent é o seguinte :

Código:

Dim IE As WebBrowser
 Set IE = Me.WebBrowser1.Object
 IE.Silent = True
Dim fullStr As String  ' aqui vai o URL da pagina que vai navegar, cada registo tem uma pagina nova
                 
            IE.Navigate2 FullStr
          Call esperaSec(4) ' aqui espero 4 segundos para carregar a pagina
         
             
Set IE = Nothing
IE.Quit ' este dá erro ????  por isso retirei

alguem tem sugestao
obrigado

Ola a todos

Carlos, pela logica do codigo deveria estar assim:

Código:

Dim IE As WebBrowser
 Set IE = Me.WebBrowser1.Object
 IE.Silent = True
Dim fullStr As String  ' aqui vai o URL da pagina que vai navegar, cada registo tem uma pagina nova
                  
            IE.Navigate2 FullStr
           Call esperaSec(4) ' aqui espero 4 segundos para carregar a pagina
          
IE.Quit                
Set IE = Nothing


Abraco