Limpiar programa

[luis456]

Hola de nuevo por estos lares se que mi amigo Elecktro se preguntaria por mi jejje

Bueno os cuento a medida que avanzo con mas variables en mi programa me surge un problema  si hago las primeras operaciones me salen las cuentas bien,pero la siguiente ves que vuelvo a calcular me encuentro que las cuentas son otras diferentes yo creo que aunque uso un codigo me quedan todas las variables cargadas con el primer calculo y solo borro son los texboxes, esto se corrige cuando cierro el editor y vuelvo a abrir el programa
no se como limpiar las variables sin tener que cerrar todo y empezar de nuevo ;(

Código (vbnet) [Seleccionar] Expandir

 Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       For Each obj As Control In Me.Controls
           If (TypeOf obj Is TextBox) Then
               obj.Text = ""
           End If
           If (TypeOf obj Is GroupBox) Then
               For Each caja As Control In obj.Controls
                   If (TypeOf caja Is TextBox) Then
                       caja.Text = ""
                   End If
               Next
           End If
           ListBox1.Items.Clear()
           ListBox2.Items.Clear()
           ListBox3.Items.Clear()
           ListBox7.Items.Clear()

       Next
   End Sub


Luis

[Eleкtro]

Es lo que ocurre cuando tienes 100 membros en un mismo código con nombres casi identicos, te lo he dicho mil veces, tanto "resultsss" es un completo lio :-/

Tienes que hacerlo cómo lo estás haciendo, solo que debes fijarte mejor para añadir los controles que falten ya que supuestamente te estás olvidando de limpiar algún control, y por si acaso te diría que añadieses también los objetos públicos que hayas inicializado fuera de los Subs para resetear sus valores.

Ejemplo:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Button2.Click

       Me.CleanUp()

   End Sub

   Private Sub CleanUp()

       ' Tus famosos results y otras variables públicas, cómo se llamen:
       Me.Resultss1 = Nothing
       Me.Resultss2 = Nothing
       Me.Resultss3 = Nothing
       Me.VariableInteger = 0
       'etc...

       ' Tus controles:
       For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
           tb.Clear()
       Next tb
       For Each gb As GroupBox In Me.Controls.OfType(Of GroupBox)()
           For Each tb As TextBox In gb.Controls
               tb.Clear()
           Next
       Next gb
       Me.ListBox1.Items.Clear()
       Me.ListBox2.Items.Clear()
       Me.ListBox3.Items.Clear()
       Me.ListBox7.Items.Clear()

   End Sub

Poco más se puede hacer por ayudarte en eso, debes revisarlo tú

[luis456]

Es lo que ocurre cuando tienes 100 membros en un mismo código con nombres casi identicos, te lo he dicho mil veces, tanto "resultsss" es un completo lio :-/

Tienes que hacerlo cómo lo estás haciendo, solo que debes fijarte mejor para añadir los controles que falten ya que supuestamente te estás olvidando de limpiar algún control, y por si acaso te diría que añadieses también los objetos públicos que hayas inicializado fuera de los Subs para resetear sus valores.

Ejemplo:

Código (vbnet) [Seleccionar] Expandir

   Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Button2.Click

       Me.CleanUp()

   End Sub

   Private Sub CleanUp()

       ' Tus famosos results y otras variables públicas, cómo se llamen:
       Me.Resultss1 = Nothing
       Me.Resultss2 = Nothing
       Me.Resultss3 = Nothing
       Me.VariableInteger = 0
       'etc...

       ' Tus controles:
       For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
           tb.Clear()
       Next tb
       For Each gb As GroupBox In Me.Controls.OfType(Of GroupBox)()
           For Each tb As TextBox In gb.Controls
               tb.Clear()
           Next
       Next gb
       Me.ListBox1.Items.Clear()
       Me.ListBox2.Items.Clear()
       Me.ListBox3.Items.Clear()
       Me.ListBox7.Items.Clear()

   End Sub

Poco más se puede hacer por ayudarte en eso, debes revisarlo tú

Muchas veces temo preguntar, por los regaños tuyos

gracias elektro

Luis

[luis456]

Ostias     me pateo el ordenador jejejj , es broma con los controles no hay problemas pero con las variables me sale este error


"resultss3' no es un miembro de 'WindowsApplication1.Form1'.

Npi

Luis

[Eleкtro]

"resultss3' no es un miembro de 'WindowsApplication1.Form1'.

Por qué resultss3 no es pública, es un miembro inaccesible ya que la declaras DENTRO de un Sub y su tiempo de vida es solo ese.

Resetea las que declares FUERA de los Subs.

Saludos!

[luis456]

Por qué resultss3 no es pública, es un miembro inaccesible ya que la declaras DENTRO de un Sub y su tiempo de vida es solo ese.

Resetea las que declares FUERA de los Subs.

Saludos!

Perfecto profesor otra cosa que aprendi con esta programacion gracias a ti

hasta otra

Luis