<![CDATA[Серый форум — HTA: Иконки из shell32.dll в ImageList Activex control]]> https://forum.script-coding.com/viewtopic.php?id=8229 Thu, 11 Apr 2013 22:07:43 +0000 PunBB <![CDATA[Re: HTA: Иконки из shell32.dll в ImageList Activex control]]> https://forum.script-coding.com/viewtopic.php?pid=71306#p71306 Win7x32 - на res:// не реагирует... Иконка остаётся умолчательной. А я уже, было, обрадовался.

]]> Thu, 11 Apr 2013 22:07:43 +0000 https://forum.script-coding.com/viewtopic.php?pid=71306#p71306 <![CDATA[HTA: Иконки из shell32.dll в ImageList Activex control]]> https://forum.script-coding.com/viewtopic.php?pid=71280#p71280 Уважаемые форумчане, возможно ли передать ссылку на картинку (иконку) из shell32.dll в imagelist? Сам HTA вполне нормально относится к псевдопротоколу res://, но контрол, в частности LoadPicture() не хочет его понимать. Может надо через GetObject? Ниже код примера:

<HTML>
<HEAD>
<META HTTP-EQUIV=Content-Type content='text/html;charset=windows-1251'>
<TITLE>Пример ImageList в HTA</TITLE>
<HTA:APPLICATION ID="ImgList"
     ApplicationName = "ImgList_HTA"
     ICON="res://shell32.dll/2/230"
     BORDER = "thin"
     INNERBORDER = "no"
     CONTEXTMENU = "no"
     MAXIMIZEBUTTON = "no"
     MinimizeButton = "no"
     SysMenu = "yes"
     SELECTION = "no"
     SHOWINTASKBAR = "yes"
     SCROLL = "no"
     SINGLEINSTANCE="yes"
     WindowState = "Normal"
     />

<object classid="clsid:2C247F23-8591-11D1-B16A-00C0F0283628" 
id="ImageList" width="32" height="32"> 
  <param name="_ExtentX" value="946"> 
  <param name="_ExtentY" value="946"> 
  <param name="BackColor" value="-2147483643"> 
  <param name="ImageWidth" value="16"> 
  <param name="ImageHeight" value="16"> 
  <param name="MaskColor" value="12632256"> 
  <param name="UseMaskColor" value="-1"> 
  <param name="_Version" value="393216"> 
</object> 
<SCRIPT language = "VBScript">
'ImageList.ListImages.Add ,,LoadPicture("D:\Images\1.ico")

'ImageList.ListImages.Add ,,LoadPicture(GetObject("res://C:\WINDOWS\system32\shell32.dll/2/230"))
ImageList.ListImages.Add ,,LoadPicture("res://C:\WINDOWS\system32\shell32.dll/2/230")


</SCRIPT>
</HEAD>
<BODY bgcolor = "#EEEEEE">
<TABLE style = width:100%>
<TR><TD><IMG src="res://shell32.dll/2/230"></TD></TR>
</TABLE>
</BODY>
</HTML>
]]> Thu, 11 Apr 2013 10:38:10 +0000 https://forum.script-coding.com/viewtopic.php?pid=71280#p71280