Форум продуктов IBM Lotus

Общие вопросы => Разработка приложений => Тема начата: Sergey_st85 от 29 Июль 2009, 10:51:16

Название: Реально ли из вьюхи сделать что-то наподобие Проводника?
Отправлено: Sergey_st85 от 29 Июль 2009, 10:51:16

Пользователь хочет, чтобы вьюха была проводником, категории у него были бы папками, а документы - файлами. При щелкании на файл открывается вложение. Открытие вложений я уже сделал. А как вьюху преобразовать или реализовать Проводник как-нибудь иначе?

Вот код для открытия файлов, если кому интересно.

Dim doc As NotesDocument
   Dim o As NotesEmbeddedObject
   Dim fileItem As Notesrichtextitem
   Dim filename As String
   Set doc=source.Documents.GetFirstDocument
   
   filename="C:\TEMP\"
   
   Set fileItem = doc.getFirstItem("Attachment")     
   If Not Isempty(fileItem.EmbeddedObjects) Then
      Forall xx In fileitem.EmbeddedObjects
         Set o = xx
         doc.filename =filename & o.Source     
         Call o.ExtractFile (doc.filename(0))
         
         
         
         
         Dim ws As New NotesUIWorkspace
         Dim openResult As Long
         Dim string_zapusk As String
         string_zapusk={Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(Byval hwnd As Long, Byval lpszOp As String, _
Byval lpszFile As String, Byval lpszParams As String, _
Byval LpszDir As String, Byval FsShowCmd As Long) _
As Long
} & {openResult = ShellExecute(0, "Open", } & Chr(034) & doc.filename(0) & Chr(034) &{,"",} & Chr(034) & "" & Chr(034) &", 1)"
         
         
         If doc.filename(0)<>"" Then
            Execute string_zapusk
            continue=False
   If openResult <=32 Then
         If openResult = 31 Then
            Error 10000, "Операционная система не может определить тип файла " & ws.CurrentDocument.Document.FIles_for_users(0)
         Else
            Error 10000, "Ошибка открытия файла. Код ошибки: " & openResult
         End If
      '   Msgbox "Ошибка открытия файла. Код ошибки: " & openResult , 16, "Сбой!"
         
         Exit Sub
   End If   
         
         End If
      End Forall
   Else
      
   End If
   
   Exit Sub
errh:
   Msgbox "Query_open: " + Error$ + " at l. " +Cstr(Erl)

Название: Re: Реально ли из вьюхи сделать что-то наподобие Проводника?
Отправлено: ViV от 29 Июль 2009, 15:55:07

Добрый день!

Если хранить каждый файл в отдельном документе, то проводником будет стандартное представление.
В документе хранить название директории, в которой находится файл, и в представлении сделать по нему категоризацию.
На событие QueryOpenDocument повесить ваш код и установить Continue в false.

Название: Re: Реально ли из вьюхи сделать что-то наподобие Проводника?
Отправлено: Sergey_st85 от 02 Ноябрь 2009, 10:40:50

Так и сделали, другого выбора не осталось.