<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
	<link rel="self" href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=6446&amp;type=atom" />
	<updated>2011-11-20T15:33:22Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.script-coding.com/viewtopic.php?id=6446</id>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53717#p53717" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[Xameleon]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=8836</uri>
			</author>
			<updated>2011-11-20T15:33:22Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53717#p53717</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53714#p53714" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[mikser]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=24962</uri>
			</author>
			<updated>2011-11-20T13:29:23Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53714#p53714</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53712#p53712" />
			<content type="html"><![CDATA[<p><strong>mikser</strong>, это объект из комплекта офиса. )</p>]]></content>
			<author>
				<name><![CDATA[Xameleon]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=8836</uri>
			</author>
			<updated>2011-11-20T12:06:06Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53712#p53712</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53703#p53703" />
			<content type="html"><![CDATA[<p>Такого объекта clsid:C62A69F0-16DC-11CE-9E98-00AA00574A4F у меня на вин7 нету. Видимо эта активиксина ставится вместе с VBA.</p>]]></content>
			<author>
				<name><![CDATA[mikser]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=24962</uri>
			</author>
			<updated>2011-11-20T10:46:41Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53703#p53703</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53680#p53680" />
			<content type="html"><![CDATA[<p><strong>no-coder</strong>, Ваше решение решение абсолютно верное для DHTML: использование встроенного объекта JavaScript Image(). Вопрос сам по себе был элементарным. Возможно аудитория встала в тупик из-за требования к языку сценариев.</p>]]></content>
			<author>
				<name><![CDATA[JSmаn]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=24434</uri>
			</author>
			<updated>2011-11-19T11:45:03Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53680#p53680</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53678#p53678" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[Xameleon]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=8836</uri>
			</author>
			<updated>2011-11-19T11:30:55Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53678#p53678</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53660#p53660" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[no-coder]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=27361</uri>
			</author>
			<updated>2011-11-19T03:05:22Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53660#p53660</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53659#p53659" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[no-coder]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=27361</uri>
			</author>
			<updated>2011-11-19T02:39:14Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53659#p53659</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53638#p53638" />
			<content type="html"><![CDATA[<div class="quotebox"><cite>alexii пишет:</cite><blockquote><p>Очевидно, я разучился задавать вопросы, коль их не понимают.</p></blockquote></div><p>По юности торопятся, патчится поверьте, но к сожалению не у всех.</p>]]></content>
			<author>
				<name><![CDATA[abasov]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=5104</uri>
			</author>
			<updated>2011-11-18T08:40:10Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53638#p53638</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53635#p53635" />
			<content type="html"><![CDATA[<p>Очевидно, я разучился задавать вопросы, коль их не понимают.</p>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2011-11-18T06:54:47Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53635#p53635</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53633#p53633" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[no-coder]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=27361</uri>
			</author>
			<updated>2011-11-18T03:07:09Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53633#p53633</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53604#p53604" />
			<content type="html"><![CDATA[<p><strong>no-coder</strong>, а почему именно так? Какова цель?</p>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2011-11-17T07:17:19Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53604#p53604</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53597#p53597" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[no-coder]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=27361</uri>
			</author>
			<updated>2011-11-17T05:53:27Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53597#p53597</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53578#p53578" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[Xameleon]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=8836</uri>
			</author>
			<updated>2011-11-16T19:41:15Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53578#p53578</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: HTA/VBScript: Помогите справиться с функцией LoadPicture()]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=53569#p53569" />
			<content type="html"><![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>]]></content>
			<author>
				<name><![CDATA[alexii]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=1844</uri>
			</author>
			<updated>2011-11-16T15:01:03Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=53569#p53569</id>
		</entry>
</feed>
