Нужна помощь гуру / HTML, JavaScript, VBScript, CSS

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Нужна помощь гуру

1 сообщений из 1, страница 1 из 1

Нужна помощь гуру

#34478634

sancoma

Участник

Сообщения: 150

Рейтинг: 0 / 0

Есть такой пример:

Код: plaintext

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 в експлорере, тоисть в верхнем левом углу. Как сделать так чтобы сам мог позиционировать этот диалог в бровзере?

...

Рейтинг:

0 / 0

22.04.2007, 15:09

| Ответить | Цитировать | Написать

1 сообщений из 1, страница 1 из 1

Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Нужна помощь гуру

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=22&gotonew=1&tid=1458428]:	0ms
get settings:	14ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	53ms
get topic data:	10ms
get first new msg:	7ms
get forum data:	3ms
get page messages:	44ms
get tp. blocked users:	1ms
others:	13ms

total:	163ms