Как создать нормальный 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д