VBNet - Форум - Открытие ссылки в vb

Вопрос: Открытие ссылки в 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
	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 может человек делает мастдай експлорер а апи в примерах есть и не одно. Ответить

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

Страница: 1 |