Есть такой пример:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
-----------------------------------------------------------------------------------------------
Пример использования объекта htmlDlgHelper для вызова стандартного диалога выбора цвета.
Платформа: HTA, Язык: VBScript, ОС WIn98 4 . 10 . 2222 , WinXP SP2 5 . 1 . 2600
-----------------------------------------------------------------------------------------------
<HTML>
<meta
http-equiv=Content-Type
content="text/html;charset=windows-1251"
>
<TITLE>Пример htmlDlgHelper</TITLE>
<HEAD>
<HTA:APPLICATION
ID="m4"
APPLICATIONNAME="dlgHelper"
/>
</HEAD>
<BODY SCROLL="NO">
<OBJECT ID="Helper">
</OBJECT>
<INPUT TYPE=BUTTON ID="Button1" style="width=200;"
VALUE="Выбор цвета"
onclick='chooseBgColor();'
>
<SCRIPT Language="VBScript">
'-----------------------------------------------------------------------------------------------
'OLE объект HtmlDlgHelper.HtmlDlgHelper
'Идентификатор класса 3050f4e1-98b5-11cf-bb82-00aa00bdce0b
'Библиотека mshtmled.dll
'-----------------------------------------------------------------------------------------------
Helper.classid="CLSID:3050f4e1-98b5-11cf-bb82-00aa00bdce0b"
Helper.style.height=0
Helper.style.width=0
'----------------------------------------------------------
'Стандартный диалог выбора цвета
function chooseBgColor()
On Error Resume Next
'------------------------------------
color=Helper.choosecolordlg()
'Цвет возвращается десятичным числом
'в формате BGR
'------------------------------------
if color=0 then Exit Function
color=hex(color)
if len(color)=2 then
r=right(color,2)
g="00"
b="00"
end If
if len(color)=4 then
r=right(color,2)
g=left(color,2)
b="00"
end If
if len(color)=6 then
r=right(color,2)
g=mid(color,3,2)
b=left(color,2)
end If
color=r & g & b
'-------------------------------------
'Присвоение цвета объекту
document.body.style.backgroundColor=color
MsgBox _
"Выбран следующий цвет(HEX): [" & color & "]", _
vbInformation, _
"Выбор цвета"
end function
</SCRIPT>
</BODY>
</HTML>
Работает нормально, вот токо один минус, может кто знает как сделать, этот диалог все время выводится в позиции 0:0 в експлорере, тоисть в верхнем левом углу. Как сделать так чтобы сам мог позиционировать этот диалог в бровзере?
