LOAD DO FORM NÃO CORRE ATÉ O FIM

DJHASSELMANN 22/06/2016 13:14:09
#463918
Boa tarde pessoal!

Trabalho com o VB.NET 2012 - VS 2012 - Windows 7 64 Bits

Ocorre que quando chamo determinado form que tenha instruções iniciais no carregamento do mesmo (Load do Foirm), não está completando todas as instruções contidas nele, alguem pode me dizer porque?

Por exemplo:

abro a conexão:

If gCNTermometro.State = ConnectionState.Open Then gCNTermometro.Close()
gCNTermometro.Open()

Timer1.Enabled = True

dataTable = gCNTermometro.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, [Ô]TABLE[Ô]})

For Each Row As DataRow In dataTable.Rows
nTabelas += 1
Next

pgbTermometro.Minimum = 0
pgbTermometro.Maximum = nTabelas
pgbTermometro.Value = pgbTermometro.Minimum

I = 0

Exit Sub

Ele termina de executar a parte em negrito acima e já parte para o timer1_tick que tenho dentro do form, sem executar o resto da instrução!

A quem ajudar-me fico grato!

Att.
PERCIFILHO 22/06/2016 13:16:48
#463919
Pra que serve esse Timer?
GUIMORAES 22/06/2016 13:49:10
#463922
DJHASSELMANN,

Você já tentou debugar para ver o que está acontecendo?
JABA 22/06/2016 14:09:17
#463923
Existem muitas possibilidades para o que esteja acontecendo aí. Uma delas é que o seu timer pode estar com um intervalo de tempo muito baixo para a sua execução, daí quando você ativa ele, o código dentro dele passa a ser executado logo em seguida. Faça o seguinte teste: Habilite o time no final do código e veja o que acontece, como segue abaixo:

If gCNTermometro.State = ConnectionState.Open Then gCNTermometro.Close()
gCNTermometro.Open()

      dataTable = gCNTermometro.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, [Ô]TABLE[Ô]})

      For Each Row As DataRow In dataTable.Rows
         nTabelas += 1
      Next

      pgbTermometro.Minimum = 0
      pgbTermometro.Maximum = nTabelas
      pgbTermometro.Value = pgbTermometro.Minimum

      I = 0

     [txt-color=#e80000]Timer1.Enabled = True[/txt-color]

      Exit Sub
Faça seu login para responder
Voltar