none
problema con error depurador JIT RRS feed

  • Pregunta

  • hola como estan.,. tengo un problema con una compilacion realizada en visual basic 2010.. y cuando realizo la compilacion e instalo en otra computadora,, cuando cierro un determinado formulario me tira este error.. 

    Consulte el final de este mensaje para obtener más detalles sobre cómo invocar a la depuración 
    Just-In-Time (JIT) en lugar de a este cuadro de diálogo.

    ************** Texto de la excepción **************
    System.InvalidOperationException: Colección modificada; puede que no se ejecute la operación de enumeración.
    en System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
    en System.Collections.Generic.List`1.Enumerator.MoveNextRare()
    en System.Collections.Generic.List`1.Enumerator.MoveNext()
    en Microsoft.VisualBasic.PowerPacks.ShapeCollection.Dispose(Boolean disposing)
    en Microsoft.VisualBasic.PowerPacks.ShapeContainer.Dispose(Boolean disposing)
    en System.ComponentModel.Component.Dispose()
    en System.Windows.Forms.Control.Dispose(Boolean disposing)
    en System.Windows.Forms.Form.Dispose(Boolean disposing)
    en MH.Ticket2.Dispose(Boolean disposing) en C:\Users\JonatanDaniel\Desktop\Proyecto Facultad\Proyecto Definitivo\MH\MH\Formularios\Ticket2.Designer.vb:línea 13
    en System.ComponentModel.Component.Dispose()
    en System.Windows.Forms.Form.WmClose(Message& m)
    en System.Windows.Forms.Form.WndProc(Message& m)
    en System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
    en System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    en System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


    ************** Ensamblados cargados **************
    mscorlib
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
    ----------------------------------------
    MH
    Versión del ensamblado: 1.0.0.0
    Versión Win32: 1.0.0.0
    Código base: file:///C:/Sistema%20de%20Gesti%C3%B3n%20-%20Soderia%20Michelini%20S.R.L/MH/MH/bin/Debug/MH.exe
    ----------------------------------------
    Microsoft.VisualBasic
    Versión del ensamblado: 10.0.0.0
    Versión Win32: 12.0.51209.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
    ----------------------------------------
    System
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
    ----------------------------------------
    System.Core
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
    ----------------------------------------
    System.Windows.Forms
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
    ----------------------------------------
    System.Drawing
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
    ----------------------------------------
    System.Runtime.Remoting
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
    ----------------------------------------
    System.Data
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll
    ----------------------------------------
    System.Transactions
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Transactions/v4.0_4.0.0.0__b77a5c561934e089/System.Transactions.dll
    ----------------------------------------
    System.EnterpriseServices
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.EnterpriseServices/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll
    ----------------------------------------
    System.Configuration
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
    ----------------------------------------
    System.Xml
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
    ----------------------------------------
    System.Windows.Forms.resources
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_es_b77a5c561934e089/System.Windows.Forms.resources.dll
    ----------------------------------------
    System.Numerics
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll
    ----------------------------------------
    mscorlib.resources
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_es_b77a5c561934e089/mscorlib.resources.dll
    ----------------------------------------
    Microsoft.Office.Interop.Excel
    Versión del ensamblado: 12.0.0.0
    Versión Win32: 12.0.4518.1014
    Código base: file:///C:/Windows/assembly/GAC/Microsoft.Office.Interop.Excel/12.0.0.0__71e9bce111e9429c/Microsoft.Office.Interop.Excel.dll
    ----------------------------------------
    office
    Versión del ensamblado: 12.0.0.0
    Versión Win32: 12.0.4518.1014
    Código base: file:///C:/Windows/assembly/GAC/office/12.0.0.0__71e9bce111e9429c/office.dll
    ----------------------------------------
    Microsoft.VisualBasic.PowerPacks.Vs
    Versión del ensamblado: 10.0.0.0
    Versión Win32: 10.0.20911.1
    Código base: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.PowerPacks.Vs/10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.PowerPacks.Vs.dll
    ----------------------------------------

    ************** Depuración JIT **************
    Para habilitar la depuración Just In Time (JIT), el archivo de configuración de esta
    aplicación o equipo (machine.config) debe tener el
    valor jitDebugging establecido en la sección system.windows.forms.
    La aplicación también se debe compilar con la depuración
    habilitada

    Por ejemplo:

    <configuration>
    <system.windows.forms jitDebugging="true" />
    </configuration>

    Cuando esté habilitada la depuración JIT, cualquier excepción no controlada
    se enviará al depurador JIT registrado en el equipo
    en lugar de controlarlo mediante el cuadro de diálogo.

    y no se que hacer investigue pero me volvio loco


    jonii

    lunes, 17 de julio de 2017 17:42

