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

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

6 - Autocompletar un TextBox con los path de Windows cuando tipeamos

Este ejemplo muestra como podemos mediante el Api SHAutoComplete autocompletar la caché de entradas cuando tipeamos en un textBox, por ejemplo como lo hace la ventana de Ejecutar de Windows, o cuando tipeamos en la barra de direcciones de búsqueda del Explorer.

Vista del textBox desplegando las entradas de las rutas

Vista del formulario de ejemplo para autocompletar las rutas almacenadas de windows automaticamente cuando tipeamos en un TextBox

Controles

Colocar un TextBox llamado Text1 al cual se le pasa el hwnd del textbox en el primer parámetro de la función Api SHAutoComplete, y en el segundo parámetro unas constantes que definen el tipo de lista a mostrar.

Código fuente en un Formulario:

'constantes para enviarle a la función SHAutoComplete Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000 Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000 Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000 Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000 Private Const SHACF_DEFAULT = &H0 Private Const SHACF_FILESYSTEM = &H1 Private Const SHACF_URLHISTORY = &H2 Private Const SHACF_URLMRU = &H4 Private Const SHACF_USETAB = &H8 Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU) 'Función Api SHAutoComplete para autocompletar la caché de windows Private Declare Sub SHAutoComplete _ Lib "shlwapi.dll" ( _ ByVal hwndEdit As Long, ByVal dwFlags As Long) Private Sub Form_Load() 'Le enviamos el Hwnd del TextBox SHAutoComplete Text1.hWnd, SHACF_FILESYSTEM End Sub

Nota: Si querés ver un ejemplo de como utilizar en ves de un TextBox un Combo, por ejemplo como lo hace el navegador internet explorer podés ver este enlace : Tutorial WebBrowser

Otro ejemplo

Este otro ejemplo, muestra una forma de poder autocompletar un textbox cargando los valores desde un archivo de texto que sirve como historial, y al cerrar el programa y luego volver a iniciarlo , poder recuperar los datos. Puede ser útil para muchos casos.

Descargar ejemplo

Código fuente

Option Explicit Dim arrValues() As String 'Flag para la tecla BackSpace Private bKeyBack As Boolean Public Function AutoCompletar_TextBox( _ textBox As textBox, pArrValues() As String) Dim i As Integer Dim posSelect As Integer Select Case (bKeyBack Or Len(textBox.Text) = 0) Case True bKeyBack = False Exit Function End Select With textBox 'Recorremos todos los elementos del array For i = 0 To UBound(pArrValues) ' Buscamos coincidencias If InStr(1, pArrValues(i), .Text, vbTextCompare) = 1 Then posSelect = .SelStart ' asignar el texto de array al textbox .Text = pArrValues(i) ' seleccionar el texto .SelStart = posSelect .SelLength = Len(.Text) - posSelect Exit For ' salimos del bucle End If Next i End With End Function ' Rutina para guardar los valores en el archivo de historial Sub saveValues(pArrValues() As String, NewValue As String) Dim lIndex As Long ' redimensionar y preservar el array para añadir el nuevo valor lIndex = UBound(pArrValues) + 1 ReDim Preserve pArrValues(lIndex) pArrValues(lIndex) = NewValue ' Abrir el archivo para guardar los datos Open App.Path & "\history.dat" For Output As #1 Dim i As Integer ' recorrer le vector For i = 0 To UBound(pArrValues) If pArrValues(i) <> "" Then Print #1, pArrValues(i) End If Next Close End Sub ' rutina para cargar los valores desde el archivo .dat Sub LoadValues(pArrValues() As String) Dim lIndex As Long Dim sValue As String Dim sPath As String sPath = App.Path & "\history.dat" If Len(Dir(sPath)) = 0 Then Exit Sub End If ' Abrir el archivo para guardar los datos Open App.Path & "\history.dat" For Input As #1 ' leer las lines del archivo While Not EOF(1) Line Input #1, sValue ' agregar nuevo valor ReDim Preserve pArrValues(lIndex) If sValue <> "" Then pArrValues(lIndex) = sValue End If lIndex = lIndex + 1 Wend Close End Sub Private Sub Command1_Click() If Text1 <> "" Then ' guardar los valores del array en el archivo de historial Call saveValues(arrValues, Text1.Text) Text1.Text = "" MsgBox "Cerrar el formulario y comprobar que los valores se vuelven a cargar desde el archivo de texto", vbInformation End If End Sub Private Sub Form_Load() Text1 = "" Command1.Caption = "Añadir valor" ReDim arrValues(0) ' cargar los valores desde el archivo de texto en el array Call LoadValues(arrValues) End Sub ' Autocompletar al escribir en el textbox. Private Sub Text1_Change() Call AutoCompletar_TextBox(Text1, arrValues) ' enviar el textbox y el vector con los valores End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyBack, vbKeyDelete Select Case Len(Text1.Text) Case Is <> 0 bKeyBack = True End Select End Select End Sub

Recursos vb 6 - Enlaces relacionados

Buscar en Recursos vb