Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: JBB en Abril 10, 2015, 06:06:08 pm
-
He conseguido el código de un CD que se puede personalizar y hay unas cosas que no se como resolver.
El código lo he sacado de aquí: http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/220-modulo-de-clase-cdlgmultiselect.htm
Esta es la pregunta:
Se puede meter el CD dentro de un picture en el form, de manera que no salte la típica ventana ?
Como puedo saber la ruta del archivo o carpeta que se pulsa ?
*** Ya encontré como hacer que salga la ruta:
Case CDN_SELCHANGE:
' Mensaje al pulsar un item del ListView
If lpon.pszFile <= 0 Then Exit Function
hdlgParent = GetParent(hwnd)
sPathCD = String$(MAX_PATH, 0)
SendMessageByString hdlgParent, CDM_GETFILEPATH, MAX_PATH, sPathCD
sPathCD = Replace(sPathCD, Chr(0), vbNullString)
If sPathCD = "" Then Exit Function
mText = sPathCD ' Le paso la ruta seleccionada al pulsar el item del ListView
Agradezco vuestra ayuda.