КАРТИНКА ИЗ ИНТЕРНЕТА

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
xfolder
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 133
Зарегистрирован: 22.07.2002 (Пн) 18:57
Откуда: United Kingdom

КАРТИНКА ИЗ ИНТЕРНЕТА

Сообщение xfolder » 12.04.2003 (Сб) 1:36

КАК ЗАГРУЗИТЬ КАРТИНКУ ИЗ ИНТЕРНЕТА B PICTURE ИЛИ IMAGE CONTROL?

Dagobert
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 141
Зарегистрирован: 21.12.2002 (Сб) 6:48
Откуда: Russia

Сообщение Dagobert » 12.04.2003 (Сб) 6:40

Есть функция, давно пользуюсь.

Код: Выделить всё
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 Function LoadURLPicture(ByVal URL As String) As IPictureDisp
    Dim sFName As String
    If Len(URL) = 0 Then Exit Function
    sFName = App.Path & "\url~" & ((Rnd * 1000) + 1) & ".tmp"
    URLDownloadToFile 0, URL, sFName, 0, 0
    If Len(Dir$(sFName)) > 0 Then
        Set LoadURLPicture = LoadPicture(sFName)
        Kill sFName
        End If
    End Function

xfolder
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 133
Зарегистрирован: 22.07.2002 (Пн) 18:57
Откуда: United Kingdom

Сообщение xfolder » 12.04.2003 (Сб) 22:24

spasibo


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 2

    TopList