Inicio > Visual Fox Pro > Drag and Drop del explorador de windows a un treeview

Drag and Drop del explorador de windows a un treeview


En este ejemplo mostrare como poder arrastrar del explorador de windows  archivos hacia un objeto treview de un formulario VFP.

Código que va en el evento OleDragDrop del treview

IF Button = 1 THEN
    RETURN
ENDIF

IF data.GetFormat(15) THEN
    *** Si existen archivos
    IF data.Files.Count() > 0
        FOR I = 1 TO data.Files.Count()

           lcArchivo = data.Files.Item[I]
          lcext = LOWER(JUSTEXT(lcArchivo))

          *** Soltar una imagen
          lcOldPath = SYS(5) + CURDIR()
          lcRelImage = SYS(2014,lcArchivo)
          IF lcRelImage # “..”
            lcArchivo = lcRelImage
          ENDIF

          *** Convertir a letra mayúscula
          lcArchivo = UPPER(lcArchivo)

          *** Verificar si el archivo existe
          IF !FILE(lcArchivo) THEN
            MESSAGEBOX(“Archivo a adjuntar no existe.”, 16, “Error”)
          ENDIF

          IF !EMPTY(lcArchivo) THEN
          *** Verificar ya esta en la lista de adjuntos
          SELECT Adjuntos
          LOCATE FOR (Adjuntos.ARCHIVO = lcArchivo)
          IF !FOUND()
            APPEND BLANK
            Replace Adjuntos.ARCHIVO WITH lcArchivo
            Replace Adjuntos.NOMBRE WITH ALLTRIM(JUSTFNAME(lcArchivo))
            Replace Adjuntos.EXTENSION WITH JUSTEXT(lcArchivo)
            m.cRaiz = “R”+ ALLTRIM(STR(Adjuntos.COD,10,0))
            Thisform.TreeView1.Nodes.Add(,4,m.cRaiz,ALLTRIM(Adjuntos.NOMBRE),Thisform.ImagenTreeView(Adjuntos.EXTENSION))
          ELSE
            MESSAGEBOX(“Archivo ” + ALLTRIM(Adjuntos.NOMBRE) + ” ya esta adjuntado al mensaje.”, 16,”Error”)
          ENDIF
    ENDIF

         CD (lcOldPath)
        ENDFOR
      ENDIF
ENDIF
RETURN

Categorías:Visual Fox Pro
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: