Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBScript/JScript/WSH/WMI/HTA

Войти
Регистрация
Восстановить пароль
 
wildwolf007
17 / 26 / 3
Регистрация: 11.10.2011
Сообщений: 378
Завершенные тесты: 1
#1

Динамические button с использованием HTA InnerHTML - VBScript/JScript

28.01.2014, 09:02. Просмотров 785. Ответов 0
Метки нет (Все метки)

Вопрос по работе button при помощи InnerHTML.
На одном форуме задавал такого плана вопрос до конца не смогли помочь.
Может у кого-то будут предложения или идеи ??

Хочу организовать динамическое меню, но что-то не получается. Ну допустим нажимаем на первую кнопку появляется вторая кнопка, а после того как нажимаем на вторую кнопку появляется первая кнопка, но в нашем случае ничего этого не получается кнопка перестает работать после нажатия.

HTML5
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
<html>
    <head>
        <title>Динамические кнопки</title>
        <hta:application
        Id = "oHTA"
        ApplicationName = "MyTestApplication"
        Border = "Dialog"
        Icon = "MyHTA_files\MyHTA.ico"
        InnerBorder = "No"
        MaximizeButton = "No"
        MinimizeButton = "No"
        Scroll = "No"
        Selection = "No"
        ShowInTaskBar = "No"
        SingleInstance = "Yes"
        />
    </head>
    
    <body>
        <div id="DynamicContent_Div">
            <input type="button" name="OK_1" id="OK_1" value="Первая кнопка">
        </div>
    </body>
    
    <script language="VBScript">
    
    
    Function OK_1_OnClick()
    MsgBox 1
    
    Dim Menu
    Menu = "<div id=""DynamicContent_Div"">"
    Menu = Menu & "<input type=""button"" name=""OK_2"" id=""OK_2"" value=""Вторая кнопка"">"
    Menu = Menu & "</div>"
    DynamicContent_Div.InnerHTML = Menu
    
    End Function
    
    Function OK_2_OnClick()
    MsgBox 2
    
    Dim Menu
    Menu = "<div id=""DynamicContent_Div"">"
    Menu = Menu & "<input type=""button"" name=""OK_1"" id=""OK_1"" value=""Первая кнопка"">"
    Menu = Menu & "</div>"
    DynamicContent_Div.InnerHTML = Menu
    
    End Function
    
    </script>
    
</html>


Описание как должно работать 2й пример:
Если нажать на первую кнопку должна показаться только вторая кнопка, а первая исчезнуть - работает, но после того как появляется вторая ее функционал уже недоступен. Тоже самое и со второй кнопкой.

Если нажать на кнопку 3 то исчезают первые 2 кнопки - работает, И потом если нажать на кнопку 4 то появляется 1-я и 2-я кнопки, но уже данные кнопки становятся нерабочие.

Вот код примера:

HTML5
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
<html>
    <head>
        <title>Динамические кнопки</title>
        <hta:application
        Id = "oHTA"
        ApplicationName = "MyTestApplication"
        Border = "Dialog"
        Icon = "MyHTA_files\MyHTA.ico"
        InnerBorder = "No"
        MaximizeButton = "No"
        MinimizeButton = "No"
        Scroll = "No"
        Selection = "No"
        ShowInTaskBar = "No"
        SingleInstance = "Yes"
        />
    </head>
    
    <body>
        <div id="DynamicContent_Div">
            <input type="button" name="OK_1" id="OK_1" value="Первая кнопка показывает сообщение 1">
            <input type="button" name="OK_2" id="OK_2" value="Вторая кнопка показывает сообщение 2">
        </div>    
        <div id="DynamicContent_Div_2">
            <input type="button" name="OK_3" id="OK_3" value="Третья кнопка убрает 1-ю и 2-ю кнопку">
            <input type="button" name="OK_4" id="OK_4" value="Четвертая кнопка показывает 1-ю и 2-ю кнопку и при нажатии на 1-ю и 2-ю кнопку функционал должен остаться">
        </div>
    </body>
    
    <script language="VBScript">
    
    
    Function OK_1_OnClick()
    MsgBox 1
    Dim Menu
    Menu = "<div id=""DynamicContent_Div"">"
    Menu = Menu & "<input type=""button"" name=""OK_2"" id=""OK_2"" value=""Вторая кнопка показывает сообщение 2"">"
    Menu = Menu & "</div>"
    DynamicContent_Div.InnerHTML = Menu
    End Function
    
    Function OK_2_OnClick()
    MsgBox 2
    Dim Menu
    Menu = "<div id=""DynamicContent_Div"">"
    Menu = Menu & "<input type=""button"" name=""OK_1"" id=""OK_1"" value=""Первая кнопка показывает сообщение 1"">"
    Menu = Menu & "</div>"
    DynamicContent_Div.InnerHTML = Menu
    End Function
    
    Function OK_3_OnClick()
    MsgBox 3
    Dim Menu
    Menu = " "
    DynamicContent_Div.InnerHTML = Menu
    End Function
    
    Function OK_4_OnClick()
    MsgBox 4
    Dim Menu
    Menu = "<div id=""DynamicContent_Div"">"
    Menu = Menu & "<input type=""button"" name=""OK_1"" id=""OK_1"" value=""Первая кнопка показывает сообщение 1"">"
    Menu = Menu & "<input type=""button"" name=""OK_2"" id=""OK_2"" value=""Вторая кнопка показывает сообщение 2"">"
    Menu = Menu & "</div>"
    DynamicContent_Div.InnerHTML = Menu
    End Function
    
    </script>
    
