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

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

  1. NickProstoNick

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

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    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.450
    Симпатии:
    7
    иероглифы чинятся описанием Title As Lmbcs String
     
  3. morpheus

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

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

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

    Регистрация:
    22 авг 2008
    Сообщения:
    1.766
    Симпатии:
    39
    ;)
    Morpheus
    Блин... и где ты был раньше?!
    Спасибо
     
Загрузка...
Похожие Темы - Диалог выбора файла
  1. NickProstoNick
    Ответов:
    11
    Просмотров:
    2.741
  2. morpheus
    Ответов:
    0
    Просмотров:
    4.726
  3. alexas1
    Ответов:
    0
    Просмотров:
    503
  4. motogarri
    Ответов:
    7
    Просмотров:
    901
  5. ty3uk
    Ответов:
    8
    Просмотров:
    1.404

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