Как выбрать Ole файл в диалоговом окне и присвоить его к компоненту "Обложка(Присоединенный ole)"?

@Grin21 · Регистрация: 25.09.2015

Author24 — интернет-сервис помощи студентам

PureBasic

Private Sub Кнопка6_Click()
Dim dlgOpenFile As Object ' FileDialog
  Set dlgOpenFile = Application.FileDialog(4) 'msoFileDialogFolderPicker
  With dlgOpenFile
    .Filters.Clear
    .InitialFileName = CurrentProject.Path
    .AllowMultiSelect = False
    .Title = "Выберите обложку"
    .Filters.Add "Ole", "*.bmp", 1 
    result = .Show
    End With
  Set dlgOpenFile = Nothing
End Sub

@alvk · 21.11.2016, 07:42

Visual Basic

    Dim sFileName As String
    Dim dlgOpenFile As Object ' FileDialog
    
    Set dlgOpenFile = Application.FileDialog(4) 'msoFileDialogFolderPicker
    
    With dlgOpenFile
     .Filters.Clear
     .InitialFileName = "CurrentProject.path"
     .AllowMultiSelect = False
     .Title = "Выберите обложку"
     .Filters.Add "Ole", "*.bmp", 1 
     If dlgOpenFile.Show = 0 Then
     Exit Sub
     Else
     sFileName = Trim(dlgOpenFile.SelectedItems(1))
     End If
    End With
      
    Set dlgOpenFile = Nothing
    With Me.Поле_с_Оле
    .SourceDoc = sFileName
    .Action = acOLECreateEmbed
    End With

	21.11.2016, 07:42

Опции темы