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 SubPara 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 SubEstas 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 SelDirLa 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 FunctionY 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 !