Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Bom dia,
Não estou conseguindo corrigir o erro durante a execução de um programa compilado, Segue o erro.
Consulte o final desta mensagem para obter detalhes sobre como chamar a
depuração just-in-time (JIT) em vez desta caixa de diálogo.
************ Texto de Exceção ************
System.InvalidOperationException: Coleção foi modificada; talvez a operação de enumeração não seja executada.
em System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
em System.Collections.Generic.List`1.Enumerator.MoveNextRare()
em System.Collections.Generic.List`1.Enumerator.MoveNext()
em Microsoft.VisualBasic.PowerPacks.ShapeCollection.Dispose(Boolean disposing)
em Microsoft.VisualBasic.PowerPacks.ShapeContainer.Dispose(Boolean disposing)
em System.ComponentModel.Component.Dispose()
em System.Windows.Forms.Control.Dispose(Boolean disposing)
em System.Windows.Forms.Form.Dispose(Boolean disposing)
em Portaria.frmRegistroDiario.Dispose(Boolean disposing)
em System.ComponentModel.Component.Dispose()
em Portaria.frmRegistroDiario.btnSair_Click(Object sender, EventArgs e)
em System.Windows.Forms.Control.OnClick(EventArgs e)
em System.Windows.Forms.Button.OnClick(EventArgs e)
em System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
em System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
em System.Windows.Forms.Control.WndProc(Message& m)
em System.Windows.Forms.ButtonBase.WndProc(Message& m)
em System.Windows.Forms.Button.WndProc(Message& m)
em System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
em System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
em System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
************ Assemblies Carregados ************
Spoiler
mscorlib
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
Controle Portaria
Versão do Assembly: 1.0.1.11
Versão do Win32: 1.0.1.11
Base de Código: file://zegla-s1v-fs01/scv$/Controle%20Portaria.exe
----------------------------------------
Microsoft.VisualBasic
Versão do Assembly: 10.0.0.0
Versão do Win32: 12.0.20806.33440 built by: FX45W81RTMREL
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
mscorlib.resources
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.34209 built by: FX452RTMGDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_pt-BR_b77a5c561934e089/mscorlib.resources.dll
----------------------------------------
System.Data
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36372 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
System.Xml
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Transactions
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Transactions/v4.0_4.0.0.0__b77a5c561934e089/System.Transactions.dll
----------------------------------------
System.EnterpriseServices
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.33440 built by: FX45W81RTMREL
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.EnterpriseServices/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll
----------------------------------------
System.Configuration
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Numerics
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll
----------------------------------------
Microsoft.VisualBasic.PowerPacks.Vs
Versão do Assembly: 10.0.0.0
Versão do Win32: 10.0.20911.1
Base de Código: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.PowerPacks.Vs/10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.PowerPacks.Vs.dll
----------------------------------------
System.Windows.Forms.resources
Versão do Assembly: 4.0.0.0
Versão do Win32: 4.0.30319.36213 built by: FX452RTMLDR
Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_pt-BR_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------
************ Depuração JIT ************
Para habilitar a depuração just-in-time (JIT), o arquivo .config deste
aplicativo ou computador (machine.config) deve ter o valor
jitDebugging definido na seção system.windows.forms.
O aplicativo também deve ser compilado com a depuração
habilitada.
Por exemplo:
<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>
Quando a depuração JIT está habilitada, qualquer exceção sem tratamento
será enviada ao depurador JIT registrado no computador,
em vez de ser tratada nesta caixa de diálogo.Não. É o seguinte. Compilei o programa e estou executando em outro computador.
Na Ide de desenvolvimento não mostra este erro. Incluí a linha no no config.ini do projeto conforme indica no final do erro e continua igual,
Eu diria que você tentou modificar uma coleção dentro de um laço.
Poste parte do código...
Public Class frmRegistroDiario
Dim txtLike As String = String.Empty
Dim CODIGOVIS As Integer
Dim NOMEVIS As String
Dim EMPRESAVIS As String
Dim ProxRegistro As String
Private Sub frmRegistroDiario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
mskData.Text = Date.Now
rdbNaEmpresa.Checked = True
VisitanteNaEmpresa = False
grpJustificativa.Visible = False
'DefineToolTip()
'tooltip1.ShowAlways = True
'tooltip1.SetToolTip(Me.btnConsulta1, "C O N S U L T A R")
'tooltip1.SetToolTip(Me.btnConsulta2, "C O N S U L T A R")
'tooltip1.SetToolTip(Me.btnNovo, "N O V O VISITANTE")
'tooltip1.SetToolTip(Me.btnSair, "S A I R")
End Sub
Private Sub btnConsulta1_Click(sender As Object, e As EventArgs) Handles btnConsulta1.Click
lstNomes.Items.Clear()
If Len(txtNome.Text) > 0 Then
ComandoSql = "Select * from visitante where nome_visitante like '%" & txtNome.Text & "%' order by nome_visitante "
preencheListBox(lstNomes, "", "", ComandoSql, "PesqLike", 1)
End If
End SubPrivate Sub btnSair_Click(sender As Object, e As EventArgs) Handles btnSair.Click
lstNaEmpresa.Dispose()
lstNomes.Dispose()
VisitanteNaEmpresa = False
Me.Close()
Me.Dispose()
End Sub
Private Sub lstNomes_Click(sender As Object, e As EventArgs) Handles lstNomes.Click
If Mid(lstNomes.Text, 1, 4) <> "" Then
CODIGOVIS = Val(Mid(lstNomes.Text, 1, 4))
NOMEVIS = Trim(Mid(lstNomes.Text, 8, 19))
EMPRESAVIS = Trim(Mid(lstNomes.Text, 31, 30))
frmRegistro.codigoVisitante = CODIGOVIS
frmRegistro.txtNome.Text = NOMEVIS
frmRegistro.txtEmpresa.Text = EMPRESAVIS
lstNomes.Refresh()
frmRegistro.ShowDialog()
End If
End Sub
Private Sub btnNovo_Click(sender As Object, e As EventArgs) Handles btnNovo.Click
Call frmVisitantes.ShowDialog()
End Sub
Private Sub btnConsulta2_Click(sender As Object, e As EventArgs) Handles btnConsulta2.Click
atualizaConteudo()
End Sub
Public Sub atualizaConteudo()
lstNaEmpresa.Items.Clear()
If rdbNaEmpresa.Checked = True Then
ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# and horario_saida is null "
Else
ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# "
End If
preencheListBox(lstNaEmpresa, "", "", ComandoSql, "RegVisitantes", 2)
End SubPrivate Sub lstNaEmpresa_Click(sender As Object, e As EventArgs) Handles lstNaEmpresa.Click
VisitanteNaEmpresa = True
ComandoSql = "select * from registros where registro_id = " & Val(Mid(lstNaEmpresa.SelectedItem, 1, 9)) & " "
If Trim(Mid(lstNaEmpresa.Text, 1, 9)) <> "" And Trim(Mid(lstNaEmpresa.Text, 1, 1)) <> "_" Then
preencheTxtBox(ComandoSql, "consRegistro", "", 2)
frmRegistro.ShowDialog()
End If
End SubPrivate Sub btnExcluir2_Click(sender As Object, e As EventArgs) Handles btnExcluir2.Click
grpJustificativa.Visible = True
End Sub
Private Sub btnJustExcluir_Click(sender As Object, e As EventArgs) Handles btnJustExcluir.Click
Dim codigoreg As Integer = 0
codigoreg = Val(Mid(lstNaEmpresa.Text, 1, 6))
If codigoreg <> 0 Then
ComandoSql = "INSERT INTO logregistros SELECT * FROM registros WHERE registros.registro_id = " & codigoreg & ""
executaSql(ComandoSql)
ComandoSql = "update logregistros set justificativa = '" & Trim(txtJustificativa.Text) & "' WHERE registro_id = " & codigoreg & ""
executaSql(ComandoSql)
ComandoSql = "delete * from registros where registro_id = " & codigoreg & ""
executaSql(ComandoSql)
MsgBox("OK, excluído!!", MsgBoxStyle.Information, "Registro Diário")
txtJustificativa.Text = ""
grpJustificativa.Visible = False
Call atualizaConteudo()
End If
End SubEnd Class
bom dia,
segue o código. O erro acontece quando clico no botão sair.( Private Sub btnSair_Click()) Na intenção de resolver o problema coloquei uns disposes...
Tenho dois listbox .
Public Class frmRegistroDiario
Dim txtLike As String = String.Empty
Dim CODIGOVIS As Integer
Dim NOMEVIS As String
Dim EMPRESAVIS As String
Dim ProxRegistro As String
Private Sub frmRegistroDiario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
mskData.Text = Date.Now
rdbNaEmpresa.Checked = True
VisitanteNaEmpresa = False
grpJustificativa.Visible = False
'DefineToolTip()
'tooltip1.ShowAlways = True
'tooltip1.SetToolTip(Me.btnConsulta1, "C O N S U L T A R")
'tooltip1.SetToolTip(Me.btnConsulta2, "C O N S U L T A R")
'tooltip1.SetToolTip(Me.btnNovo, "N O V O VISITANTE")
'tooltip1.SetToolTip(Me.btnSair, "S A I R")
End Sub
Private Sub btnConsulta1_Click(sender As Object, e As EventArgs) Handles btnConsulta1.Click
lstNomes.Items.Clear()
If Len(txtNome.Text) > 0 Then
ComandoSql = "Select * from visitante where nome_visitante like '%" & txtNome.Text & "%' order by nome_visitante "
preencheListBox(lstNomes, "", "", ComandoSql, "PesqLike", 1)
End If
End Sub
Private Sub btnSair_Click(sender As Object, e As EventArgs) Handles btnSair.Click
lstNaEmpresa.Dispose()
lstNomes.Dispose()
VisitanteNaEmpresa = False
Me.Close()
Me.Dispose()
End Sub
Private Sub lstNomes_Click(sender As Object, e As EventArgs) Handles lstNomes.Click
If Mid(lstNomes.Text, 1, 4) <> "" Then
CODIGOVIS = Val(Mid(lstNomes.Text, 1, 4))
NOMEVIS = Trim(Mid(lstNomes.Text, 8, 19))
EMPRESAVIS = Trim(Mid(lstNomes.Text, 31, 30))
frmRegistro.codigoVisitante = CODIGOVIS
frmRegistro.txtNome.Text = NOMEVIS
frmRegistro.txtEmpresa.Text = EMPRESAVIS
lstNomes.Refresh()
frmRegistro.ShowDialog()
End If
End Sub
Private Sub btnNovo_Click(sender As Object, e As EventArgs) Handles btnNovo.Click
Call frmVisitantes.ShowDialog()
End Sub
Private Sub btnConsulta2_Click(sender As Object, e As EventArgs) Handles btnConsulta2.Click
atualizaConteudo()
End Sub
Public Sub atualizaConteudo()
lstNaEmpresa.Items.Clear()
If rdbNaEmpresa.Checked = True Then
ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# and horario_saida is null "
Else
ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# "
End If
preencheListBox(lstNaEmpresa, "", "", ComandoSql, "RegVisitantes", 2)
End Sub
Private Sub lstNaEmpresa_Click(sender As Object, e As EventArgs) Handles lstNaEmpresa.Click
VisitanteNaEmpresa = True
ComandoSql = "select * from registros where registro_id = " & Val(Mid(lstNaEmpresa.SelectedItem, 1, 9)) & " "
If Trim(Mid(lstNaEmpresa.Text, 1, 9)) <> "" And Trim(Mid(lstNaEmpresa.Text, 1, 1)) <> "_" Then
preencheTxtBox(ComandoSql, "consRegistro", "", 2)
frmRegistro.ShowDialog()
End If
End Sub
Private Sub btnExcluir2_Click(sender As Object, e As EventArgs) Handles btnExcluir2.Click
grpJustificativa.Visible = True
End Sub
Private Sub btnJustExcluir_Click(sender As Object, e As EventArgs) Handles btnJustExcluir.Click
Dim codigoreg As Integer = 0
codigoreg = Val(Mid(lstNaEmpresa.Text, 1, 6))
If codigoreg <> 0 Then
ComandoSql = "INSERT INTO logregistros SELECT * FROM registros WHERE registros.registro_id = " & codigoreg & ""
executaSql(ComandoSql)
ComandoSql = "update logregistros set justificativa = '" & Trim(txtJustificativa.Text) & "' WHERE registro_id = " & codigoreg & ""
executaSql(ComandoSql)
ComandoSql = "delete * from registros where registro_id = " & codigoreg & ""
executaSql(ComandoSql)
MsgBox("OK, excluído!!", MsgBoxStyle.Information, "Registro Diário")
txtJustificativa.Text = ""
grpJustificativa.Visible = False
Call atualizaConteudo()
End If
End SubPublic Class frmRegistroDiario
Dim txtLike As String = String.Empty
Dim CODIGOVIS As Integer
Dim NOMEVIS As String
Dim EMPRESAVIS As String
Dim ProxRegistro As String
Private Sub frmRegistroDiario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
mskData.Text = Date.Now
rdbNaEmpresa.Checked = True
VisitanteNaEmpresa = False
grpJustificativa.Visible = False
'DefineToolTip()
'tooltip1.ShowAlways = True
'tooltip1.SetToolTip(Me.btnConsulta1, "C O N S U L T A R")
'tooltip1.SetToolTip(Me.btnConsulta2, "C O N S U L T A R")
'tooltip1.SetToolTip(Me.btnNovo, "N O V O VISITANTE")
'tooltip1.SetToolTip(Me.btnSair, "S A I R")
End Sub
Private Sub btnConsulta1_Click(sender As Object, e As EventArgs) Handles btnConsulta1.Click
lstNomes.Items.Clear()
If Len(txtNome.Text) > 0 Then
ComandoSql = "Select * from visitante where nome_visitante like '%" & txtNome.Text & "%' order by nome_visitante "
preencheListBox(lstNomes, "", "", ComandoSql, "PesqLike", 1)
End If
End SubPrivate Sub btnSair_Click(sender As Object, e As EventArgs) Handles btnSair.Click
lstNaEmpresa.Dispose()
lstNomes.Dispose()
VisitanteNaEmpresa = False
Me.Close()
Me.Dispose()
End Sub
Private Sub lstNomes_Click(sender As Object, e As EventArgs) Handles lstNomes.Click
If Mid(lstNomes.Text, 1, 4) <> "" Then
CODIGOVIS = Val(Mid(lstNomes.Text, 1, 4))
NOMEVIS = Trim(Mid(lstNomes.Text, 8, 19))
EMPRESAVIS = Trim(Mid(lstNomes.Text, 31, 30))
frmRegistro.codigoVisitante = CODIGOVIS
frmRegistro.txtNome.Text = NOMEVIS
frmRegistro.txtEmpresa.Text = EMPRESAVIS
lstNomes.Refresh()
frmRegistro.ShowDialog()
End If
End Sub
Private Sub btnNovo_Click(sender As Object, e As EventArgs) Handles btnNovo.Click
Call frmVisitantes.ShowDialog()
End Sub
Private Sub btnConsulta2_Click(sender As Object, e As EventArgs) Handles btnConsulta2.Click
atualizaConteudo()
End Sub
Public Sub atualizaConteudo()
lstNaEmpresa.Items.Clear()
If rdbNaEmpresa.Checked = True Then
ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# and horario_saida is null "
Else
ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# "
End If
preencheListBox(lstNaEmpresa, "", "", ComandoSql, "RegVisitantes", 2)
End SubPrivate Sub lstNaEmpresa_Click(sender As Object, e As EventArgs) Handles lstNaEmpresa.Click
VisitanteNaEmpresa = True
ComandoSql = "select * from registros where registro_id = " & Val(Mid(lstNaEmpresa.SelectedItem, 1, 9)) & " "
If Trim(Mid(lstNaEmpresa.Text, 1, 9)) <> "" And Trim(Mid(lstNaEmpresa.Text, 1, 1)) <> "_" Then
preencheTxtBox(ComandoSql, "consRegistro", "", 2)
frmRegistro.ShowDialog()
End If
End SubPrivate Sub btnExcluir2_Click(sender As Object, e As EventArgs) Handles btnExcluir2.Click
grpJustificativa.Visible = True
End Sub
Private Sub btnJustExcluir_Click(sender As Object, e As EventArgs) Handles btnJustExcluir.Click
Dim codigoreg As Integer = 0
codigoreg = Val(Mid(lstNaEmpresa.Text, 1, 6))
If codigoreg <> 0 Then
ComandoSql = "INSERT INTO logregistros SELECT * FROM registros WHERE registros.registro_id = " & codigoreg & ""
executaSql(ComandoSql)
ComandoSql = "update logregistros set justificativa = '" & Trim(txtJustificativa.Text) & "' WHERE registro_id = " & codigoreg & ""
executaSql(ComandoSql)
ComandoSql = "delete * from registros where registro_id = " & codigoreg & ""
executaSql(ComandoSql)
MsgBox("OK, excluído!!", MsgBoxStyle.Information, "Registro Diário")
txtJustificativa.Text = ""
grpJustificativa.Visible = False
Call atualizaConteudo()
End If
End SubEnd Class
olá itlpps,
Ajustei o código para visualização.
De olho nao tenho certeza, mas e necessario o
Me.Dispose()
Logo apos o
Me.Close()
?
Nao consigo ver nada obvio para o erro, tente remover o dispose apos o close.
Boa tarde, Consegui resolver a questão. Não era nada do que eu imaginava e até foi simples demais. Eram as imagens incluídas nos botões feitas de uma forma não correta no meu caso. A imagem 1 no meu caso está errada, a 2 é a correta.
Nao entendi o que esta tentando fazer. O erro esta em outro software ?