Visual Basic, .NET, ASP, VBScript
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Открытие ссылки в vb Добавлено: 11.06.10 22:28  

Автор вопроса:  DIMA | ICQ: 8083015 
Подскажите как открыть файл в vb,как при скачивания с интернета,ну чтобы я выбрал путь,кликнул на кнопку и появилось окно как при загрузке файла с выбором открыть или сохранить))

Ответить

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

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



ICQ: 482827273 

Вопросов: 2
Ответов: 12
 Web-сайт: ssteam.ucoz.ua
 Профиль | | #1
Добавлено: 12.06.10 02:08
Зачем с окном? не усложняйте, вот куда легче:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Event ErrorDownload(FromPathName As String, ToPathName As String)
Public Event DownloadComplete(FromPathName As String, ToPathName As String)

Public Function DownloadFile(FromPathName As String, ToPathName As String)
If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
DownloadFile = True
RaiseEvent DownloadComplete(FromPathName, ToPathName)
Else
DownloadFile = False
RaiseEvent ErrorDownload(FromPathName, ToPathName)
End If
End Function

Private Sub Command1_Click()
Call DownloadFile("путь в сети", "путь на компе";)
End Sub

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
 Web-сайт: moscowdevils.ru
 Профиль | | #2
Добавлено: 13.06.10 15:27
  1. Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  2. Public Event ErrorDownload(FromPathName As String, ToPathName As String)
  3. Public Event DownloadComplete(FromPathName As String, ToPathName As String)
  4.  
  5. Public Function DownloadFile(FromPathName As String, ToPathName As String)
  6. If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
  7. DownloadFile = True
  8. RaiseEvent DownloadComplete(FromPathName, ToPathName)
  9. Else
  10. DownloadFile = False
  11. RaiseEvent ErrorDownload(FromPathName, ToPathName)
  12. End If
  13. End Function
  14.  
  15. Private Sub Command1_Click()
  16. Call DownloadFile("путь в сети", "путь на компе")
  17. End Sub

может человек делает мастдай експлорер :)
а апи в примерах есть и не одно.

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
 Web-сайт: moscowdevils.ru
 Профиль | | #3
Добавлено: 13.06.10 15:29
можно это окно сделать самому имея апи из библии кодов. просто. я делал обновление своей проги с выбором из комбо и кнопочками. :) вё просто :)

Ответить

Страница: 1 |

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



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