Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Обзор выбор файла Добавлено: 30.11.10 21:05  

Автор вопроса:  MISTER X | Web-сайт: studioartf.ru | ICQ: 463865965 

Ответить

  Ответы Всего ответов: 24  

Номер ответа: 16
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #16 Добавлено: 03.12.10 10:35
VbStarter ты флудишь больше чем я -_- но от моих постов по крайней мере лоло получает минус очко, а твои не несут никакой смысловой нагрузки -_-

Ответить

Номер ответа: 17
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #17 Добавлено: 04.12.10 00:14
Капитан очевидность :)
заметил таки, что флудишь меньше чем твой друг
ну не огорчайся, зато тебе очко важнее :-D

Ответить

Номер ответа: 18
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #18 Добавлено: 04.12.10 01:24
очко всегда важно=) главное его не упустить и не потерять xD

Ответить

Номер ответа: 19
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #19 		Добавлено: 04.12.10 12:47
Кстати почему бы и не использовать SHBrowseForFolder для выбора файлов)
  1. Option Explicit
  2. Private Declare Function SHBrowseForFolder Lib "shell32" Alias "SHBrowseForFolderW" (lpBI As BrowseInfo) As Long
  3. Private Declare Function SHGetPathFromIDList Lib "shell32" Alias "SHGetPathFromIDListW" (ByVal pidList As Long, ByRef lpBuffer As Byte) As Long
  4. Private Declare Sub CoTaskMemFree Lib "ole32" (ByVal pv As Long)
  5. 'Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
  6. Private Const BIF_RETURNONLYFSDIRS = 1
  7. Private Const BIF_DONTGOBELOWDOMAIN = 2
  8. Private Const BIF_EDITBOX As Long = &H10
  9. Private Const BIF_NEWDIALOGSTYLE As Long = &H40
  10. 'Private Const BIF_BROWSEINCLUDEURLS As Long = &H80
  11. Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000
  12. Private Const BIF_USENEWUI As Long = BIF_NEWDIALOGSTYLE Or BIF_EDITBOX
  13.  
  14. 'Private Const MAX_PATH = 260
  15. Private Type BrowseInfo
  16.     hWndOwner      As Long
  17.     pIDLRoot       As Long
  18.     pszDisplayName As Long
  19.     lpszTitle      As Long
  20.     ulFlags        As Long
  21.     lpfnCallback   As Long
  22.     lParam         As Long
  23.     iImage         As Long
  24. End Type
  25.  
  26. Public Function ShowBrowseFolder(ByVal WindowHandle As Long, Optional ByRef BrowseTitle As String = "Select folder") As String
  27.     Dim lpIDList As Long, tBrowseInfo As BrowseInfo
  28.     Dim sBuffer(260 * 2 - 1) As Byte, pNull As Long
  29.     tBrowseInfo.hWndOwner = WindowHandle
  30.     tBrowseInfo.lpszTitle = StrPtr(BrowseTitle)
  31.     tBrowseInfo.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_USENEWUI + BIF_BROWSEINCLUDEFILES '+ Not &H10000
  32.     lpIDList = SHBrowseForFolder(tBrowseInfo)
  33.     If lpIDList Then
  34.         SHGetPathFromIDList lpIDList, sBuffer(0)
  35.         CoTaskMemFree lpIDList 'Free up memory
  36.         pNull = InStr(sBuffer, vbNullChar)
  37.         If pNull Then _
  38.             ShowBrowseFolder = Left$(sBuffer, pNull - 1)
  39.     End If
  40. End Function

Ответить

Номер ответа: 20
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #20 Добавлено: 04.12.10 13:29
Ну потому что всего 40 строчек кода vs CommonDialogАДЫН

Ответить

Номер ответа: 21
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #21 		Добавлено: 04.12.10 16:33
Откомпилировав эти 40 строк в ActiveX, получим идентично CommonDialog одну строку для вызова. Ну и тип диалога совсем другой

Ответить

Номер ответа: 22
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #22 		Добавлено: 04.12.10 16:43
и поддержка юникода

Ответить

Номер ответа: 23
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #23 		Добавлено: 04.12.10 17:33
AgentFire пишет:
а твои не несут никакой смысловой нагрузки

твои и холивары тоже :)

Ответить

Номер ответа: 24
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #24 Добавлено: 04.12.10 18:42
мои холивары открывают некоторым людям новую жизнь

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам