Программирование на 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, Google-бот, PetalBot, Yandex-бот и гости: 4