Filter string

Hola Jose Luis,

este código es para un ListBox y para usar claves dentro de él. El
funcionamiento con un ComboBox es idéntico:

Public Structure MiEstructura
Public Clave As Integer
Public Descripción As String
Public Overrides Function ToString() As String
Return Descripción
End Function
End Structure

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim Es As MiEstructura
'Añadimos un valor
Es.Clave = 1
Es.Descripción = "Uno"
Me.ListBox1.Items.Add(Es)
'Añadimos un valor
Es.Clave = 2
Es.Descripción = "Dos"
Me.ListBox1.Items.Add(Es)
'Añadimos un valor
Es.Clave = 3
Es.Descripción = "Tres"
Me.ListBox1.Items.Add(Es)
'Añadimos un valor
Es.Clave = 4
Es.Descripción = "Cuatro"
Me.ListBox1.Items.Add(Es)
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles ListBox1.SelectedIndexChanged
Me.TextBox1.Text = DirectCast(Me.ListBox1.SelectedItem,
MiEstructura).Clave.ToString
End Sub


Espero que te sirva. Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/
No te olvides de:
http://www.microsoft.com/spanish/ms...des/vbnet/

Frase: "Si le das pescado a un hombre hambriento, le nutres durante una
jornada. Si le enseñas a pescar, le nutrirás toda su vida." Lao-Tsé - 600 AC
[aprox]



"JoseLuis" escribió en el mensaje
news:

Hi , Please help me

Estoy haciendo una table con subtablas

like this 001000 States
001001 Florida
001002 CAlifornia
001003 Virginia
002000 Tax %

lo que necesito es en un listbox con un filter los 3 primeros caracteres

en

la tabla
es table id y los 3 ultimos subtable ID

he trayado de hacerlo, pero no me sale, porfavor alguien me podria guiar
como hacerlo con codigo

thanks
joseluis