Изменить цвет заголовка и фона

Question

Изменить цвет заголовка и фона

Как бы я сделал цвет заголовка и фон HTA, используя аргументы?

что-то вроде:

List.hta "ColorBG" "ColorTitle"

Заглавие:

<font color="#FFFFFF" Times New Roman" size="13"><center><B>List</b></center></font>

,

Мой полный код:

<html>
 <head>
  <title>My List</title>
 <HTA:Application
      Border= "thin"
      Application="/md/input"
      Scoll="NO"
      Singleinstance="Yes"
      SysMenu=NO
      Icon="%Windir%\System32\wscript.exe">
      ShowInTaskbar="Yes"
      Caption="Yes">
  <script type="text/vbscript">
Option Explicit
    Window.resizeTo 373,610
Const csFSpec = "List.txt"
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")

Sub Window_OnLoad()
Dim objFile
If goFS.FileExists(csFSpec) Then
    SET objFile = goFS.GetFile(csFSpec)
    If objFile.Size > 0 Then
        document.all.DataArea.value = goFS.OpenTextFile(csFSpec).ReadAll()
        document.all.DataArea.value = document.all.DataArea.value
    Else
        document.all.DataArea.value =""
    End If
Else

     self.close
  End If
End Sub

Sub SaveFile()

Dim objMM
Dim objFSOO
If document.all.DataArea.value = "" Then
Set objFSOO = CreateObject("Scripting.FileSystemObject")
Set objMM = objFSOO.CreateTextFile("List.txt")
     self.close
Else
document.all.DataArea.value = Replace(document.all.DataArea.value, "\", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, "/", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, ":", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, "*", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, "?", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, """", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, "<", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, ">", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, "|", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, "&", "_")
document.all.DataArea.value = Replace(document.all.DataArea.value, "!", "_")
  goFS.CreateTextFile(csFSpec).Write document.all.DataArea.value

  DIM objFSO
  DIM objFile
  DIM STRLINE
  DIM STRNEWCONTENTS

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("List.txt", ForReading)

Do Until objFile.AtEndOfStream
    strLine = objFile.Readline
    strLine = Trim(strLine)
    If Len(strLine) > 0 Then
        strNewContents = strNewContents & strLine & vbCrLf
    End If
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile("List.txt", ForWriting)
objFile.Write strNewContents
objFile.Close

     document.all.DataArea.value = goFS.OpenTextFile(csFSpec).ReadAll()
     document.all.DataArea.value = Replace(document.all.DataArea.value, vbcrlf,"|")
     document.all.DataArea.value = left(document.all.DataArea.value,len(document.all.DataArea.value)-1)
     document.all.DataArea.value = Replace(document.all.DataArea.value,"|",vbcrlf)
     goFS.CreateTextFile(csFSpec).Write document.all.DataArea.value

     self.close
  End if
End Sub

Sub QuitEdit()

     self.close
End Sub

Sub Redefine()

document.all.DataArea.value ="CD" & vbcrlf & "DISC" & vbcrlf & "MUSIC" & vbcrlf & "ALBUM"

End Sub

Sub Clean()

document.all.DataArea.value = ""

End Sub
  </script>
 </head>
<body style="overflow:hidden" bgColor="#000080"></body>
<caption></caption><hr></hr>
<font color="#FFFFFF" Times New Roman" size="13"><center><B>List</b></center></font>
<caption></caption><hr></hr>
     <TR><td>
<input style="background-color:#F0F0F0; color: #000000; border: 2px transparent; float: left;" type="BUTTON" value="Clean" class="btn" id="btna" onclick="Clean" onmouseover="btna.style.background = '#808080'" onmouseout="btna.style.background = '#F0F0F0'">
<input style="background-color:#F0F0F0; color: #000000; border: 2px transparent; float: right;" type="BUTTON" value="Redefine" class="btn" id="btnb" onclick="Redefine" onmouseover="btnb.style.background = '#808080'" onmouseout="btnb.style.background = '#F0F0F0'">
   </TR></td>
   <Table border="3"  style="width:100%; text-align: center" BORDERCOLOR=#F0F0F0>
   <TR><td>
  <form>
<textarea name="DataArea" rows="23" cols=37></textarea>  </Table>
   <TR><td>
   <p>
 <div align="right"><input style="background-color:#F0F0F0; color: #000000; border: 2px transparent" type="BUTTON" value=" OK " class="btn" id="btnc" onclick="SaveFile" onmouseover="btnc.style.background = '#808080'" onmouseout="btnc.style.background = '#F0F0F0'">
<input style="background-color:#F0F0F0; color: #000000; border: 2px transparent" type="BUTTON" value="Cancel" class="btn" id="btnd" onclick="QuitEdit" onmouseover="btnd.style.background = '#808080'" onmouseout="btnd.style.background = '#F0F0F0'">
   </div>
  </td></TR>
  </form>
 </body>
</html>

2

vbscript hta

Источник

user3732138 25 июн '15 в 02:57

1 ответ

Решение

Другие вопросы по тегам vbscript hta

user2237785 25 июн '15 в 12:06 2015-06-25 12:06 · Accepted Answer · 2015-06-25 12:06

Текст между <title> а также </title> не может быть в стиле. Он используется для установки заголовка окна Internet Explorer в строке заголовка / заголовка. Любой введенный вами текст будет трактоваться буквально.

Windows контролирует внешний вид всех панелей титров. Вы можете настроить их (глобально) в разделе "Внешний вид" или "Цвет Windows" апплета "Дисплей / персонализация" на панели управления. Например, "Активная строка заголовка" управляет шрифтом и цветами, которые Windows использует для текущего активного окна.

Редактировать:

Я перечитал твой вопрос, и звучит так, будто твой "заголовок" не является заголовком страницы (<title>), но только некоторый текст, который вы отображаете в верхней части страницы (который вы называете своим "заголовком").

Вы можете передавать аргументы в HTA, но их немного сложно разобрать. HTA имеют только CommandLine свойство, которое возвращает полную командную строку, включая полный путь к вашей HTA. Чтобы упростить задачу, большинство людей предпочитают заключать свои аргументы в кавычки, поэтому ваша командная строка может выглядеть так:

"c:\my folder\test.hta" "#ddd" "#f00"

Здесь мы передаем два аргумента (цвета HTML) в HTA. Чтобы получить их, мы можем разделить CommandLine собственность на цитаты (Chr(34)) и мы получим следующее:

a = Split(myhta.CommandLine, Chr(34))
a(0) = <blank>
a(1) = "c:\my folder\test.hta"
a(2) = " "
a(3) = "#ddd"
a(4) = " "
a(5) = "#f00"
a(6) = <blank>

Так, a(3) становится вашим первым аргументом и a(5) становится твоим вторым Теперь вы можете просто присвоить эти значения вашим HTML-элементам. style.backgroundColor а также style.color свойства.

Вот пример:

<head>
    <HTA:APPLICATION
        ID="htatest" 
        APPLICATIONNAME="HTA Test"
    >
</head>

<body>
    <span id="mytitle">This is a title</span>
</body>

<script language="VBScript">
    Sub Window_OnLoad()
        a = Split(htatest.CommandLine, Chr(34))
        mytitle.style.backgroundcolor = a(3)
        mytitle.style.color = a(5)
    End Sub
</script>