Как создать нормальный ComDlg? - VB

Узнай цену своей работы

Формулировка задачи:

Не могу создать нормальное окно CommonDialog'а. Насчет UserControl'a "Microsoft common dialog control" мне известно. Но создать такое окно, добавив свои кнопки и еще что-нибудь я не могу. Например, при компилировании в VB 6 в окне есть кроме кнопки "открыть" кнопка "Options...". Знаю, что есть control ComDlg (именно не CommonDialog, а ComDlg). Но там невообразимое количество свойств и ссылок на другие объекты, и там я не разобрался. Если кто знает - помогите. Буду благодарен.

Решение задачи: «Как создать нормальный ComDlg?»

textual
Листинг программы
Private Sub cmdTest_Click()
 
  ' Create a simple File|Open dialog and return the
  ' file name selected
  
  Dim FileDialog As CFileDialog
  Set FileDialog = New CFileDialog
  
  With FileDialog
    .DefaultExt = "txt"
    .DialogTitle = "VB SourceBook Example File Open"
    .Filter = "Text files (*.txt)|*.txt|All Files (*.*)|*.*"
    .FilterIndex = 0
    .Flags = FleFileMustExist + FleHideReadOnly + FleCreatePrompt
    .hWndParent = Me.hWnd
    .MaxFileSize = 255
    If .Show(True) Then
      MsgBox "File selected: " & .FileName & vbCrLf & "File name only: " & _
        .FileTitle
    Else
      MsgBox "User cancelled"
    End If
    
  End With
  
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы