• Miércoles 6 de Noviembre de 2024, 04:29

Autor Tema:  Api Findfiles  (Leído 1095 veces)

rodovr

  • Miembro activo
  • **
  • Mensajes: 27
    • Ver Perfil
Api Findfiles
« en: Viernes 14 de Octubre de 2005, 00:23 »
0
Hola amigos tengo el siguiente codigo en una etiqueta para abir la BUSQUEDA de Windows:

Private Sub Label4_Click()
Dim s As String
    ' Crear el objeto Shell
    Set oShell = New shell32.Shell
    oShell.FindFiles
End Sub

Me lo abre sin problemas pero esta minimizada la ventana y yo quiero que al momento de darle click al label me aparezca sobre mi aplicacion (es decir que no este maximizada).

Ya busque en la lista de metodos y propiedades y no le encuentro por donde.

Si alguien puede orientarme muchas gracias

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Api Findfiles
« Respuesta #1 en: Viernes 14 de Octubre de 2005, 02:21 »
0
Aquí encuentras la información necesaria y ejemplo de código

http://www.elguille.info/vb/ejemplos/ShellObjects.htm

 :smartass:

rodovr

  • Miembro activo
  • **
  • Mensajes: 27
    • Ver Perfil
Re: Api Findfiles
« Respuesta #2 en: Viernes 14 de Octubre de 2005, 20:22 »
0
De hecho de ahi fue de donde baje el codigo y hace lo que explique anteriormente.

De todas formas muchas gracias por tu ayuda.

Hasta luego