<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
	<channel>
		<title><![CDATA[Серый форум &mdash; HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
		<link>https://forum.script-coding.com/viewtopic.php?id=6446</link>
		<atom:link href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=6446&amp;type=rss" rel="self" type="application/rss+xml" />
		<description><![CDATA[Недавние сообщения в теме «HTA/VBScript: Помогите справиться с функцией LoadPicture()».]]></description>
		<lastBuildDate>Sun, 20 Nov 2011 15:33:22 +0000</lastBuildDate>
		<generator>PunBB</generator>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53717#p53717</link>
			<description><![CDATA[<p><strong>mikser</strong>, о чём спор ? Решение уже давно было найдено. <img src="//forum.script-coding.com/img/smilies/smile.png" width="15" height="15" /> Достаточно было </p><div class="codebox"><pre><code>document.createElement(&quot;img&quot;)</code></pre></div><p>и ожидания события <strong>onload</strong> у картинки. Задачка на столько проста и тривиальна, что даже говорить особо не о чем было. Учитывая что на просторах интернета это было расписано уже миллионы раз. ) Всё упёрлось лишь в то, что автор не смог сразу объяснить, для каких целей ему нужна предзагрузка. Не думаю, что стоит дальше продолжать.</p>]]></description>
			<author><![CDATA[null@example.com (Xameleon)]]></author>
			<pubDate>Sun, 20 Nov 2011 15:33:22 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53717#p53717</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53714#p53714</link>
			<description><![CDATA[<div class="quotebox"><cite>no-coder пишет:</cite><blockquote><p>Какова цель?<br />В<strong> чистом DHTML-е </strong>(<strong>без ничего стороннего и подгруженного</strong>) имитировать спрайтовую анимацию из векторных картинок с возможностью динамически масштабировать спрайты в зависимости от размера экрана. CSS-спрайты (методом style=&quot;background-image:url(); background-position:Xpx Ypx&quot;) работают, но не масштабируются. Пришлось каждую фазу спрайта в отдельный файл (благо вектор весит мало), все грузить в память и по алгоритму анимировать. Все заработало.</p></blockquote></div><p>Ну так ваше решение требует мс офиса, у меня его нету и ваше решение не работает.</p><p>Вот рабочий пример на чистом DHTML, должен работать даже в IE4:</p><div class="codebox"><pre><code>
  &lt;SCRIPT LANGUAGE=&quot;JavaScript&quot;&gt;

  //C:\windows\Web\Wallpaper\Windows XP.jpg
  var pic=&quot;http://s1.ipicture.ru/uploads/20111120/C8r6NzUc.jpg&quot;
  var XX=[0,10,33,77,155]
  var YY=[0,10,33,77,155]
  var DD=[1, 1.5, 2,3,6]
  var i=0;
  function ToPic()
  {
	putImg(pic,XX[i],YY[i],DD[i])

	if ( ++i &lt; XX.length)
	{
		setTimeout(ToPic, 1400  )
	}
	

  }

  window.onload=function()
  {
	ToPic()
  }


 function putImg(src,x,y,d)//d - коэфицент - во сколько раз увеличить картинку
 {
	//загружаем картинку
	var IMG=new Image() //что бы узнать высоту и ширину
	IMG.src=src;
	var w=Math.round(d*IMG.width)
	var h=Math.round(d*IMG.height)
	document.body.innerHTML+= &quot;&lt;img border=0 src=&#039;&quot;+src+&quot;&#039; style=&#039;position:absolute;&quot;+
	&quot;width:&quot;+w+&quot;px;height:&quot;+h+&quot;px;&quot;+
	&quot;top:&quot;+y+&quot;px;left:&quot;+x+&quot;px;&#039; &gt;&quot;;
 }
	

  &lt;/SCRIPT&gt;</code></pre></div><p>Cамое главное это функция putImg(src,x,y,d)&nbsp; где d - коэфицент - во сколько раз увеличить картинку <br />а src адрес картинки.<br />Или если innerHTML использовать запрещено то можно на чистом DOMe (работает в IE5+): <br /></p><div class="codebox"><pre><code>
 function putImg(src,x,y,d)//d - коэфицент - во сколько раз увеличить картинку
 {
	//загружаем картинку
	var IMG=new Image() //что бы узнать высоту и ширину
	IMG.src=src;
	var w=Math.round(d*IMG.width)
	var h=Math.round(d*IMG.height)
	/*
	document.body.innerHTML+= &quot;&lt;img src=&#039;&quot;+src+&quot;&#039; style=&#039;position:absolute;&quot;+
	&quot;width:&quot;+w+&quot;px;height:&quot;+h+&quot;px;&quot;+
	&quot;top:&quot;+y+&quot;px;left:&quot;+x+&quot;px;&#039; &gt;&quot;;
	*/

	var pikcha=document.createElement(&quot;img&quot;)
	pikcha.setAttribute(&quot;src&quot;,src);
	pikcha.style.position=&quot;absolute&quot;;
	pikcha.style.width= w+&quot;px&quot;;
	pikcha.style.height=h+&quot;px&quot;;
	pikcha.style.top=y+&quot;px&quot;;
	pikcha.style.left=x+&quot;px&quot;;
	document.body.appendChild(pikcha)

 }</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (mikser)]]></author>
			<pubDate>Sun, 20 Nov 2011 13:29:23 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53714#p53714</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53712#p53712</link>
			<description><![CDATA[<p><strong>mikser</strong>, это объект из комплекта офиса. )</p>]]></description>
			<author><![CDATA[null@example.com (Xameleon)]]></author>
			<pubDate>Sun, 20 Nov 2011 12:06:06 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53712#p53712</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53703#p53703</link>
			<description><![CDATA[<p>Такого объекта clsid:C62A69F0-16DC-11CE-9E98-00AA00574A4F у меня на вин7 нету. Видимо эта активиксина ставится вместе с VBA.</p>]]></description>
			<author><![CDATA[null@example.com (mikser)]]></author>
			<pubDate>Sun, 20 Nov 2011 10:46:41 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53703#p53703</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53680#p53680</link>
			<description><![CDATA[<p><strong>no-coder</strong>, Ваше решение решение абсолютно верное для DHTML: использование встроенного объекта JavaScript Image(). Вопрос сам по себе был элементарным. Возможно аудитория встала в тупик из-за требования к языку сценариев.</p>]]></description>
			<author><![CDATA[null@example.com (JSmаn)]]></author>
			<pubDate>Sat, 19 Nov 2011 11:45:03 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53680#p53680</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53678#p53678</link>
			<description><![CDATA[<div class="quotebox"><cite>no-coder пишет:</cite><blockquote><p>Ошибка! Не по юности а по нехватке времени и работе не в родной стихии</p></blockquote></div><p>Именно потому что и Вы и мы ценим своё время, мы начали с конкретных вопросов. Ответы на которые решали дальнейшее развитие событий. Т.к телепатию я ещё не освоил, то приходится спрашивать перед тем как советовать. <img src="//forum.script-coding.com/img/smilies/wink.png" width="15" height="15" /></p><div class="quotebox"><cite>no-coder пишет:</cite><blockquote><p>Уверен на все сто что код от патча не существует. А если да, то только в голове у кибер-доктора и код никак не может принять конкретные формы!</p></blockquote></div><p>Уважаемый <strong>abasov</strong> говорил лишь о том, что в юности мы все торопимся делать ошибки и только со временем люди начинают задумываться перед тем как их делать. Не имея в виду конкретно Вас. )</p><div class="quotebox"><cite>no-coder пишет:</cite><blockquote><p>я только просил совета по не<strong>_</strong>знакомой мне стихии, не более...<br />а если перейти на личности, тогда сравни правильный совет других</p></blockquote></div><p>Не смотря на банальность вопросов &quot;а почему именно так? Какова цель?&quot; именно ответы на них определяли выбор решения между тем что предложил <strong>abasov</strong> и я. В чём Вы сами и убедились. ) А если бы Вы начали с описания своей задачи, мы бы сэкономили на вопросах время и смогли бы сразу Вам помочь.</p><div class="quotebox"><cite>no-coder пишет:</cite><blockquote><p>всем пока!<br />модератор! можешь банить и удалять ветвь! разрешаю</p></blockquote></div><p>Ну зачем же так грубо ? ) Удалять тему я смысла особого не вижу (говорю за себя). В итоге обсуждения решение было найдено. А значит у последующих &quot;первооткрывателей&quot; будет шанс не наступать на теже грабли. )</p>]]></description>
			<author><![CDATA[null@example.com (Xameleon)]]></author>
			<pubDate>Sat, 19 Nov 2011 11:30:55 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53678#p53678</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53660#p53660</link>
			<description><![CDATA[<div class="quotebox"><cite>abasov пишет:</cite><blockquote><div class="quotebox"><cite>alexii пишет:</cite><blockquote><p>Очевидно, я разучился задавать вопросы, коль их не понимают.</p></blockquote></div><p>По юности торопятся, патчится поверьте, но к сожалению не у всех.</p></blockquote></div><div class="quotebox"><cite>abasov пишет:</cite><blockquote><p>По юности торопятся</p></blockquote></div><p>Ошибка! Не по юности а по нехватке времени и работе не в родной стихии</p><div class="quotebox"><cite>abasov пишет:</cite><blockquote><p>патчится поверьте</p></blockquote></div><p>Уверен на все сто что код от патча не существует. А если да, то только в голове у кибер-доктора и код никак не может принять конкретные формы!</p><div class="quotebox"><cite>abasov пишет:</cite><blockquote><p>но к сожалению не у всех</p></blockquote></div><p><strong>abasov</strong> я только просил совета по не знакомой мне стихии, не более...<br />а если перейти на личности, тогда сравни правильный совет других</p><div class="codebox"><pre><code>var pict=new Image;
pict.src=&quot;file.jpg&quot;;
document.images[0].src=pict.src;</code></pre></div><p>все просто! загрузка и динамическая привязка</p><p>с Вашим советом (не хочю обижать Xameleon-а)</p><div class="codebox"><pre><code>&lt;BODY leftmargin=0 topmargin=0 rightmargin=0 bottommargin=0&gt;
    &lt;OBJECT id=&quot;Form1&quot; style=&quot;width:100%;height:100%;&quot; classid=&quot;clsid:C62A69F0-16DC-11CE-9E98-00AA00574A4F&quot;&gt;&lt;/OBJECT&gt;
&lt;/BODY&gt;
&lt;SCRIPT language=vbscript&gt;
    Dim TextBox1
    Set TextBox1 = Form1.Controls.Add(&quot;Forms.TextBox.1&quot;, &quot;TextBox1&quot;, True)
    TextBox1.left = 10
    TextBox1.top = 20
    TextBox1.width = 100
    Dim Image1
    Set Image1 = Form1.Controls.Add(&quot;Forms.Image.1&quot;, &quot;Image1&quot;, True)
    Image1.left = 50
    Image1.top = 50
    Image1.width = 320
    Image1.height = 240
    Set Image1.Picture = LoadPicture(&quot;C:\windows\Web\Wallpaper\Windows XP.jpg&quot;)
    Const fmPictureSizeModeClip = 0 &#039;Crops any part of the picture that is larger than the form or page (default).
    Const fmPictureSizeModeStretch = 1 &#039;Stretches the picture to fill the form or page. This setting distorts the picture in either the horizontal or vertical direction.
    Const fmPictureSizeModeZoom = 3 &#039;Enlarges the picture, but does not distort the picture in either the horizontal or vertical direction. 
    Image1.PictureSizeMode = fmPictureSizeModeStretch
&lt;/SCRIPT&gt;</code></pre></div><p>что круче ?</p><p>всем пока!<br />модератор! можешь банить и удалять ветвь! разрешаю</p>]]></description>
			<author><![CDATA[null@example.com (no-coder)]]></author>
			<pubDate>Sat, 19 Nov 2011 03:05:22 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53660#p53660</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53659#p53659</link>
			<description><![CDATA[<div class="quotebox"><cite>alexii пишет:</cite><blockquote><p>Очевидно, я разучился задавать вопросы, коль их не понимают.</p></blockquote></div><p>Если <strong>alexii</strong> обиделся, извиняюсь <img src="//forum.script-coding.com/img/smilies/smile.png" width="15" height="15" /><br />Но и мне показался банальным &quot;а почему именно так? Какова цель?&quot;. <br />Ну какова может быть цель загрузки изображения в память с последующей динамической привязкой к тэгу? Только динамическая привязка к тэгу!</p><p>Какова цель?<br />В чистом DHTML-е (без ничего стороннего и подгруженного) имитировать спрайтовую анимацию из векторных картинок с возможностью динамически масштабировать спрайты в зависимости от размера экрана. CSS-спрайты (методом style=&quot;background-image:url(); background-position:Xpx Ypx&quot;) работают, но не масштабируются. Пришлось каждую фазу спрайта в отдельный файл (благо вектор весит мало), все грузить в память и по алгоритму анимировать. Все заработало.</p>]]></description>
			<author><![CDATA[null@example.com (no-coder)]]></author>
			<pubDate>Sat, 19 Nov 2011 02:39:14 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53659#p53659</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53638#p53638</link>
			<description><![CDATA[<div class="quotebox"><cite>alexii пишет:</cite><blockquote><p>Очевидно, я разучился задавать вопросы, коль их не понимают.</p></blockquote></div><p>По юности торопятся, патчится поверьте, но к сожалению не у всех.</p>]]></description>
			<author><![CDATA[null@example.com (abasov)]]></author>
			<pubDate>Fri, 18 Nov 2011 08:40:10 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53638#p53638</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53635#p53635</link>
			<description><![CDATA[<p>Очевидно, я разучился задавать вопросы, коль их не понимают.</p>]]></description>
			<author><![CDATA[null@example.com (alexii)]]></author>
			<pubDate>Fri, 18 Nov 2011 06:54:47 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53635#p53635</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53633#p53633</link>
			<description><![CDATA[<div class="quotebox"><cite>alexii пишет:</cite><blockquote><p><strong>no-coder</strong>, а почему именно так? Какова цель?</p></blockquote></div><p>нашел... жаль что JavaScript но и это выход</p><p>var myimg=new Image;<br />myimg.src=”file.jpg”;<br />document.images[0].src=myimg.src;</p>]]></description>
			<author><![CDATA[null@example.com (no-coder)]]></author>
			<pubDate>Fri, 18 Nov 2011 03:07:09 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53633#p53633</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53604#p53604</link>
			<description><![CDATA[<p><strong>no-coder</strong>, а почему именно так? Какова цель?</p>]]></description>
			<author><![CDATA[null@example.com (alexii)]]></author>
			<pubDate>Thu, 17 Nov 2011 07:17:19 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53604#p53604</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53597#p53597</link>
			<description><![CDATA[<p>Буду признателен всем кто даст ссылку на пример динамической привязки загруженного в память (или в контрол, неважно) изображения к src свойству тэга IMG. Если это вообще возможно в DHTML...<br />То что нашел в инете (код ниже) не работает.<br />Юзать Form для меня не выход.</p><div class="codebox"><pre><code>&lt;HTML&gt;
&lt;HEAD&gt;&lt;HTA&gt;&lt;/head&gt;

&lt;script language=&quot;VBScript&quot;&gt;
function load_image()
    dim pictures
    set pictures = CreateObject(&quot;MSComctlLib.ImageListCtrl.2&quot;)
    pictures.ListImages.add  1, &quot;Pict1&quot;, LoadPicture(&quot;ttt.jpg&quot;)
    img1.src=pictures.ListImages(1)
end function
&lt;/script&gt;

&lt;body id=&quot;mybody&quot; onload=&quot;load_image()&quot;&gt;

&lt;img id=&quot;img1&quot; src=&quot;&quot; style=&quot;width:300px; height:300px&quot;&gt;

&lt;/body&gt;&lt;/html&gt;</code></pre></div>]]></description>
			<author><![CDATA[null@example.com (no-coder)]]></author>
			<pubDate>Thu, 17 Nov 2011 05:53:27 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53597#p53597</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53578#p53578</link>
			<description><![CDATA[<p><strong>2 no-coder:</strong> Если не секрет, для каких целей подгрузка в память ? Для определения размеров ? Если да, то вроде бы можно в скрытом режиме подгружать их в IMG [style=&quot;visibility:hidden&quot; или style=&quot;display:none&quot;], но сам IMG не показывать. Не уверен. Надо поэкспериментировать.</p><p><strong>2 abasov:</strong> <br /></p><div class="quotebox"><cite>abasov пишет:</cite><blockquote><p>Здесь Xameleon уже демонстрировал</p></blockquote></div><p>OFF: Ух ты ! Прикольно <img src="//forum.script-coding.com/img/smilies/smile.png" width="15" height="15" /> А я уж и забыл, что такие функции есть.</p>]]></description>
			<author><![CDATA[null@example.com (Xameleon)]]></author>
			<pubDate>Wed, 16 Nov 2011 19:41:15 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53578#p53578</guid>
		</item>
		<item>
			<title><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link>https://forum.script-coding.com/viewtopic.php?pid=53569#p53569</link>
			<description><![CDATA[<div class="quotebox"><cite>no-coder пишет:</cite><blockquote><p>Помогите понять в чем моя ошибка</p></blockquote></div><div class="quotebox"><blockquote><p><strong>IHTMLImgElement::src Property</strong></p><p>Sets or retrieves a <strong><span style="color: red">URL</span></strong> to be loaded by the object. <br />…</p></blockquote></div><p>а LoadPicture() возвращает IPicture.</p>]]></description>
			<author><![CDATA[null@example.com (alexii)]]></author>
			<pubDate>Wed, 16 Nov 2011 15:01:03 +0000</pubDate>
			<guid>https://forum.script-coding.com/viewtopic.php?pid=53569#p53569</guid>
		</item>
	</channel>
</rss>