Todas las respuestas

  • Buenas,

    Seguramente, en el Ticket2.Designer.vb:línea 13 definas algun evento que falla, podrias pegarnos Ticket2.Designer.vb para verlo?

    Atte

    P.D: Esto deberías postearlo en el subforo de VB.net, este es de C++


    No olvides votar si mi comentario te ha ayudado y marcarlo como respuesta si ha sido la solución!


    lunes, 17 de julio de 2017 18:26
  • hola jorge! primero gracias por ayudarme.. te paso el codigo que tengo en ticket 2..  

    estas las tengo declarada en el modulo..

    Public dincaja As String = ""

    Public Total1 As Single

    Public Total2 As Single

    Public Class Ticket2

        'CARGA LOS CAMPOS CON LOS DATOS CORRESPONDIENTES Y REALIZO EL CALCULO.
        Private Sub Ticket2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            txtfecha.Text = fecha55
            txtdebe.Text = Format(Val(Total1), "$ #,##0.00")
            txthaber.Text = Format(Val(Total2), "$ #,##0.00")

            Dim var As String = (Val(Total1) - Val(Total2))

            If Val(var) < 0 Then
                var = Val(var) * -1 --------------esta es la linea 13.. no estoy seguro si es correcto la forma que tengo de hacerlo pero por lo menos anda..
            Else
                var = var
            End If

            txtsubtotal.Text = Format((Val(var)), "$ #,##0.00")

            txtdinerocaja.Text = Format(Val(dincaja), "$ #,##0.00")

            Dim var1 As String = (Val(var) - Val(dincaja))

            If var1 < 0 Then
                var1 = var1 * -1
            Else
                var1 = var1
            End If

            txtdiferencia.Text = Format(Val(var1), "$ #,##0.00")


        End Sub
    ---------------------------------------------------------------------------------------------
        'ME ABRE LA VISTA PREVIA DE LA IMPRESION DEL FORMULARIO.
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            PrintForm2.Print()
        End Sub

    End Class

    si tenes algun consejo de como hacerlo .. porque errores cuando lo corro en mi pc no me tira y me marca todo bien..



    jonii

    martes, 18 de julio de 2017 0:32
  • hola como estan.,. tengo un problema con una compilacion realizada en visual basic 2010.. y cuando realizo la compilacion e instalo en otra computadora,, cuando cierro un determinado formulario me tira este error.. 

    Consulte el final de este mensaje para obtener más detalles sobre cómo invocar a la depuración 
    Just-In-Time (JIT) en lugar de a este cuadro de diálogo.

    ************** Texto de la excepción **************
    System.InvalidOperationException: Colección modificada; puede que no se ejecute la operación de enumeración.
    en System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
    en System.Collections.Generic.List`1.Enumerator.MoveNextRare()
    en System.Collections.Generic.List`1.Enumerator.MoveNext()
    en Microsoft.VisualBasic.PowerPacks.ShapeCollection.Dispose(Boolean disposing)
    en Microsoft.VisualBasic.PowerPacks.ShapeContainer.Dispose(Boolean disposing)
    en System.ComponentModel.Component.Dispose()
    en System.Windows.Forms.Control.Dispose(Boolean disposing)
    en System.Windows.Forms.Form.Dispose(Boolean disposing)
    en MH.Ticket2.Dispose(Boolean disposing) en C:\Users\JonatanDaniel\Desktop\Proyecto Facultad\Proyecto Definitivo\MH\MH\Formularios\Ticket2.Designer.vb:línea 13
    en System.ComponentModel.Component.Dispose()
    en System.Windows.Forms.Form.WmClose(Message& m)
    en System.Windows.Forms.Form.WndProc(Message& m)
    en System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
    en System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    en System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


    ************** Ensamblados cargados **************
    mscorlib
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
    ----------------------------------------
    MH
    Versión del ensamblado: 1.0.0.0
    Versión Win32: 1.0.0.0
    Código base: file:///C:/Sistema%20de%20Gesti%C3%B3n%20-%20Soderia%20Michelini%20S.R.L/MH/MH/bin/Debug/MH.exe
    ----------------------------------------
    Microsoft.VisualBasic
    Versión del ensamblado: 10.0.0.0
    Versión Win32: 12.0.51209.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
    ----------------------------------------
    System
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
    ----------------------------------------
    System.Core
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
    ----------------------------------------
    System.Windows.Forms
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
    ----------------------------------------
    System.Drawing
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
    ----------------------------------------
    System.Runtime.Remoting
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
    ----------------------------------------
    System.Data
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll
    ----------------------------------------
    System.Transactions
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Transactions/v4.0_4.0.0.0__b77a5c561934e089/System.Transactions.dll
    ----------------------------------------
    System.EnterpriseServices
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.EnterpriseServices/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll
    ----------------------------------------
    System.Configuration
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
    ----------------------------------------
    System.Xml
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
    ----------------------------------------
    System.Windows.Forms.resources
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_es_b77a5c561934e089/System.Windows.Forms.resources.dll
    ----------------------------------------
    System.Numerics
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll
    ----------------------------------------
    mscorlib.resources
    Versión del ensamblado: 4.0.0.0
    Versión Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Código base: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_es_b77a5c561934e089/mscorlib.resources.dll
    ----------------------------------------
    Microsoft.Office.Interop.Excel
    Versión del ensamblado: 12.0.0.0
    Versión Win32: 12.0.4518.1014
    Código base: file:///C:/Windows/assembly/GAC/Microsoft.Office.Interop.Excel/12.0.0.0__71e9bce111e9429c/Microsoft.Office.Interop.Excel.dll
    ----------------------------------------
    office
    Versión del ensamblado: 12.0.0.0
    Versión Win32: 12.0.4518.1014
    Código base: file:///C:/Windows/assembly/GAC/office/12.0.0.0__71e9bce111e9429c/office.dll
    ----------------------------------------
    Microsoft.VisualBasic.PowerPacks.Vs
    Versión del ensamblado: 10.0.0.0
    Versión Win32: 10.0.20911.1
    Código base: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.PowerPacks.Vs/10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.PowerPacks.Vs.dll
    ----------------------------------------

    ************** Depuración JIT **************
    Para habilitar la depuración Just In Time (JIT), el archivo de configuración de esta
    aplicación o equipo (machine.config) debe tener el
    valor jitDebugging establecido en la sección system.windows.forms.
    La aplicación también se debe compilar con la depuración
    habilitada

    Por ejemplo:

    <configuration>
    <system.windows.forms jitDebugging="true" />
    </configuration>

    Cuando esté habilitada la depuración JIT, cualquier excepción no controlada
    se enviará al depurador JIT registrado en el equipo
    en lugar de controlarlo mediante el cuadro de diálogo.

    y dentro del formulario de ticket2 tengo el siguiente codigo:

    estas las tengo declarada en el modulo..

    Public dincaja As String = ""

    Public Total1 As Single

    Public Total2 As Single

    Public Class Ticket2

        'CARGA LOS CAMPOS CON LOS DATOS CORRESPONDIENTES Y REALIZO EL CALCULO.
        Private Sub Ticket2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            txtfecha.Text = fecha55
            txtdebe.Text = Format(Val(Total1), "$ #,##0.00")
            txthaber.Text = Format(Val(Total2), "$ #,##0.00")

            Dim var As String = (Val(Total1) - Val(Total2))

            If Val(var) < 0 Then
                var = Val(var) * -1 --------------esta es la linea 13.. no estoy seguro si es correcto la forma que tengo de hacerlo pero por lo menos anda..
            Else
                var = var
            End If

            txtsubtotal.Text = Format((Val(var)), "$ #,##0.00")

            txtdinerocaja.Text = Format(Val(dincaja), "$ #,##0.00")

            Dim var1 As String = (Val(var) - Val(dincaja))

            If var1 < 0 Then
                var1 = var1 * -1
            Else
                var1 = var1
            End If

            txtdiferencia.Text = Format(Val(var1), "$ #,##0.00")


        End Sub
    ---------------------------------------------------------------------------------------------
        'ME ABRE LA VISTA PREVIA DE LA IMPRESION DEL FORMULARIO.
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            PrintForm2.Print()
        End Sub

    End Class


    jonii

    martes, 18 de julio de 2017 0:34
  • Aparentemente un error de plataforma de ensamblado, ve a compilació y coloca AnyCPU o verifica si el PC cliente corre bajo la misma plataforma, de no ser así deberas compilar para ambos casos (x86, x64)
    martes, 18 de julio de 2017 2:26
  • Amigo estás repitiendo la consulta.

    https://social.msdn.microsoft.com/Forums/es-ES/399f02c6-363d-4996-9326-cff2e970027d/problema-con-error-depurador-jit?forum=vcppdotnetes

    martes, 18 de julio de 2017 2:39
  • Buenas, 

    Ese es el código de ticket2.vb,  pero donde te da fallo es en ticket2.designer. vb,  ese segundo es el que necesito. 

    Atte


    No olvides votar si mi comentario te ha ayudado y marcarlo como respuesta si ha sido la solución!

    martes, 18 de julio de 2017 4:18
  • tenes razón! aca esta el codigo del designer.vb.. no entiendo mucho mucho la parte del error

    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
    Partial Class Ticket2
        Inherits System.Windows.Forms.Form

        'Form reemplaza a Dispose para limpiar la lista de componentes.
        <System.Diagnostics.DebuggerNonUserCode()> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try
                If disposing AndAlso components IsNot Nothing Then
                    components.Dispose()
                End If
            Finally
                MyBase.Dispose(disposing)                                            --------------y esta es la linea 13 mucho no entiendo a que se refiere...
            End Try
        End Sub

        'Requerido por el Diseñador de Windows Forms
        Private components As System.ComponentModel.IContainer

        'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
        'Se puede modificar usando el Diseñador de Windows Forms.  
        'No lo modifique con el editor de código.
        <System.Diagnostics.DebuggerStepThrough()> _
        Private Sub InitializeComponent()
            Me.components = New System.ComponentModel.Container()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Ticket2))
            Me.Button1 = New System.Windows.Forms.Button()
            Me.txtdiferencia = New System.Windows.Forms.TextBox()
            Me.lbldiferencia = New System.Windows.Forms.Label()
            Me.txtsubtotal = New System.Windows.Forms.TextBox()
            Me.lblsubtotal = New System.Windows.Forms.Label()
            Me.txtdinerocaja = New System.Windows.Forms.TextBox()
            Me.lbldebe = New System.Windows.Forms.Label()
            Me.txtdebe = New System.Windows.Forms.TextBox()
            Me.lblhaber = New System.Windows.Forms.Label()
            Me.txthaber = New System.Windows.Forms.TextBox()
            Me.lbldinerocaja = New System.Windows.Forms.Label()
            Me.txtfecha = New System.Windows.Forms.TextBox()
            Me.lblfecha = New System.Windows.Forms.Label()
            Me.LineShape3 = New Microsoft.VisualBasic.PowerPacks.LineShape()
            Me.ShapeContainer1 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer()
            Me.RectangleShape1 = New Microsoft.VisualBasic.PowerPacks.RectangleShape()
            Me.LineShape1 = New Microsoft.VisualBasic.PowerPacks.LineShape()
            Me.PrintForm2 = New Microsoft.VisualBasic.PowerPacks.Printing.PrintForm(Me.components)
            Me.SuspendLayout()
            '
            'Button1
            '
            Me.Button1.BackColor = System.Drawing.Color.DarkCyan
            Me.Button1.ForeColor = System.Drawing.SystemColors.ControlLightLight
            Me.Button1.Location = New System.Drawing.Point(225, 295)
            Me.Button1.Name = "Button1"
            Me.Button1.Size = New System.Drawing.Size(75, 23)
            Me.Button1.TabIndex = 37
            Me.Button1.Text = "&Imprimir"
            Me.Button1.UseVisualStyleBackColor = False
            '
            'txtdiferencia
            '
            Me.txtdiferencia.BackColor = System.Drawing.SystemColors.Info
            Me.txtdiferencia.Enabled = False
            Me.txtdiferencia.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.txtdiferencia.Location = New System.Drawing.Point(143, 247)
            Me.txtdiferencia.MaxLength = 25
            Me.txtdiferencia.Name = "txtdiferencia"
            Me.txtdiferencia.Size = New System.Drawing.Size(154, 20)
            Me.txtdiferencia.TabIndex = 58
            Me.txtdiferencia.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
            '
            'lbldiferencia
            '
            Me.lbldiferencia.AutoSize = True
            Me.lbldiferencia.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.lbldiferencia.Font = New System.Drawing.Font("Consolas", 8.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
            Me.lbldiferencia.Location = New System.Drawing.Point(6, 247)
            Me.lbldiferencia.Name = "lbldiferencia"
            Me.lbldiferencia.Size = New System.Drawing.Size(75, 15)
            Me.lbldiferencia.TabIndex = 59
            Me.lbldiferencia.Text = "Diferencia:"
            '
            'txtsubtotal
            '
            Me.txtsubtotal.BackColor = System.Drawing.SystemColors.Info
            Me.txtsubtotal.Enabled = False
            Me.txtsubtotal.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.txtsubtotal.Location = New System.Drawing.Point(143, 146)
            Me.txtsubtotal.MaxLength = 25
            Me.txtsubtotal.Name = "txtsubtotal"
            Me.txtsubtotal.Size = New System.Drawing.Size(154, 20)
            Me.txtsubtotal.TabIndex = 52
            Me.txtsubtotal.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
            '
            'lblsubtotal
            '
            Me.lblsubtotal.AutoSize = True
            Me.lblsubtotal.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.lblsubtotal.Font = New System.Drawing.Font("Consolas", 8.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
            Me.lblsubtotal.Location = New System.Drawing.Point(6, 149)
            Me.lblsubtotal.Name = "lblsubtotal"
            Me.lblsubtotal.Size = New System.Drawing.Size(63, 15)
            Me.lblsubtotal.TabIndex = 53
            Me.lblsubtotal.Text = "SubTotal:"
            '
            'txtdinerocaja
            '
            Me.txtdinerocaja.BackColor = System.Drawing.SystemColors.Window
            Me.txtdinerocaja.Enabled = False
            Me.txtdinerocaja.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.txtdinerocaja.Location = New System.Drawing.Point(143, 184)
            Me.txtdinerocaja.MaxLength = 25
            Me.txtdinerocaja.Name = "txtdinerocaja"
            Me.txtdinerocaja.Size = New System.Drawing.Size(154, 20)
            Me.txtdinerocaja.TabIndex = 46
            Me.txtdinerocaja.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
            '
            'lbldebe
            '
            Me.lbldebe.AutoSize = True
            Me.lbldebe.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.lbldebe.Font = New System.Drawing.Font("Consolas", 8.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
            Me.lbldebe.Location = New System.Drawing.Point(6, 82)
            Me.lbldebe.Name = "lbldebe"
            Me.lbldebe.Size = New System.Drawing.Size(99, 15)
            Me.lbldebe.TabIndex = 47
            Me.lbldebe.Text = "Columna ""DEBE"":"
            '
            'txtdebe
            '
            Me.txtdebe.BackColor = System.Drawing.SystemColors.Window
            Me.txtdebe.Enabled = False
            Me.txtdebe.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.txtdebe.Location = New System.Drawing.Point(143, 77)
            Me.txtdebe.MaxLength = 25
            Me.txtdebe.Name = "txtdebe"
            Me.txtdebe.Size = New System.Drawing.Size(154, 20)
            Me.txtdebe.TabIndex = 44
            Me.txtdebe.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
            '
            'lblhaber
            '
            Me.lblhaber.AutoSize = True
            Me.lblhaber.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.lblhaber.Font = New System.Drawing.Font("Consolas", 8.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
            Me.lblhaber.Location = New System.Drawing.Point(6, 118)
            Me.lblhaber.Name = "lblhaber"
            Me.lblhaber.Size = New System.Drawing.Size(105, 15)
            Me.lblhaber.TabIndex = 45
            Me.lblhaber.Text = "Columna ""HABER"":"
            '
            'txthaber
            '
            Me.txthaber.BackColor = System.Drawing.SystemColors.Window
            Me.txthaber.Enabled = False
            Me.txthaber.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.txthaber.Location = New System.Drawing.Point(143, 113)
            Me.txthaber.MaxLength = 25
            Me.txthaber.Name = "txthaber"
            Me.txthaber.Size = New System.Drawing.Size(154, 20)
            Me.txthaber.TabIndex = 42
            Me.txthaber.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
            '
            'lbldinerocaja
            '
            Me.lbldinerocaja.AutoSize = True
            Me.lbldinerocaja.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.lbldinerocaja.Font = New System.Drawing.Font("Consolas", 8.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
            Me.lbldinerocaja.Location = New System.Drawing.Point(6, 187)
            Me.lbldinerocaja.Name = "lbldinerocaja"
            Me.lbldinerocaja.Size = New System.Drawing.Size(99, 15)
            Me.lbldinerocaja.TabIndex = 43
            Me.lbldinerocaja.Text = "Dinero de Caja:"
            '
            'txtfecha
            '
            Me.txtfecha.BackColor = System.Drawing.SystemColors.Info
            Me.txtfecha.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txtfecha.Enabled = False
            Me.txtfecha.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            Me.txtfecha.Location = New System.Drawing.Point(58, 5)
            Me.txtfecha.MaxLength = 25
            Me.txtfecha.Name = "txtfecha"
            Me.txtfecha.Size = New System.Drawing.Size(208, 20)
            Me.txtfecha.TabIndex = 40
            Me.txtfecha.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
            '
            'lblfecha
            '
            Me.lblfecha.AutoSize = True
            Me.lblfecha.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.lblfecha.Font = New System.Drawing.Font("Consolas", 8.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle))
            Me.lblfecha.Location = New System.Drawing.Point(6, 7)
            Me.lblfecha.Name = "lblfecha"
            Me.lblfecha.Size = New System.Drawing.Size(45, 15)
            Me.lblfecha.TabIndex = 41
            Me.lblfecha.Text = "Fecha:"
            '
            'LineShape3
            '
            Me.LineShape3.Name = "LineShape3"
            Me.LineShape3.X1 = 5
            Me.LineShape3.X2 = 301
            Me.LineShape3.Y1 = 171
            Me.LineShape3.Y2 = 171
            '
            'ShapeContainer1
            '
            Me.ShapeContainer1.Location = New System.Drawing.Point(0, 0)
            Me.ShapeContainer1.Margin = New System.Windows.Forms.Padding(0)
            Me.ShapeContainer1.Name = "ShapeContainer1"
            Me.ShapeContainer1.Shapes.AddRange(New Microsoft.VisualBasic.PowerPacks.Shape() {Me.RectangleShape1, Me.LineShape1, Me.LineShape3})
            Me.ShapeContainer1.Size = New System.Drawing.Size(309, 326)
            Me.ShapeContainer1.TabIndex = 60
            Me.ShapeContainer1.TabStop = False
            '
            'RectangleShape1
            '
            Me.RectangleShape1.Location = New System.Drawing.Point(2, 224)
            Me.RectangleShape1.Name = "RectangleShape1"
            Me.RectangleShape1.Size = New System.Drawing.Size(301, 60)
            '
            'LineShape1
            '
            Me.LineShape1.Name = "LineShape1"
            Me.LineShape1.X1 = 6
            Me.LineShape1.X2 = 302
            Me.LineShape1.Y1 = 71
            Me.LineShape1.Y2 = 71
            '
            'PrintForm2
            '
            Me.PrintForm2.DocumentName = "document"
            Me.PrintForm2.Form = Me
            Me.PrintForm2.PrintAction = System.Drawing.Printing.PrintAction.PrintToPreview
            Me.PrintForm2.PrinterSettings = CType(resources.GetObject("PrintForm2.PrinterSettings"), System.Drawing.Printing.PrinterSettings)
            Me.PrintForm2.PrintFileName = Nothing
            '
            'Ticket2
            '
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(309, 326)
            Me.Controls.Add(Me.Button1)
            Me.Controls.Add(Me.txtdiferencia)
            Me.Controls.Add(Me.lbldiferencia)
            Me.Controls.Add(Me.txtsubtotal)
            Me.Controls.Add(Me.lblsubtotal)
            Me.Controls.Add(Me.txtdinerocaja)
            Me.Controls.Add(Me.lbldebe)
            Me.Controls.Add(Me.txtdebe)
            Me.Controls.Add(Me.lblhaber)
            Me.Controls.Add(Me.txthaber)
            Me.Controls.Add(Me.lbldinerocaja)
            Me.Controls.Add(Me.txtfecha)
            Me.Controls.Add(Me.lblfecha)
            Me.Controls.Add(Me.ShapeContainer1)
            Me.MaximizeBox = False
            Me.MinimizeBox = False
            Me.Name = "Ticket2"
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
            Me.Text = "**Formulario/Ticket Ingresos-Egresos**"
            Me.ResumeLayout(False)
            Me.PerformLayout()

        End Sub
        Friend WithEvents Button1 As System.Windows.Forms.Button
        Friend WithEvents txtdiferencia As System.Windows.Forms.TextBox
        Friend WithEvents lbldiferencia As System.Windows.Forms.Label
        Friend WithEvents txtsubtotal As System.Windows.Forms.TextBox
        Friend WithEvents lblsubtotal As System.Windows.Forms.Label
        Friend WithEvents txtdinerocaja As System.Windows.Forms.TextBox
        Friend WithEvents lbldebe As System.Windows.Forms.Label
        Friend WithEvents txtdebe As System.Windows.Forms.TextBox
        Friend WithEvents lblhaber As System.Windows.Forms.Label
        Friend WithEvents txthaber As System.Windows.Forms.TextBox
        Friend WithEvents lbldinerocaja As System.Windows.Forms.Label
        Friend WithEvents txtfecha As System.Windows.Forms.TextBox
        Friend WithEvents lblfecha As System.Windows.Forms.Label
        Friend WithEvents LineShape3 As Microsoft.VisualBasic.PowerPacks.LineShape
        Friend WithEvents ShapeContainer1 As Microsoft.VisualBasic.PowerPacks.ShapeContainer
        Friend WithEvents LineShape1 As Microsoft.VisualBasic.PowerPacks.LineShape
        Friend WithEvents RectangleShape1 As Microsoft.VisualBasic.PowerPacks.RectangleShape
        Friend WithEvents PrintForm2 As Microsoft.VisualBasic.PowerPacks.Printing.PrintForm
    End Class


    jonii

    martes, 18 de julio de 2017 15:32
  • encontre esto en internet pero no entiendo mucho :(((

    Dispose() pretende ser un punto de entrada para el acceso público a la liberación de un objeto y sirve para asegurar que al método Dispose(Boolean) se le pasa TRUE. Sólo se debería pasar FALSE cuando el motor de ejecución o el método Finalize llaman al método Dispose(Boolean). Cuando se pasa FALSE, sólo se liberarán los recursos no administrados. Cuando se pasa TRUE, se liberan tanto los recursos administrados
    como 
    los no administrados.

    Para corregir este problema, basta con sobrecargar el método Dispose(Boolean) en lugar de Dispose() y comprobar que se hace una llamada al método Dispose(Boolean) de la clase base y que se le pasa TRUE.


    jonii

    martes, 18 de julio de 2017 15:45
  • Eso me cuadra más,  cuando cierras un formulario se llama al dispone del formulario,  y si ahí es donde falla,  me cuadra tu problema,  ahora voy a analizar lo que has puesto a ver si puedo darte solución. 

    Atte


    No olvides votar si mi comentario te ha ayudado y marcarlo como respuesta si ha sido la solución!

    martes, 18 de julio de 2017 16:39
  • si es cuando cierro este formulario.. por lo que entiendo se limpian los componentes que inicie al abrirlo a travez de este metodo .. bueno muchas gracias yo estoy intentando igual.

    jonii

    martes, 18 de julio de 2017 16:47
  • probe de cambiar esto pero tampoco anda en ninguna opcion..

    mybase.dispose()

    mybase.dispose(true)

    mybase.dispose(disposing)


    jonii

    martes, 18 de julio de 2017 17:05
  • Vale, ya veo el problema, usas powerpacks, la verdad que esa librería no es nada robusta...

    Prueba a cambiar esto:

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)                                            
        End Try
    End Sub

    por esto:

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing Then DisposeShapeContainer(ShapeContainer1)
            If disposing AndAlso components IsNot Nothing Then
                    components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub
    
    Protected Sub DisposeShapeContainer(ByVal AShapeContainer As Microsoft.VisualBasic.PowerPacks.ShapeContainer)
        If AShapeContainer IsNot Nothing Then
            If AShapeContainer.Shapes IsNot Nothing Then
                Dim tshapes As New Generic.List(Of Microsoft.VisualBasic.PowerPacks.Shape)
                For Each tshape As Microsoft.VisualBasic.PowerPacks.Shape In AShapeContainer.Shapes
                    tshapes.Add(tshape)
                Next
                AShapeContainer.Shapes.Clear()
                AShapeContainer.Shapes.Dispose()
                For Each tshape As Microsoft.VisualBasic.PowerPacks.Shape In tshapes
                    tshape.Dispose()
                Next
            End If
            AShapeContainer.Dispose()
        End If
    End Sub

    A ver, no es la manera más limpia de hacerlo, porque se supone que la librería debería ser capaz de disposearse sola si lo han implementado bien, pero como te digo, no es una maravilla de librería por lo que he podido leer.

    También decirte que hagas una copia antes de cambiar los datos, por si acaso. Estos cambios tienes que hacerlos en Ticket2.designer.vb

    Nos comentas si te funciona

    Atte


    No olvides votar si mi comentario te ha ayudado y marcarlo como respuesta si ha sido la solución!


    martes, 18 de julio de 2017 17:20
  • HOLA BUENOS DIAS JORGE! TE CUENTO QUE NO FUNCIONO! 

    AHORA VOY A PROBAR DE SACARLE EL PROCESO DONDE EL POWER PACK ES UTILIZADO PORQUE ESTOY POR RENDIR UNA MATERIA NADA MAS,,. NO QUIERO COMPLICARME.. NO ES OBLIGACION DE USARLO TAMPOCO YO LO USO PARA IMPRIMIR UNA IMAGEN DEL FORMULARIO.. Y BUSCANDO EN INTERNET ENCONTRE ESTE RECURSO PERO SI SABES DE ALGUN OTRO QUE ANDA MEJOR, POR FAVOR AVISAME ASI LO APLICO.

    PARA NO ESCRIBIRTE OTRO MJS EDITO ESTE.. Y TE CUENTO QUE EN DOS FORMULARIO UTILIZABA EL POWER PACKS EN DONDE USE LINEAS, UN CUADRO Y TAMBIEN COMO PUSE ARRIBA LA FUNCION PARA IMPRIMIR.. LO QUE HICE FUE SACARLE LAS FUNCIONES ESAS Y ANDA BIEN.. LO DEJARE ASI HASTA QUE ENCUENTRE OTRA SOLUCION,. MUCHAS GRACIAS POR TU AYUDA COMPAÑERO SALUDOS DESDE ARGENTINA . SANTA FE.


    jonii

    miércoles, 19 de julio de 2017 17:24