Вопросы Теги

Открытие File Dialog из модуля класса в vb6

Я хочу знать, как мы можем открыть диалоговое окно файла от скручивания жгутов модуль класса в vb6. Я знаю, как сделать в формах, но я должен открыть его из модуля класса.

1
задан ajax 26 May 2010 в 05:41
поделиться

2 ответа

Посмотрите на API ниже:

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Вот пример его использования:

    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
        "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

    Private Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
    End Type

    Private Function FileOpenDialog()
        Dim sFilter As String

        OpenFile.lStructSize = Len(OpenFile)
        sFilter = "Text Files (*.txt)" & Chr(0) & "*.TXT" & Chr(0)
        OpenFile.lpstrFilter = sFilter
        OpenFile.nFilterIndex = 1
        OpenFile.lpstrFile = String(257, 0)
        OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
        OpenFile.lpstrFileTitle = OpenFile.lpstrFile
        OpenFile.nMaxFileTitle = OpenFile.nMaxFile
        OpenFile.lpstrInitialDir = "C:\"
        OpenFile.lpstrTitle = "Select File"
        OpenFile.flags = 0

        lReturn = GetOpenFileName(OpenFile)


    End Function
1
ответ дан 3 September 2019 в 00:18
поделиться

Да, вы можете вызвать API, чтобы вызвать это диалоговое окно.

В большинстве случаев такая потребность проистекает из сломанной парадигмы. Класс не должен иметь пользовательский интерфейс. Когда у вас есть реальная потребность в этом, ваш класс, вероятно, должен быть UserControl... и проблема уходит.

1
ответ дан 3 September 2019 в 00:18
поделиться