Hola que tal colegas ando de nuevo por estos nuestros caminos, ahora con una duda que me a jodido por un buen tiempo, mi problema es que tengo una lista de mas o menos unas 1000 mil entradas se trata de una lista de clientes que tengo estoy desarrollando una herramienta que me ayude a grabar todo con un solo click mi problema es que el combobox no me guarda todas las entradas solo unas 850 y me quedan unas cuantas entradas por entrar pero ya no me da espacio creo yo, hay algun source que me ayude a poder agregar mas de los datos que me permite el combobox.
O alguna otra manera de cargarlos sin tener que usar DB ya que no quiero complicarme la vida
Gracias un saludos y como siempre eh disho este foro es la neta
Hola c4rt3l, no se como cargas el Combo pero no creo que tenga limite de items igualmente prepare un code porque por alli entendi mal
Este carga una lista de cadenas de un .txt (Tu sabras como modificarlo ) tiene 2000 items,
el Combo1 carga 1000 de esa lista, al llegar a ese numero de items le da paso al Combo2 carga el resto comienza del 1001 hasta el 2000, luego con el comando Carga abre otro .txt en el path del programa le recarga los 2000 items
Espero sea esto lo que pides
Saludos
Este carga una lista de cadenas de un .txt (Tu sabras como modificarlo ) tiene 2000 items,
el Combo1 carga 1000 de esa lista, al llegar a ese numero de items le da paso al Combo2 carga el resto comienza del 1001 hasta el 2000, luego con el comando Carga abre otro .txt en el path del programa le recarga los 2000 items
Código: Seleccionar todo
Private Sub Command1_Click()
Dim Todo As String
Dim C As Integer
'======================================
If Combo1.ListCount = 0 Then
MsgBox ("No estan cargados los datos")
Exit Sub
End If
For U = 0 To Combo1.ListCount - 1
Todo = Todo & Combo1.List(U) & vbCrLf
Next
If Combo2.ListCount = 0 Then
MsgBox ("No hay mas datos en Combo2 ")
End If
For U = 0 To Combo2.ListCount - 1
Todo = Todo & Combo2.List(U) & vbCrLf
Next
'=================================
Open App.Path & "\CargaNombres.txt" For Binary As #1
Put #1, , Todo
Close #1
End Sub
Private Sub Command2_Click()
' Aqui se cargan los Combo
Dim X As Integer
Dim B As Integer
Dim Carga As String
Dim SPL() As String
Dim Com2 As Boolean
Com2 = False
With Bus
.ShowOpen
Text1.Text = .FileName
End With
Open Text1.Text For Binary As #1
Carga = Space(LOF(1))
Get #1, , Carga
SPL = Split(Carga, vbCrLf)
Close #1
For X = 0 To 2000
Combo1.AddItem (SPL(X))
If Combo1.ListCount >= 1000 Then
Com2 = True
B = Combo1.ListCount
Exit For
End If
Next
If Com2 = True Then
For B = B To 2000
Combo2.AddItem (SPL(B))
Next
End If
End SubSaludos
