Ver Mensaje Individual
  #14 (permalink)  
Antiguo 19/08/2008, 09:02
Avatar de moradazo
moradazo
 
Fecha de Ingreso: julio-2008
Ubicación: [email protected]
Mensajes: 355
Antigüedad: 15 años, 10 meses
Puntos: 2
Respuesta: Llenar Combo a aprtir de un archivo .txt

Buenas.

Tengo un código que agrega a un combobox datos de un txt.
En este caso en el TXT exiten lineas con una coma (,) separando dos palabras, este combobox agrega solo las de la izquierda:

Código PHP:
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ComboBox1.Click
        Dim ip 
As IntPtr Runtime.InteropServices.Marshal.AllocHGlobal(255)
        
Dim sb As New System.Text.StringBuilder(255)
        
Dim bt As Integer GetPrivateProfileSection("User"ip255"c:\temp.txt")
        Try
            For 
As Integer 0 To bt 1
                sb
.Append(Convert.ToChar(Runtime.InteropServices.Marshal.ReadByte(ipi)))
            
Next
            sb
.Remove(sb.Length 11)
            
ComboBox1.Items.Clear()
            For 
Each line As String In sb.ToString().Split(Convert.ToChar(0))
                
Dim iPos As Integer InStr(line",") - 1
                ComboBox1
.Items.Add(Microsoft.VisualBasic.Left(lineiPos))
            
Next
        
Catch ex As System.Exception
            System
.Windows.Forms.MessageBox.Show(ex.Message)
        
Finally
            Runtime
.InteropServices.Marshal.FreeHGlobal(ip)
        
End Try
        
FileClose(1)
    
End Sub 
Igual se puede modificar para que lea toda la linea.
Gracias a Avellaneda y David que me habian ayudado para generar este codigo.
En las propiedades del combobox, se le puede otorgar la opcion de ordenamiento alfabeticamente en este control.
Saludos