Тема: Динамическое меню InnerHTML
Прошу Вашей помощи.
Хочу организовать динамическое меню, но что-то не получается. Ну допустим нажимаем на первую кнопку появляется вторая кнопка, а после того как нажимаем на вторую кнопку появляется первая кнопка, но в нашем случае ничего этого не получается кнопка перестает работать после нажатия.
<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-я кнопки, но уже данные кнопки становятся нерабочие.
Вот код примера:
<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>

