Mensajes

Hola amigos, una vez mas solicito su ayuda, tengo un listbox de la siguiente manera:

manzana [1]
naranja [1]
plátano [2]
sandia [2]
melón [1]
durazno [2]
guinda [1]

y necesito obtener el valor de cuantos [1] y cuantos [2] hay en la lista.
¿Se puede hacer de alguna manera?
Gracias amigos 

[MOD: No hacer doble post. Usa el botón modificar.]

Hola amigos, hace rato que no habría un nuevo hilo, he aprendido bastante pero siempre hay cosas por aprender, acudo a ustedes por que tengo el siguiente dilema:

Logre ordenar algunos datos en un flexgrid, funciona bastante bien salvo con las fechas, solo las ordena tomando el valor del día, que es el primer valor (03/10/2017). para solucionarlo cree otra columna en la cual están las fechas con el formato YYYYMMDD, (20171003) y de esa forma ordena la columna perfectamente.

El problema es que para ordenar tengo que presionar la columna que agregue al final que tiene el formato "YYYYMMDD"  y la idea es que cuando presione la columna de las fechas normales se ordene correctamente desde las mas antiguas hasta las mas reciente.

Al presionar la ultima columna ordena las fechas correctamente y la idea es que las ordene correctamente al presionar la columna "FEva"

¿Qué me sugieren ustedes?
Muchas gracias  

Al menos alguien me podría decir como llamo el evento click de una columna (x) a través de un botón???

MOD: No hacer doble post. Usa el botón modificar.

a ver si te sirve esto, está en VB6

Código (vb) [Seleccionar] Expandir


With List1
.AddItem (25)
.AddItem (36)
.AddItem (18)
.AddItem (13)
End With
With List2
.AddItem (16)
.AddItem (36)
.AddItem (11)
End With



Dim Diferencia() As Boolean 'Array para guardar el resultado de la comparación


For Item = 0 To List1.ListCount - 1
         ReDim Preserve Diferencia(Item + 1)
     Diferencia(Item) = CBool(List1.List(Item) = List2.List(Item))
      If List2.List(Item) = "" Then
        Diferencia(Item) = False
      End If

Next Item
MsgBox ("¿Son iguales " & List1.List(0) & " y " & List2.List(0) & "? " & Diferencia(0))


Dim str As String
For Index = 0 To UBound(Diferencia) - 1
str = str + _
     List1.List(Index) & "=" & _
     List2.List(Index) & " --> " & _
     Diferencia(Index) & vbCrLf

Next Index
MsgBox (str)




meto las diferencias en un array booleano para poder acceder a él siempre que se quiera como se muestra en el primer mensaje.

como ejemplo he hecho una lista más larga que otra, pero lo suyo es que ambas sean de igual longitud.

espero que te sirva

saludos

lo intentaré, muchas gracias amigo

Hola amigos, hace rato que no pasaba por acá, me surgió la siguiente interrogante:

Cómo puedo comparar dos listbox, es decir que al recorrer las listas compruebe que tengan los mismos valores algo así como:

if list1 <> list2 then
msgbox "diferentes"
else
msgbox "iguales"
end if

Gracias amigos

Perfecto, todo claro, muchas gracias amigos

Estimados:

Particioné mi disco duro, tengo windows 10 instalado en uno y en la otra partición quiero instalar el windows 7. El tema es que me aparece el error de la partición GPT, hay alguna forma de poder instalarlo sin tener que formartear el disco duro o sin perder los datos del disco.?

Muchas gracias amigos.

[Matriz de controles]

Tienes varias maneras:
Sin que tengas que cambiar nada del programa que usas como ejemplo, es meter las palabras en un array y luego comparar y obtener el índice:

Código (vb) [Seleccionar] Expandir


Dim Index as Integer
Dim tmpText(1 To 4) As String
tmpText(1) = Text1.Text
tmpText(2) = Text2.Text
tmpText(3) = Text3.Text
tmpText(4) = Text4.Text
For Index = 1 To 3
If tmpText(4) = tmpText(Index) Then
MsgBox ("Texto: " & Index & " está repetido" _
& vbCrLf & "Palabra: " & tmpText(Index))
End If
Next Index



Otra forma  es crear una Matriz de controles, que consiste en crear un control y llamarlo txtPalabra, por ejemplo y en Propiedades del control establecer en la propiedad Index, el valor 0, después copia el control en el formulario y pega de nuevo, automáticamente se crea otro control idéntico con el Index=1, si copias y pegas otro tendrá Index=2....

También puedes copiar y pegar directamente y VB te preguntará si deseas crear una matriz de controles le dices que sí y listo, cada vez que lo copies y pegues se irá añadiendo un índice.

Luego para comparar haces lo siguiente:

Código (vb) [Seleccionar] Expandir


Dim Index as Integer
For Index = 0 To 2
If txtPalabra(3).Text = txtPalabra(Index).Text Then
MsgBox ("Texto: " & Index & " está repetido" _
& vbCrLf & "Palabra: " & txtPalabra(Index))
End If
Next Index

El primer control de texto en este caso tiene el Indice = 0
txtPalabra(0)
txtPalabra(1)
txtPalabra(2)
txtPalabra(3)

txtPalabra(3)  sería el cuarto.

Perfecto amigo, manos a la obra
muchas gracias amigo

Amigos míos, solicito su apreciada ayuda: tengo mi formulario de la siguiente manera:



A través del command_button Realizo una comprobación entre los 3 texbox de la izquierda, con el textbox de la derecha para saber si el string del text4 se repite en alguno de los textbox de la izquierda a través del siguiente código:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If Text4.Text = Text1.Text Or Text4.Text = Text2.Text Or Text4.Text = Text3.Text Then
MsgBox "iguales"
End If
End Sub

El tema es que necesito averiguar cual de los 3 de la izquierda es el que tiene el mismo string que el de la derecha, es decir poder obtener el nombre del control que tiene el mismo string.

Se puede hacer de alguna forma??
gracias amigos  

Estimados, tengo el siguiente problema, necesito detectar cambios en un listbox en tiempo de ejecución, no solamente la cantidad de items, sino que también la edición de alguno de ellos, así como lo hace el evento change en un textbox. Se puede?

Atento a sus comentarios
gracias amigos

Estimados, recurro a ustedes una ves más, quiero saber si es posible hace lo siguiente:

Tengo 2 formularios, en el form1 tengo un listbox y a través del siguiente código me muestra que item está seleccionado:

Código (vb) [Seleccionar] Expandir

MsgBox List1.List(List1.ListIndex)

El problema es que necesito saber que item está seleccionado desde un botón que tengo en el form2, intenté con esto:

Código (vb) [Seleccionar] Expandir


MsgBox Form1.List1.List(List1.ListIndex)

Pero me da error, supongo que al cambiar el foco de un form al otro surge el problema.
Se puede hacer o desde vb6 es imposible

Gracias de antemano amigos.