Ветеран
Сообщения: 27449
8087
Профиль
|
Отправить PM
| Цитировать
Вот Вам упрощённая болванка HTA:
читать дальше »
Код:
<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">
<meta http-equiv="MSThemeCompatible" content="yes">
<title>Sample title</title>
<hta:Application
Icon = "%SystemRoot%\System32\write.exe"
Id="oHTASample"
ApplicationName="HTA Sample"
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="1.0"
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{
float:Right;
clear:none;
}
.NonValid { color:FireBrick; }
#Status { font: xx-small; }
</style>
<script language="VBScript">
Option Explicit
'----------------------------------------------------------------------
Sub btnStart_OnClick
With document
.getElementByID("Status").innerText = "Идёт обработка…"
.getElementByID("SelFile").disabled = True
.getElementByID("TextField").disabled = True
.getElementByID("CheckBox1").disabled = True
.getElementByID("CheckBox2").disabled = True
.getElementByID("CheckBox3").disabled = True
.getElementByID("btnStart").disabled = True
.getElementByID("tagBody").style.cursor = "wait"
End With
' Опосредованно вызываем основную процедуру обработки документа
setTimeout "MainProc", 0
End Sub
'----------------------------------------------------------------------
'----------------------------------------------------------------------
' Основная процедура
'----------------------------------------------------------------------
Sub MainProc()
Dim strFileName
Dim strText
Dim boolCheckBox1, boolCheckBox2, boolCheckBox3
With document
strFileName = .getElementByID("SelFile").value
strText = .getElementByID("TextField").value
boolCheckBox1 = .getElementByID("CheckBox1").checked
boolCheckBox2 = .getElementByID("CheckBox2").checked
boolCheckBox3 = .getElementByID("CheckBox3").checked
End With
MsgBox _
"Текст:" & vbTab & strText & vbCrLf & _
"Файл:" & vbTab & strFileName & vbCrLf & _
"Переключатель1:" & vbTab & boolCheckBox1 & vbCrLf & _
"Переключатель2:" & vbTab & boolCheckBox2 & vbCrLf & _
"Переключатель3:" & vbTab & boolCheckBox3, _
vbOKOnly + vbInformation, "strText"
With document
.getElementByID("Status").innerText = ""
.getElementByID("SelFile").disabled = False
.getElementByID("TextField").disabled = False
.getElementByID("CheckBox1").disabled = False
.getElementByID("CheckBox2").disabled = False
.getElementByID("CheckBox3").disabled = False
.getElementByID("btnStart").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="lblSelFile">1. Укажите файл:</span></span>
<span Class="right"><input type="File" name="SelFile" value="" size="64"></span>
</span>
<span Class="Row">
<span Class="left"><span id="lblTextField">2. Введите текст:</span></span>
<span Class="right"><input type="Text" name="TextField" value="" size="40"></span>
</span>
<span Class="Row">
<span Class="left">3. Установите флажки:</span>
</span>
<span Class="Row">
<span Class="left">
<input type="CheckBox" name="CheckBox1">
<span id="lblCheckBox1">CheckBox1</span>
</span>
</span>
<span Class="Row">
<span Class="left">
<input type="CheckBox" name="CheckBox2">
<span id="lblCheckBox2">CheckBox2</span>
</span>
</span>
<span Class="Row">
<span Class="left">
<input type="CheckBox" name="CheckBox3">
<span id="lblCheckBox3">CheckBox3</span>
</span>
</span>
<span Class="Row">
<span Class="left"><span id="lblStart">4. Нажмите кнопку [Начать]</span></span>
<span Class="right"><input type="Button" name="btnStart" value="Начать"></span>
</span>
<hr Class="Row" />
<span Class="Row">
<span id="Status"> </span>
</span>
</body>
<script language="VBScript">
Option Explicit
With document
.getElementByID("CheckBox1").checked = False
.getElementByID("CheckBox2").checked = True
.getElementByID("CheckBox3").checked = False
End With
'Позиционирование и изменение размера окна
With window
.resizeTo tagBody.scrollWidth + 25, tagBody.scrollHeight + 32
.moveTo (.screen.availWidth - tagBody.offsetWidth) \ 2, (.screen.availHeight - tagBody.offsetHeight) \ 2
End With
</script>
</html>
Это сообщение посчитали полезным следующие участники:
Отправлено : 16:51, 08-03-2012
| #2
