Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 154
от 11.11.2005, 13:03

Администратор:Калашников О.А.
В рассылке:Подписчиков: 122, Экспертов: 20
В номере:Вопросов: 2, Ответов: 6


Вопрос № 28948: Есть на форме Text1 и Picture1 и Command1. Можно ли сделать так: в Text1 вводишь интернет адрес рисунка, нажимаешь на кнопку и в Picture1(можно и вчём нибудь другом) загружается этот рисунок?...
Вопрос № 28982: Здравствуйте эксперты. как из VBA запустить внешнюю exe программу? спасибо....

Вопрос № 28.948
Есть на форме Text1 и Picture1 и Command1. Можно ли сделать так:
в Text1 вводишь интернет адрес рисунка, нажимаешь на кнопку и в Picture1(можно и вчём нибудь другом) загружается этот рисунок?
Отправлен: 05.11.2005, 13:10
Вопрос задал: Dushin Igor (статус: 1-ый класс)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Залетин Виталий Викторович
Здравствуйте, Dushin Igor!
Можно, например, так: на форму ложите InetControl (он в стандартной поставке), задаете ему бинарный тип инфы, адрес, потом просто в байтовый массив читаете данные. Контрол простой, разобраься не составит труда.
Могу посоветовать такую статейку:
http://www.excode.ru/?mod=article&id=text&artid=623&action=showart&ex=632141bd2ab1b364b1244f271f300f25
---------
Учиться никогда не поздно. Особенно программированию!
Ответ отправил: Залетин Виталий Викторович (статус: 6-ой класс)
Отправлен: 05.11.2005, 14:56

Отвечает: _Виталий
Здравствуйте, 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Яндекс Rambler's Top100 hotlog_js="1.0"; hotlog_r=""+Math.random()+"&s=314124&im=101&r="+escape(document.referrer)+"&pg="+ escape(window.location.href); document.cookie="hotlog=1; path=/"; hotlog_r+="&c="+(document.cookie?"Y":"N"); hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2"; hotlog_r+="&wh="+screen.width+'x'+screen.height+"&px="+ (((navigator.appName.substring(0,3)=="Mic"))? screen.colorDepth:screen.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; document.write("HotLog")

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Архив рассылки
Отписаться
Вспомнить пароль

В избранное