Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

Страница: 1 |

 

  Вопрос: Закачка картинки с инета Добавлено: 26.03.10 16:07  

Автор вопроса:  Jus | ICQ: 398783562 
Есть какое нито простое решение как залить на форму изображение с инета (к примеру есть ссылка изображения http://.../logo.gif и надо его выложить на форму или используя элемент image)?

Ответить

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

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #1 		Добавлено: 26.03.10 17:54
Теле лёгкое, с сохранением в файл.
Или сложное, прямо на форму с ВинСоком?

Ответить

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



ICQ: 398783562 

Вопросов: 7
Ответов: 47
  Профиль | | #2 Добавлено: 27.03.10 20:25
AWP а как с сохранением сделать? как я понял, сохранить в папку (скачать), а потом октрыть от туда? если так, то пойдет :) напиши код пожалуйста

Ответить

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



ICQ: 398783562 

Вопросов: 7
Ответов: 47
  Профиль | | #3 Добавлено: 28.03.10 00:26
Все, я нашел как..вопрос закрыт :)
  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.  
  3. Public Event ErrorDownload(FromPathName As String, ToPathName As String)
  4.  
  5. Public Event DownloadComplete(FromPathName As String, ToPathName As String)
  6.  
  7.  
  8.  
  9. Public Function DownloadFile(FromPathName As String, ToPathName As String)
  10.  
  11. If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then
  12.  
  13. DownloadFile = True
  14.  
  15. RaiseEvent DownloadComplete(FromPathName, ToPathName)
  16.  
  17. Else
  18.  
  19. DownloadFile = False
  20.  
  21. RaiseEvent ErrorDownload(FromPathName, ToPathName)
  22.  
  23. End If
  24.  
  25. End Function
  26.  
  27.  
  28.  
  29. Private Sub Command1_Click()
  30.  
  31. Call DownloadFile("http://visual-basic.nm.ru/Banner.gif", "c:\Banner.gif")
  32.  
  33. End Sub

Ответить

Номер ответа: 4
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #4 		Добавлено: 28.03.10 03:17
сори, что не ответил, бухал.

Ответить

Номер ответа: 5
Автор ответа:
 Jus



ICQ: 398783562 

Вопросов: 7
Ответов: 47
  Профиль | | #5 Добавлено: 28.03.10 10:52
хыы, да не че страшного :)

Ответить

Номер ответа: 6
Автор ответа:
 Jus



ICQ: 398783562 

Вопросов: 7
Ответов: 47
  Профиль | | #6 Добавлено: 28.03.10 10:57
AWPа ты можешь вот с этим помочь http://vbnet.ru/forum/show.aspx?id=203050 мне нужно сетевого бота написать, который к чату конектиться....нашел исходник на делфи, вот бы переделать на VB его...или так может что подскажишь? знаю что надо винсок юзать, но в инете инфы мало на него

Ответить

Номер ответа: 7
Автор ответа:
 Jus



ICQ: 398783562 

Вопросов: 7
Ответов: 47
  Профиль | | #7 Добавлено: 28.03.10 11:01
А так вот главная тема http://vbnet.ru/forum/show.aspx?id=202952 там подробно я описывал что к чему :)

Ответить

Страница: 1 |

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



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