El Control gsSelDir

(con los listados)

Actualizado: 8/Nov/97
Nuevo 13/Abr/97: Echale un vistazo al nuevo gsSelDirFile

Este control es el mismo que el de la utilidad SelDir. Pero convertido en control OCX (ActiveX)
Puedes probarlo en la p�gina de ejemplo del control (pincha aqu�), te recuerdo que para poder instalar el control, deber�s tener "puesta" la seguridad en "media" para que te pregunte si quieres instalar los componentes.
Fiate de mi, no tiene "virus".

Baja los listados para VB5 (gsseldir.zip 12.5 KB) Deber�s crear la estructura de directorios incluida.

En esta ocasi�n, no me voy a enrollar demasiado, ya que b�sicamente es igual que la utilidad. Lo que tiene de nuevo, es que ahora tiene un m�todo (funci�n) para mostrar la ventana de selecci�n y devolver el directorio que se ha seleccionado.
Lo que aqu� te pongo son los cambios que deber�s realizar al listado de "comprobaci�n" del form de prueba que se us� en la utilidad SelDir. Este form para usar con VB4, t_gsSelDir.frm, tambi�n est� en el archivo comprimido.

Para usarlo, deber�s llamar a esta funci�n de esta manera:

Private Sub cmdExaminar_Click()
 'Seleccionar el directorio en el que se empezar� la Busqueda
 
 Text1 = oSelDir1.ShowSelDir(Trim$(Text1))
End Sub

Para usar los objetos expuestos y la selecci�n de directorios/archivos, esta es la versi�n parcial del bot�n Aceptar:
Es para que veas c�mo hay que declarar estos objetos. cSelDir se puede tambi�n declarar como Variant, pero para los otros dos objetos, deben ser Object, sino no funcionar�n correctamente. As� que si los declaras todos como Object, mejor.

Private Sub cmdAceptar_Click()
    '...
    'las clases usadas...
    Dim tNombre As Object
    Dim colDir As Object
    Dim cSelDir As Object
    
    Set tNombre = oSelDir1.cNombre
    Set colDir = oSelDir1.cNombres
    Set cSelDir = oSelDir1.SelDir
    
    '...
End Sub

Estas son las declaraciones, dentro del control, para exponer los objetos cNombre, cNombres y SelDir.

'Estos son los objetos expuestos
Public cNombre As New cNombre
Public cNombres As New cNombres
Public SelDir As New SelDir

La funci�n/M�todo ShowSelDir es esta:

Public Function ShowSelDir(Optional vDir) As String
    'Mostrar el Form para seleccionar el directorio
    Dim cSelDir As Object
    Dim sDir As String                  'Directorio seleccionado
    
    If IsMissing(vDir) Then
        sDir = ""
    Else
        sDir = Trim$(vDir)
    End If
    
    Set cSelDir = Me.SelDir
    
    sDir = cSelDir.Seleccionar(sDir, "")
    If Len(sDir) Then
        If Right$(sDir, 1) = "\" Then
            sDir = Left$(sDir, Len(sDir) - 1)
        End If
    End If
    ShowSelDir = sDir
    Set cSelDir = Nothing
End Function

Y esto es todo, echale un vistazo al c�digo, que para eso est� y ver�s lo f�cil que es esto de crear controles.
Le estoy empezando a coger gustillo. Creo que es preferible y m�s estable que las librer�as OLE (DLL)
Al menos en las pruebas que llevo realizadas, el VB4 no se me ha quedado colgado.
Ya te comentar� cuando haga m�s pruebas.

� Que los disfrutes !