[решено] Выпадающий список

Iska · Отправлено: **01:07, 04-05-2013** | #2

Код:

<html id="appHTML">
    <head>
        <meta charset="windows-1251">
        <meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
        <meta http-equiv="Content-Language" content="ru">
        <title>Выбор времени ожидания</title>
        <hta:Application
            Icon = "MyIco.ico"
            Id="oHTA"
            ApplicationName="Выбор времени ожидания"
            Border="normal"
            BorderStyle="normal"
            Caption="yes"
            ContextMenu="no"
            InnerBorder="yes"
            MaximizeButton="no"
            MinimizeButton="yes"
            Navigable="no"
            Scroll="auto"
            ScrollFlat="no"
            Selection="no"
            ShowInTaskbar="yes"
            SingleInstance="yes"
            SysMenu="yes"
            Version="0.1"
            WindowState="normal"
        />
        <style type="text/css">
            BODY {
                font: x-small Verdana, Arial, sans-serif;
                color: WindowText;
                background-color: ButtonFace;
            }
            .Row {
                clear:both;
            }
            .Left {
                float:Left;
                clear:none;
            }
            .Right, SELECT {
                float:Right;
                clear:none;
            }
        </style>
        
        <script language="VBScript">
            Option Explicit
            
            '----------------------------------------------------------------------
            Sub OK_OnClick
                With document
                    .getElementByID("Wait").disabled        = True
                    .getElementByID("OK").disabled          = True
                    
                    .getElementByID("tagBody").style.cursor = "wait"
                End With
                
                setTimeout "SetOK", 0
            End Sub
            '----------------------------------------------------------------------
            
            '----------------------------------------------------------------------
            Sub SetOK()
                With CreateObject("Scripting.FileSystemObject").CreateTextFile("timeout.txt", True)
                    .WriteLine document.getElementByID("Wait").value
                    .Close
                End With
                
                With document
                    .getElementByID("Wait").disabled        = False
                    .getElementByID("OK").disabled          = False
                    
                    .getElementByID("tagBody").style.cursor = "auto"
                End With
            End Sub
            '----------------------------------------------------------------------
        </script>
    </head>
    <body id="tagBody" scroll="auto">
        <span Class="Row">
            <span Class="left"><span id="lblChoice">Время ожидания: </span></span>
            <span Class="right">
                <select name="Wait" id="Wait" size="1">
                    <option value="5" selected>5 секунд
                    <option value="7">7 секунд
                    <option value="10">10 секунд
                    <option value="13">13 секунд
                    <option value="15">15 секунд
                </select>
            </span>
        </span>
        <span Class="Row">
            <span Class="left"><span id="lblOK">После выбора времени ожидания нажмите кнопку "OK"</span></span>
            <span Class="right"><input type="Button" name="OK" value="OK"></span>
        </span>
    </body>
    
    <script language="VBScript">
        With window
            .resizeTo tagBody.scrollWidth + 25, tagBody.scrollHeight + 32
            .moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
        End With
    </script>
</html>

Сохраните с расширением «.hta».