ООП vs. API

[Cyrax]

а точнее "Объектно-ориентированный подход против Win32API"
вы, наверное, спросите: "А в чем собственно дело?"
а вот в чем... все вы знаете про диалоговое окно выбора папки в Windows (это когда отображается дерево каталогов вашего компьютера и вы выбираете куда будете копировать, перемещать файлы). все вы так же знаете про API-функцию SHBrowseForFolder. а теперь внимание... запускаем VB. идем в References (Project/References). ищем в списке библиотек "Microsoft Shell Controls And Automation" и... добавляем такой

Код: Выделить всё

Private Sub Form_Load()
  Dim objShell As Shell32.Shell
  Dim objFolder As Shell32.Folder2
 
  Set objShell = New Shell32.Shell
  Set objFolder = objShell.BrowseForFolder(Me.hWnd, "Select folder...", 0)
  If (Not objFolder Is Nothing) Then
    MsgBox objFolder.Self.Path
  End If
  Set objShell = Nothing
  Set objFolder = Nothing
End Sub

IMHO, это намного проще, чем заморачиватся на API, да и код короче

подробности можно почитать как всегда в MSDN

[Sebas]

Всё б клёво, тока в Shell32.dll появляется КОМ интерфейс после установки какой то верси и ИЕ
(((((

[Cyrax]

Minimum DLL version: shell32.dll version 4.71 or later
Minimum operating systems: Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0

я так думаю большинство современных пользователей удовлетворяют этим требованиям... в конце-концов, дистрибутив 4 осла не такой уж и тяжелый, можно приложить к дистрибутиву своей программы

[Tarik]

А ещё можно написать класс с использованием API, а потом подключать его к проектам по мере необходимости. Тогда код получается совсем короткий:

Код: Выделить всё

dim dlg as new CdlgEx
dlg.Filter = "Файлы XML (*.xml)|*.xml|"
dlg.DialogTitle = "Открыть файл"
dlg.ShowOpen
blablabla=dlg.initdir


И, главное, никаких больше библиотек не надо

[v-adix]

А ещё можно написать класс с использованием API, а потом подключать его к проектам по мере необходимости. Тогда код получается совсем короткий:

Код: Выделить всё

dim dlg as new CdlgEx
dlg.Filter = "Файлы XML (*.xml)|*.xml|"
dlg.DialogTitle = "Открыть файл"
dlg.ShowOpen
blablabla=dlg.initdir


И, главное, никаких больше библиотек не надо

например вот этот