Вопрос № 28948: Есть на форме Text1 и Picture1 и Command1. Можно ли сделать так:
в Text1 вводишь интернет адрес рисунка, нажимаешь на кнопку и в Picture1(можно и вчём нибудь другом) загружается этот рисунок?...Вопрос № 28982: Здравствуйте эксперты.
как из VBA запустить внешнюю exe программу?
спасибо....
Вопрос № 28.948
Есть на форме Text1 и Picture1 и Command1. Можно ли сделать так:
в Text1 вводишь интернет адрес рисунка, нажимаешь на кнопку и в Picture1(можно и вчём нибудь другом) загружается этот рисунок?
Отвечает: Залетин Виталий Викторович
Здравствуйте, Dushin Igor!
Можно, например, так: на форму ложите InetControl (он в стандартной поставке), задаете ему бинарный тип инфы, адрес, потом просто в байтовый массив читаете данные. Контрол простой, разобраься не составит труда.
Могу посоветовать такую статейку:
http://www.excode.ru/?mod=article&id=text&artid=623&action=showart&ex=632141bd2ab1b364b1244f271f300f25
--------- Учиться никогда не поздно. Особенно программированию!
Отвечает: _Виталий
Здравствуйте, Dushin Igor!
Нашел у себя такой вариант, см. приложение. Работает не только для картинок;-)
Приложение:
Ответ отправил: _Виталий (статус: 8-ой класс)
Отправлен: 05.11.2005, 23:52
Отвечает: AlexanderZh
Здравствуйте, Dushin Igor!
Подключи к проекту компонент "Оборзеватель Веб-страниц (Microsoft)"
положи его на форму и юзай свойство Navigate
Как загрузить в picture не знаю...
Приложение:
Ответ отправил: AlexanderZh (статус: 1-ый класс)
Отправлен: 07.11.2005, 15:42
Отвечает: MasterVolkov
Здравствуйте, Dushin Igor!
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 DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Sub Load()
DownloadFile "http://www.yandex.ru/", "c:yandex.htm"
End Sub
Ессно можно указывать разные там файлы короче, в т.ч. и картинки, ну как их в форму потом запихать, сам знаешь!
Ответ отправил: MasterVolkov (статус: 1-ый класс)
Отправлен: 08.11.2005, 17:18
Вопрос № 28.982
Здравствуйте эксперты.
как из VBA запустить внешнюю exe программу?
спасибо.
Отправлен: 05.11.2005, 20:47
Вопрос задал: gvozdok (статус: 5-ый класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Чурсанов Евгений Ильич
Здравствуйте, gvozdok!
С помощью первого примера в приложении можно запустить всё что запускается в системе(99%).
С помощью второго EXE COM и ещё какие то, не помню. :)
Приложение:
--------- Создайте систему, которой сможет пользоваться дурак, и только дурак захочет ею пользоваться.
Ответ отправил: Чурсанов Евгений Ильич (статус: 5-ый класс)
Отправлен: 05.11.2005, 21:23
Отвечает: AlexanderZh
Здравствуйте, gvozdok!
Да поможет тебе shell(PathName as String, [WinStyle as vbAppWinStyle]) as Double
Ответ отправил: AlexanderZh (статус: 1-ый класс)
Отправлен: 07.11.2005, 12:52