Bueno me autorespondo    por los momentos lo que quitado con un programa de desistalar programas que no se quitan por la via normal,hasta ahora lo he eliminado

el programa se llama  IObitUnistaller este lo elimina y rastrea todos los archivos asociados


Luis

Tengo dias haciendo de todo para eliminar este virus pero no daoy con nada he probado de todo


gracias
Luis

 A los maestros de esta sección del foro

A quien se le atribuye esta frase ? ojo es de mas de 20 años no valen los copiones

    " Que tu sabiduría no sea motivo de humillación para otros "

Luis

Bueno lo he puesto de esta forma y medio va

 Private Sub LimpiarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarTodoToolStripMenuItem.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If
 
            If (TypeOf obj Is Label) 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()
            ListBox4.Items.Clear()
            ListBox5.Items.Clear()
            ListBox6.Items.Clear()
 
        Next 

Solamente que al borrar tambien me borra algunos textos que no deberia de borrar ya que son fijos ,con los listbox no tengo problemas ya que solo pongo los que me interezan borrar, ahora con los otros no se como descriminarlos

luis

Si vale eso ya le he visto 

 If (TypeOf obj Is Label) Then
    obj.Text = ""
End If 

lo que quiero es borrar con un solo boton todo junto texboses y label  ;(

Luis

Antes de preguntar he voltiado el foro y si la respuesta esta, pues no la encuentro, digo esto porque seguro es de lo mas tonto a preguntar

tengo este boton que me limpia los texboses pero quiero que tambien me borre los label ?

 Private Sub LimpiarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarTodoToolStripMenuItem.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()
            ListBox4.Items.Clear()
            ListBox5.Items.Clear()
            ListBox6.Items.Clear()
        Next

luis

Bueno otra ves con mis rollos de combinaciones tengo este codigo que me hace estas combinaciones y mi idea es como hacer que solo aparescan combinaciones con dos números de cada subrango .los números a combinar no son fijos y varian de cantidades ( entre 20 y 80 numeros) dependiendo de otra funcion.


los subrangos serian:
01 al 09
10 al 19
20 al 29
30 al 39
40 al 49
50 al 59
60 al 69
70 al 79
80 al 89
90 al 99


Ahora este código me los combina de esta forma

01, 02, 05, 07, 08, 15, 17, 18
01, 02, 05, 07, 08, 15, 17, 45
01, 02, 05, 07, 08, 12, 15, 17
01, 02, 05, 07, 08, 15, 17, 22
01, 02, 05, 07, 08, 15, 17, 23
01, 02, 05, 07, 08, 15, 17, 27
01, 02, 05, 07, 08, 15, 17, 28
01, 02, 05, 07, 08, 15, 17, 33
01, 02, 05, 07, 08, 15, 17, 34


Pero los necesito de esta forma

01 05 10 15 20 25 35 38
07 09 11 16 24 26 70 78
10 19 35 38 45 49 80 88

como verán por cada combinación solo hay dos de cada subrango y haci llenar todas las combinaciones posibles con los números que contiene la variable.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
        Dim combinations As New List(Of List(Of Integer))
        Dim length As Integer = 7
        Dim skipStart As Integer = 0
        Do Until skipStart = (constantValues.Count - length)
 
            Dim values As List(Of Integer) = constantValues.GetRange(skipStart, length)
            Dim count As Integer = 0
 
            Do Until count = (constantValues.Count - length - skipStart)
 
                Dim list As List(Of Integer) = values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToList
                list.Sort()
                combinations.Add(list)
 
                '  Debug.WriteLine(String.Join(", ", values.Concat(constantValues.Skip(skipStart + length + count).Take(1)).ToArray))
 
                count += 1
 
            Loop ' count = (constantValues.Count - length)
 
            skipStart += 1
 
 
        Loop ' skipStart = (constantValues.Count - length)
        combinations.RemoveAll(Function(list As List(Of Integer)) list.First = 0)
 
        combinations.ForEach(Sub(combination As List(Of Integer))
                                 ListBox2.Items.Add(String.Join(", ", From value As Integer In combination
                                                                      Select If(value.ToString.Length = 1I,
                                                                                value.ToString.Insert(0I, "0"c),
                                                                                value.ToString)))
 
                                '  Label11.Text = combinations.Count.ToString()
 
                             End Sub)
 
 
       '  Button4.Enabled = False
 
    End Sub  

saludos
Luis

Bien el problema  creo haberlo resuelto con :

 Me.Refresh() 

ya que como dice Elektro estaba cerrando bien el Form ya que es  unico

 Me.Close() 

Luis

Hola

Tengo esto para cerrar el programa ,pero recién me doy cuenta que algunas variables no se liberan ya que cuando lo vuelvo a ejecutar me suma los anteriores datos.cuando debería ser de cero,

que le faltaria a esto para liberar todo ?  

Private Sub CerrarProgramaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarProgramaToolStripMenuItem.Click
        If MessageBox.Show("Esta seguro que desea Cerrar la aplicacion", "Cerrar ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 
            Me.Close()
 
        End If 

Luis

Solucionado no me habia dado cuenta que en ves de un punto tenia una coma jejj
eso es lo malo de tener mas de 50 y pico

gracias por vuestra ayuda


Luis