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

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

Наш партнер Genesis Hackspace
  1. NickProstoNick

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

    Регистрация:
    22 авг 2008
    Сообщения:
    1.769
    Симпатии:
    39
    Всем привет!
    Вот в нете надыбал такую функцию
    Код (LotusScript):
    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 *

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

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

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

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

    Регистрация:
    22 авг 2008
    Сообщения:
    1.769
    Симпатии:
    39
    ;)
    Morpheus
    Блин... и где ты был раньше?!
    Спасибо
     
Загрузка...

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