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

   
   
     

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

Страница: 1 |

 

  Вопрос: Использование DriveList и DirList Добавлено: 11.04.10 20:33  

Автор вопроса:  VbStarter | Web-сайт: moscowdevils.ru | ICQ: 357911808 
как связать их так чтобы когда переключаешь диск в DriveList то нахождение DirList Перескакивало в корневую директорию выбранного диска, а если его нет вы довала сообщение. И ещё - как (с помощью ккого контрола) отобразить список файлов. (чтобы их можно было открыть 2-ым щелчком)

Ответить

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

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #1 		Добавлено: 11.04.10 20:39
упс.. вопрос был глупый ))) разобрался сам после лазаний по подсказкам

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #2 		Добавлено: 11.04.10 20:44
но всёже как запустить файл из FileList'а??

Ответить

Номер ответа: 3
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #3 		Добавлено: 11.04.10 21:01
ShellExecute VB6

в гугле.

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #4 		Добавлено: 11.04.10 22:06
то есть надо написать (я частично знаю)
  1. Private Declare Function ShellExecute Alias ......

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #5 		Добавлено: 11.04.10 22:07
ну там ещё библиотека а в Sube вызов функции? правильно?

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #6 		Добавлено: 11.04.10 22:10
  1. Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  2.      ByVal hwnd As Long, _
  3.      ByVal lpOperation As String, _
  4.      ByVal lpFile As String, _
  5.      ByVal lpParameters As String, _
  6.      ByVal lpDirectory As String, _
  7.      ByVal nShowCmd As Long) As Long
  8.  
  9. Private Sub Help_Click(Index As Integer)
  10.  Dim appPath As String
  11.     appPath = App.Path
  12.     If Right$(appPath, 1) <> "\" Then appPath = appPath & "\"
  13.     ShellExecute Me.hwnd, "Open", appPath + "help.chm", "", appPath, SW_SHOWNORMAL
  14. End Sub

Ответить

Номер ответа: 7
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #7 		Добавлено: 11.04.10 22:41
Верн.

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #8 		Добавлено: 11.04.10 22:55
  1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  2.      ByVal hwnd As Long, _
  3.      ByVal lpOperation As String, _
  4.      ByVal lpFile As String, _
  5.      ByVal lpParameters As String, _
  6.      ByVal lpDirectory As String, _
  7.      ByVal nShowCmd As Long) As Long
  8.      
  9. Private Sub Dir1_Change()
  10. DirPath = Dir1.Path
  11. File1.Path = DirPath
  12. End Sub
  13.  
  14. Private Sub Drive1_Change()
  15. DrvPath = Drive1.Drive
  16. Dir1.Path = DrvPath
  17. End Sub
  18.  
  19. Private Sub File1_DblClick()
  20. FilePath = File1.Path
  21. appPath = App.Path
  22. ShellExecute Me.hwnd, "Open", DrvPath + DirPath + FilePath, "", appPath, SW_SHOWNORMAL
  23. End Sub


почему Type Mismatch? (ShellExecute Me.hwnd, "Open", DrvPath + DirPath + FilePath, "", appPath, SW_SHOWNORMAL)

Ответить

Номер ответа: 9
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #9 		Добавлено: 11.04.10 23:31
где у тебя объявлены переменные DrvPath, DirPath, FilePath???

Ответить

Номер ответа: 10
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
  Профиль | | #10 Добавлено: 11.04.10 23:44
  1.  
  2. Private Const SW_SHOWNORMAL = 1
  3. Dim DrvPath As String
  4. Dim DirPath As String
  5. Dim FilePath As String
  6. Dim appPath As String



и заместо "+" ставь "&"

и кстати посмотри что ты в качестве пути указываешь...
  1.  
  2. ShellExecute Me.hwnd, "Open", DrvPath + DirPath + FilePath, "", appPath, SW_SHOWNORMAL
  3. MsgBox DrvPath + DirPath + FilePath

Ответить

Номер ответа: 11
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
  Профиль | | #11 Добавлено: 11.04.10 23:45
и еще... почему бы самому в поисковике не найти рабочий пример за минуту?

Ответить

Номер ответа: 12
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #12 		Добавлено: 12.04.10 00:39
и еще... почему бы самому в поисковике не найти рабочий пример за минуту?

Не знаю как ему, но такие рабочие примеры быстрее пишутся, чем ищутся, а потом качаются.

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #13 		Добавлено: 13.04.10 17:42
объявил. теперь тупа ничего ни происходитььььь.
  1. Private Const SW_SHOWNORMAL = 1
  2. Dim DrvPath As String
  3. Dim DirPath As String
  4. Dim FilePath As String
  5. Dim appPath As String
  6. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  7.      ByVal hwnd As Long, _
  8.      ByVal lpOperation As String, _
  9.      ByVal lpFile As String, _
  10.      ByVal lpParameters As String, _
  11.      ByVal lpDirectory As String, _
  12.      ByVal nShowCmd As Long) As Long
  13.      
  14. Private Sub Dir1_Change()
  15. DirPath = Dir1.Path
  16. File1.Path = DirPath
  17. End Sub
  18.  
  19. Private Sub Drive1_Change()
  20. DrvPath = Drive1.Drive
  21. Dir1.Path = DrvPath
  22. End Sub
  23.  
  24. Private Sub File1_DblClick()
  25. FilePath = File1.Path
  26. appPath = App.Path
  27. ShellExecute Me.hwnd, "Open", DrvPath + DirPath + FilePath, "", appPath, SW_SHOWNORMAL
  28. End Sub
  29.  

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #14 		Добавлено: 13.04.10 21:04
ээээээээээээээээйййййййййй

Ответить

Страница: 1 |

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



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