</html>
Добавлено через 10 часов 45 минут
Вопрос можно закрывать разобрался.

HTML5
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
<html>
    <head>
        <title>Динамические кнопки</title>
        <hta:application
        Id = "oHTA"
        ApplicationName = "MyTestApplication"
        Border = "Dialog"
        Icon = "MyHTA_files\MyHTA.ico"
        InnerBorder = "No"
        MaximizeButton = "No"
        MinimizeButton = "No"
        Scroll = "No"
        Selection = "No"
        ShowInTaskBar = "Yes"
        SingleInstance = "Yes"
        />
    </head>
    
    <style>
    /* По умолчанию делаем все кнопки класса "btn" скрытыми */
    .btn {
        display:none;
    }
    </style>
    
    <body>
        <div id="DynamicContent_Div">
            <button class="btn" id="btn1">Первая кнопка</button>
            <button class="btn" id="btn2">Вторая кнопка</button>
            <button class="btn" id="btn3">Третья кнопка</button>
        </div>
    </body>
    
    <script language="VBScript">
    Sub window_onload()
        Show btn1
    End Sub
    
    Sub btn1_onclick()
        MsgBox "Вы нажали первую кнопку"
        Hide btn1
        Show btn2
    End Sub
 
    Sub btn2_onclick()
        MsgBox "Ого ! А теперь нажали вторую O_o."
        Hide btn2
        Show btn3
    End Sub
 
    Sub btn3_onclick()
        MsgBox "Ну вы упёртый ! ! ! Вы нажали даже третью кнопку ! ! ! И что ж теперь делать ???!"
        Hide btn3
        Show btn1
    End Sub
    
    Sub Hide(Object)
        Object.style.display = "none"
    End Sub
    
    Sub Show(Object)
        Object.style.display = "inline"
    End Sub
    </script>
    
</html>
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2014, 09:02
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Динамические button с использованием HTA InnerHTML (VBScript/JScript):

HTA редактор форм - VBScript/JScript
Добрый день. Подскажите пожалуйста, может есть редактор в котром можно создавать hta формы: кнопочки. скоринги. лайблы, а самое...

Объединить hta и vbs - VBScript/JScript
Здравствуйте, понравился progressbar в hta &lt;html&gt; &lt;head&gt; &lt;title&gt;Обновление программы Выписка рецептов &lt;/title&gt; &lt;meta...

HTA Запуск HTA в скрытом режиме - VBScript/JScript
Доброго времени суток. Задача: запустить HTA скрытым, загрузить все, что нужно (5-10 сек), отобразить HTA.

HTA: ResizeTo - отказано в доступе - VBScript/JScript
Кросспост (на форуме скрипткодеров пока глухо), может здесь есть умные люди. Есть простейший код: &lt;head&gt; &lt;title&gt;My...

HTA Использование ADO в HTA-приложении - VBScript/JScript
Здравствуйте! Мне нужно HTA-приложение, отображающее с помощью ADO данные из mdb-базы данных. Мой код начинается так:&lt;script...

HTA-приложение с несколькими окнами - VBScript/JScript
Добрый день. Прошу помочь! Есть шаблон HTA-интерфейса с тремя кнопками. Мне нужно сделать кнопку &quot;Настройка&quot;, которая будет открывать...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2014, 09:02
Привет! Вот еще темы с ответами:

HTA: получение текста из буфера обмена - VBScript/JScript
Есть упрощенный скрипт HTA, в котором чтение из буфера вызывает ошибку: &lt;html&gt; &lt;head&gt; &lt;title&gt;SetClip&lt;/title&gt; &lt;HTA:APPLICATION...

Окно hta с полями ввода информации - VBScript/JScript
пытаюсь создать программку средствами hta и vbs (для авторизации пользователя для запуска программы на которую я поставлю пароль и логин)....

HTA, VBS: Ввод кода, по дате - VBScript/JScript
Здравствуйте, подскажите пожалуиста как сделать так, что-бы в HTA файле было, поле для ввода пароля и что-бы пароль зависел от даты! ...

JS HTA (Jscript) быстрая загрузка и выгрузка данных из txt? - VBScript/JScript
Технология старая, но только она доступа, HTA-приложение на Jscript (windows). Есть текстовый файл, который обрабатывается...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru