1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Диалог выбора файла

Тема в разделе "Lotus - Программирование", создана пользователем NickProstoNick, 14 дек 2010.

  1. NickProstoNick

    NickProstoNick Статус как статус :)
    Lotus team

    Репутация:
    0
    Регистрация:
    22 авг 2008
    Сообщения:
    1.785
    Симпатии:
    42
    Всем привет!
    Вот в нете надыбал такую функцию
    Код:
    Declare Function NEMGetFile Lib "nnotesws" (_
    wUnk As Integer, ByVal FileName As String, ByVal Filter As String, ByVal Title As String ) As Integer
    
    Function OpenDialog( strFileName As String, strFilter As String) As String
    Dim strTitle As String
    Dim retval As Variant
    Dim ErrorStatus As Boolean
    
    strTitle = "Выберите необходимый файл"
    If strFilter = "" Then strFilter = "Text Files *.txt" 'Filter is set to show only .txt files
    
    Do
    ErrorStatus=False
    If NEMGetFile( 0, strFileName, strFilter, strTitle) = 0 Then
    Exit function
    End If
    Loop Until ErrorStatus=False
    
    OpenDialog = strFileName
    End Function
    Но как-то удивительно она работает... начиная с того, что заглавие окна пишется иероглифами... и заканчивая тем, что в выбранном файле отсекаются последние два символа в расщирении
     
  2. hosm

    hosm * so what *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    9
    иероглифы чинятся описанием Title As Lmbcs String
     
  3. morpheus

    morpheus скриптописец

    Репутация:
    0
    Регистрация:
    7 авг 2006
    Сообщения:
    3.915
    Симпатии:
    1
    NickProstoNick
    а что это уже не катит ?
    notesUIWorkspace.OpenFileDialog( multipleSelection , [title$] , [filters$] , [initialDirectory$] , [initialFile$] )
     
  4. NickProstoNick

    NickProstoNick Статус как статус :)
    Lotus team

    Репутация:
    0
    Регистрация:
    22 авг 2008
    Сообщения:
    1.785
    Симпатии:
    42
    ;)
    Morpheus
    Блин... и где ты был раньше?!
    Спасибо
     
Загрузка...
Похожие Темы - Диалог выбора файла
  1. NickProstoNick
    Ответов:
    11
    Просмотров:
    2.928
  2. morpheus
    Ответов:
    0
    Просмотров:
    4.939
  3. anna
    Ответов:
    5
    Просмотров:
    410
  4. alexas1
    Ответов:
    0
    Просмотров:
    660
  5. motogarri
    Ответов:
    7
    Просмотров:
    1.154

Поделиться этой страницей