Sección de códigos , trucos y ejemplos para visual basic

354 - Ejemplo para poder autocompletar un MsFlexgrid al escribir en un control Textbox

Rutina que al escribir en un control Textbox, busca en un MsFlexgrid para autocompletar el texbox y seleccionar la fila encontrada en la grilla

Formulario

vista del formulario para poder autocompletar el FlexGRid

A la rutina Autocompletar, que se ejecuta en el evento change del text donde se escribe, se le debe pasar tres parámetros:

Call Autocompletar(MSFlexGrid, Cadena, Columna)

Cadena es el contenido del textbox donde ingresamos el texto, y "Columna " , es el número de la columna a tener en cuenta para buscar

Controles:

Un control Microsoft Flexgrid o Hierarchical Flexgrid
Un Textbox ( Text1 )
Un Text2 para indicar el número de la columna
Un módulo bas

Código fuente en el formulario

Option Explicit Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) '.. Si la tecla presionada es Backspace o la tecla Delete If KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Then ' ..si hay texto en el Textbox If Len(Text1.Text) <> 0 Then KeyRetroceso = True End If End If End Sub Private Sub Form_Load() Dim i As Integer With MSFlexGrid1 .FixedCols = 0 .Rows = 1 .Cols = 2 .FormatString = "Columna 1 | Columna 2" End With 'Añade algunos elementos al FlexGrid With MSFlexGrid1 .AddItem "Maria" & vbTab & "Rodrigues" .AddItem "Jose" & vbTab & "Peres" .AddItem "Raul" & vbTab & "Gimenes" .AddItem "Juan" & vbTab & "Acosta" .AddItem "Carlos" & vbTab & "Figueroa" .AddItem "Agustina" & vbTab & "Rodrigues" .AddItem "Alberto" & vbTab & "Morales" .AddItem "Yanina" & vbTab & "Lobos" .AddItem "Sebastian" & vbTab & "Peres" .AddItem "Luis" & vbTab & "Delgado" .AddItem "Ester" & vbTab & "Morales" End With Text2 = 0 Me.Caption = " Autocompletar un MsFlexGrid " End Sub Private Sub Text1_Change() 'Le pasamos a la rutina como parámetro el _ control MsFlexGrid , el textox a utilizar , _ y el número de la columna por la que se busca Call Autocompletar_FlexGrid(MSFlexGrid1, Text1, CLng(Text2)) End Sub

Código fuente en el módulo bas

Option Explicit 'Flag para la tecla BackSpace Public KeyRetroceso As Boolean Function Autocompletar_FlexGrid(MSFlexGrid As Object, _ TBox As TextBox, _ Columna As Long) Dim i As Integer Dim pos_SelStart As Integer If (KeyRetroceso Or Len(TBox.Text) = 0) Then KeyRetroceso = False Exit Function End If With MSFlexGrid 'Recorremos todas las filas del MsFlexgrid For i = 0 To .Rows - 1 'Busca en el flexgrid si hay coincidencia, en la fila y columna actual If InStr(1, .TextMatrix(i, Columna), TBox.Text, vbTextCompare) = 1 Then pos_SelStart = TBox.SelStart 'Asignamos el valor de la celda actual al textbox TBox.Text = .TextMatrix(i, Columna) 'Indicamos el comienzo de la selección TBox.SelStart = pos_SelStart 'seleccionamos la porción de texto en el Text TBox.SelLength = Len(.TextMatrix(i, Columna)) - pos_SelStart ' Establecemos con TopRow , la fila arriba de todo .TopRow = i Exit For End If Next i End With End Function

Recursos Visual basic 6.0 - enlaces relacionados

Recursos vb.NET - Enlaces relacionados

Buscar fila en un BindingSource enlazado a un DataGridView

Buscar en Recursos vb