无法获得CSS格式和脚本以在HTA中协同工作

时间:2019-05-21 11:50:58

标签: css3 vbscript hta

由于元标记,我无法从HTA文件运行任何脚本。

如果我运行不带meta标记的应用程序,则CSS无法正常工作,但我可以运行脚本。当我包含meta标记时,我无法运行任何脚本(未定义),但是CSS很好

我已经尝试过使用不同的meta标签。 当我删除<meta http-equiv="x-ua-compatible" content="IE=edge">时,CSS不起作用,但是关闭脚本起作用。当我添加这段代码时,它显示错误:“ 'ExitForm' is undefined

<html>
<head>
<title>Checklist</title>

<meta http-equiv="x-ua-compatible" content="IE=edge">
<HTA:APPLICATION ID="objHTAHelpomatic" APPLICATIONNAME="Checklist" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="maximize" />

<style type="text/css">
.inputGroup {
  background-color: #fff;
  display: block;
  margin: 10px 0;
  position: relative;
}
.inputGroup label {
  padding: 12px 30px;
  width: 100%;
  display: block;
  text-align: left;
  color: #3c454c;
  cursor: pointer;
  position: relative;
  z-index: 2;
  transition: color 200ms ease-in;
  overflow: hidden;
}
.inputGroup label:before {
  width: 10px;
  height: 10px;
  border-radius: 50%;
  content: '';
  background-color: #5562eb;
  position: absolute;
  left: 50%;
  top: 50%;
  transform: translate(-50%, -50%) scale3d(1, 1, 1);
  transition: all 300ms cubic-bezier(0.4, 0, 0.2, 1);
  opacity: 0;
  z-index: -1;
}
.inputGroup label:after {
  width: 32px;
  height: 32px;
  content: '';
  border: 2px solid #d1d7dc;
  background-color: #fff;
  background-image: url("data:image/svg+xml,%3Csvg width='32' height='32' viewBox='0 0 32 32' xmlns='http://www.w3.org/2000/svg'%3E%3Cpath d='M5.414 11L4 12.414l5.414 5.414L20.828 6.414 19.414 5l-10 10z' fill='%23fff' fill-rule='nonzero'/%3E%3C/svg%3E ");
  background-repeat: no-repeat;
  background-position: 2px 3px;
  border-radius: 50%;
  z-index: 2;
  position: absolute;
  right: 30px;
  top: 50%;
  transform: translateY(-50%);
  cursor: pointer;
  transition: all 200ms ease-in;
}
.inputGroup input:checked ~ label {
  color: #fff;
}
.inputGroup input:checked ~ label:before {
  transform: translate(-50%, -50%) scale3d(56, 56, 1);
  opacity: 1;
}
.inputGroup input:checked ~ label:after {
  background-color: #54e0c7;
  border-color: #54e0c7;
}
.inputGroup input {
  width: 32px;
  height: 32px;
  order: 1;
  z-index: 2;
  position: absolute;
  right: 30px;
  top: 50%;
  transform: translateY(-50%);
  cursor: pointer;
  visibility: hidden;
}
.form {
  padding: 0 16px;
  max-width: 550px;
  margin: 50px auto;
  font-size: 18px;
  font-weight: 600;
  line-height: 36px;
}
body {
  background-color: #d1d7dc;
  font-family: 'Fira Sans', sans-serif;
}
*, *::before, *::after {
  box-sizing: inherit;
}
html {
  box-sizing: border-box;
}
code {
  background-color: #9aa3ac;
  padding: 0 8px;
}
</style>
</head>

<script Language="VBScript">
Sub ExitForm()
    Close
End Sub
</script>
<body>
<form class="form">
    <div class="inputGroup">
        <input id="option1" name="option1" type="checkbox" checked />
        <label for="option1">dupa</label>
    </div>
</form>
<input class="button" type="button" value="CLOSE" name="close"  onClick="ExitForm"><br>
</body>
</html>

0 个答案:

没有答案