VBNet - Форум - Загрузка...

Вопрос: Загрузка... Добавлено: 18.04.10 15:13

Автор вопроса: VbStarter | Web-сайт: moscowdevils.ru | ICQ: 357911808

есть код:
[source]
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("http://vbnet.ru/subscribe/images/question.gif", "c:\1.gif")
End Sub
[/source]

как его загнать в модуль??? пишет: Only Valid in Object Module.
Ответить

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

Номер ответа: 1 Автор ответа: AWP ICQ: 345685652 Вопросов: 96 Ответов: 1212	Web-сайт: xawp.narod.ru Профиль \| \| #1	Добавлено: 18.04.10 15:47
	а тебе не проще Sub вызывать вместе Евента? Ответить

Номер ответа: 2 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #2	Добавлено: 18.04.10 16:11
	спс конечно, но я уже сделал другой код Ответить

Номер ответа: 3 Автор ответа: VbStarter ICQ: 357911808 Вопросов: 118 Ответов: 1340	Web-сайт: moscowdevils.ru Профиль \| \| #3	Добавлено: 18.04.10 16:12
	вот - может пригодиться кому. (а так библию кодов зырьте) Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long Private Sub Command1_Click() DownLoadFile "http://demin.narod.ru/2001/wall/", "wall3.jpg" End Sub Public Sub DownLoadFile(sUrl As String, sFile As String) Dim DL As Long On Error GoTo errHandler If sUrl$ = "" Then sUrl$ = strUrl$ If strUrl$ = "" Then strUrl$ = sUrl$ If Left(strUrl$, 4) <> "http" Then strUrl$ = "http://" & strUrl$ If Right$(strUrl$, 1) <> "/" Then strUrl$ = strUrl$ & "/" If Left$(sFile$, 1) = "/" Then sFile = Mid$(sFile$, 2) DL& = DoFileDownload(StrConv(strUrl$ & sFile$, vbUnicode)) Exit Sub errHandler: Debug.Print "Error Source:", Err.Source Debug.Print "Error Description:", Err.Description Debug.Print "Error Number:", Err.Number MsgBox "An error has occured attempting to start download to " & sUrl & sFile$ & ".", vbApplicationModal + vbCritical + vbDefaultButton1, "Error" End Sub Ответить

Страница: 1 |