Mensajes

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 ?

Código (vbnet) [Seleccionar] Expandir

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.

Código (vbnet) [Seleccionar] Expandir

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 :

Código (vbnet) [Seleccionar] Expandir

Me.Refresh()

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

Código (vbnet) [Seleccionar] Expandir

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 ?  

Código (vbnet) [Seleccionar] Expandir

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

[Result2255]

Wow, eso esta raro, debería salir. ¿Podrías mostrar un poco más de código?, por ejemplo: ¿que es Result2255 y que hace Count?

Pero a simple vista, chequea que Label1, sea de hecho el Name de la Label a la cual le quieres asignar el nombre.

? que es Result2255 y que hace Count ?

Result2255 es la variable que contiene los datos y count cuenta esos datos y los cuenta bien ya que lo comprobé manualmente, yo asigno un lebel al formulario y los nombres están correctos

pero me muestra la cuenta en cualquier parte del formulario y no dentro del lebel ???


luis

estoy tratando de mostrar esto en un label pero no me sale, donde lo ponga me sale
dentro del formulario (en cualquier lado)  menos en el label ?

Código (vbnet) [Seleccionar] Expandir

 Label1.Text = Result2255.Count.ToString()

Luis

Pos eso , puedo hacer que un botón este desabilitado hasta que la tabulacion llegue por orden de entrada.pero lo que quiero es que este boton me ejecute una sola ves y quede desabilitado hasta el reinicio del programa

luis

Gracias me sirvio

Código (vbnet) [Seleccionar] Expandir

  Button1.Enabled = False

Luis

Pos eso , puedo hacer que un botón este desabilitado hasta que la tabulacion llegue por orden de entrada.pero lo que quiero es que este boton me ejecute una sola ves y quede desabilitado hasta el reinicio del programa

luis

Código (vbnet) [Seleccionar] Expandir

Process.Start(rutaFichero)

Perfecto    yo habría escrito mil lineas a pie jejejje

gracias elektro
Luis