A basic HTA template

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

A basic HTA template

Logged in as: Guest

arrSession:exec spGetSession 2,16,40543

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> A basic HTA template
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

A basic HTA template - 12/6/2006 11:52:02 PM

ginolard

Posts: 1021
Score: 21
Joined: 8/10/2005
Status: offline

I thought this might prove useful to the HTA virigins amongst you. It's a very basic HTA template that demonstrates some of the most common DHTML objects

<html>

<title>HTA template</title>
<head>

<HTA:APPLICATION 
   APPLICATIONNAME="HTA Template"
   SCROLL="yes"
   SINGLEINSTANCE="yes"
   WINDOWSTATE="normal"
   
>
</head>

<style>

BODY
{
      background-color: buttonface;
         Font: arial,sans-serif
      margin-top: 10px;`
      margin-left: 20px;
      margin-right: 20px;
      margin-bottom: 5px;
}
.button
{
      
      width: 91px;
      height: 25px;
      font-family: arial,sans-serif;
      font-size: 8pt;
}

td
{
      font-family: arial,sans-serif;
      font-size: 10pt;
      
}                     
#scroll
{
   height:100%;
   overflow:auto;
}

SELECT.FixedWidth 
{
 width: 17em;  /* maybe use px for pixels or pt for points here */
}

</style>

'Here we add values to the Combobox called ComboBox1
Set objOption = Document.createElement("OPTION")
objOption.Text = "FuzzyWuzzyBunny"
objOption.Value ="FuzzyWuzzyBunny"
ComboBox1.Add(objOption)
Set objOption = Document.createElement("OPTION")
objOption.Text = "FuzzyWuzzyKitten"
objOption.Value ="FuzzyWuzzyKitten"
ComboBox1.Add(objOption)

TextArea.InnerText="This is a text area"

End Sub

Sub ButtonClick

MsgBox "You clicked a button!"

End Sub

Sub ChangeSpanArea
If Not SpanArea.InnerText = "Text has been changed.  Click the button again to change it back" Then
  SpanArea.InnerText="Text has been changed.  Click the button again to change it back"
Else
  SpanArea.InnerText="Click the ChangeSpanArea button to change this text"
End If

End Sub

Sub ComboBoxChange

MsgBox "The Value of the Combobox is currently " &  ComboBox1.Value

End Sub

Sub CheckBoxChange
  If CheckBox.Checked Then
      MsgBox "CheckBox is checked"
  Else
      MsgBox "CheckBox is not checked"
  End If
End Sub

Sub CheckRadioButtons

End Sub
</script>

<body>
<input class="button" TYPE=BUTTON value="TestButton" name="btnTestButton"  onClick="ButtonClick">
<input class="button" TYPE=BUTTON value="ChangeSpanArea" name="btnChangeSpanArea"  onClick="ChangeSpanArea">
<br>
<br>
<select size="1" class="FixedWidth" name="ComboBox1" onchange="ComboBoxChange()"></select>
<br>
<br>
  <table width="95%" border>
      <tr>
          <td width="20%" valign="top"><b>Row 1 Cell 1:</b></td>
          <td width="75%" valign="top">Row 1 Cell 2</td></tr>
      <tr>
      
      <tr>
          <td width="20%" valign="top"><b>Row 2 Cell 1:</b></td>
          <td width="75%" valign="top">Row 2 Cell 2</td></tr>
      <tr>
      
      <tr>
          <td width="20%" valign="top"><b>Row 3 Cell 1:</b></td>
          <td width="75%" valign="top">Row 3 Cell 2</td></tr>
      <tr>
      
      
  </table>
<br><br>
<span id="SpanArea" class="FixedWidth">Click the ChangeSpanArea button to change this text</span>
<br>
<br>
<input type="checkbox" name="CheckBox" title="This is a checkbox" onclick="CheckBoxChange"> Click the checkbox
<br>
<br>
<input type="radio" name="Radio" title="This is a Radio button" onclick="CheckRadioButtons" CHECKED>
<input type="radio" name="Radio" title="This is a Radio button" onclick="CheckRadioButtons"> These are radio buttons
<BR>
<textarea style="overflow:auto" rows="7" name="TextArea" cols="70"></textarea><P align="right">

</body>
</html>

< Message edited by ginolard -- 12/7/2006 12:30:08 AM >

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

Revisions: 1 | Post #: 1

RE: A basic HTA template - 12/7/2006 12:25:16 AM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

what happened to the closing code tag [/code]

(in reply to ginolard)

Post #: 2

RE: A basic HTA template - 12/7/2006 2:06:18 AM

Country73

Posts: 712
Score: 8
Joined: 8/25/2004
From: USA
Status: offline

Noticed you didn't have anything setup in the SUB for the Radio Buttons. (What you don't like Radio Buttons that much?)

Added the "Value" to the radio buttons:
<input type="radio" name="Radio" title="This is a Radio button" value="RadioOne" onclick="CheckRadioButtons" CHECKED>
<input type="radio" name="Radio" title="This is a Radio button" value="RadioTwo" onclick="CheckRadioButtons"> These are radio buttons

Then added this small bit of code to the "Sub CheckRadioButtons"
   If Radio(0).Checked THEN
       MsgBox Radio(0).Value
   ELSE
       MsgBox Radio(1).Value
   END IF

<html>

<title>HTA template</title>
<head>

<HTA:APPLICATION
  APPLICATIONNAME="HTA Template"
  SCROLL="yes"
  SINGLEINSTANCE="yes"
  WINDOWSTATE="normal"

>
</head>

<style>

BODY
{
     background-color: buttonface;
        Font: arial,sans-serif
     margin-top: 10px;`
     margin-left: 20px;
     margin-right: 20px;
     margin-bottom: 5px;
}
.button
{

width: 91px;
     height: 25px;
     font-family: arial,sans-serif;
     font-size: 8pt;
}

td
{
     font-family: arial,sans-serif;
     font-size: 10pt;

}
#scroll
{
  height:100%;
  overflow:auto;
}

SELECT.FixedWidth
{
width: 17em;  /* maybe use px for pixels or pt for points here */
}

</style>

TextArea.InnerText="This is a text area"

End Sub

Sub ButtonClick

MsgBox "You clicked a button!"

End Sub

Sub ChangeSpanArea
If Not SpanArea.InnerText = "Text has been changed.  Click the button again to change it back" Then
 SpanArea.InnerText="Text has been changed.  Click the button again to change it back"
Else
 SpanArea.InnerText="Click the ChangeSpanArea button to change this text"
End If

End Sub

Sub ComboBoxChange

MsgBox "The Value of the Combobox is currently " &  ComboBox1.Value

End Sub

Sub CheckBoxChange
 If CheckBox.Checked Then
     MsgBox "CheckBox is checked"
 Else
     MsgBox "CheckBox is not checked"
 End If
End Sub

Sub CheckRadioButtons
   If Radio(0).Checked THEN
       MsgBox Radio(0).Value
   ELSE
       MsgBox Radio(1).Value
   END IF
End Sub
</script>

<tr>
         <td width="20%" valign="top"><b>Row 3 Cell 1:</b></td>
         <td width="75%" valign="top">Row 3 Cell 2</td></tr>
     <tr>
 </table>
<br><br>
<span id="SpanArea" class="FixedWidth">Click the ChangeSpanArea button to change this text</span>
<br>
<br>
<input type="checkbox" name="CheckBox" title="This is a checkbox" onclick="CheckBoxChange"> Click the checkbox
<br>
<br>
<input type="radio" name="Radio" title="This is a Radio button" value="RadioOne" onclick="CheckRadioButtons" CHECKED>
<input type="radio" name="Radio" title="This is a Radio button" value="RadioTwo" onclick="CheckRadioButtons"> These are radio buttons
<BR>
<textarea style="overflow:auto" rows="7" name="TextArea" cols="70"></textarea><P align="right">

</body>
</html>

(in reply to ginolard)

Post #: 3

RE: A basic HTA template - 12/7/2006 2:38:50 AM

ginolard

Posts: 1021
Score: 21
Joined: 8/10/2005
Status: offline

OOps. I even created the Sub for it too!

Anyway, this is meant to be a constantly-updating template. There are loads of other objects that can be added.

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to Country73)

Post #: 4

RE: A basic HTA template - 12/12/2006 5:09:41 AM

Snipah

Posts: 1341
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

Cool,

I would like to see the full list with all the Attributes/Properties of the HTA, and while at it, the list of HTML Attributes aswell:

HTA: http://msdn.microsoft.com/library/default.asp?url=/workshop/author/hta/reference/hta_ref_entry.asp

HTML: http://msdn.microsoft.com/workshop/author/dhtml/reference/dhtml_reference_entry.asp

You can provide the HTML portion with a link, but make sure that the Template holds all links/references to get ahead...

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to ginolard)

Revisions: 1 | Post #: 5

RE: A basic HTA template - 12/12/2006 10:33:40 PM

ginolard

Posts: 1021
Score: 21
Joined: 8/10/2005
Status: offline

Would like you that on your desk by 9am tomorrow morning Sir?

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to Snipah)

Post #: 6

RE: A basic HTA template - 12/21/2006 1:25:02 AM

ickleric

Posts: 88
Score: 0
Joined: 11/15/2006
Status: offline

with the textarea when you submit it adds the text to the textfile. Is there anyway of when you submit it overwrites anything already in the text file?

(in reply to ginolard)

Post #: 7

RE: A basic HTA template - 12/21/2006 1:27:35 AM

ickleric

Posts: 88
Score: 0
Joined: 11/15/2006
Status: offline

never mind i've worked it out now.

although i would like to know, is there anyway of displaying the contents of the text file in a textarea?

thanks

(in reply to ickleric)

Post #: 8

RE: A basic HTA template - 12/26/2006 7:32:37 PM

ginolard

Posts: 1021
Score: 21
Joined: 8/10/2005
Status: offline

Updated version with a button that fills the text area with the contents of an input file.

<html>

<title>HTA template</title>
<head>

<HTA:APPLICATION
 APPLICATIONNAME="HTA Template"
 SCROLL="yes"
 SINGLEINSTANCE="yes"
 WINDOWSTATE="normal"

>
</head>

<style>

BODY
{
   background-color: buttonface;
      Font: arial,sans-serif
   margin-top: 10px;`
   margin-left: 20px;
   margin-right: 20px;
   margin-bottom: 5px;
}
.button
{

width: 91px;
   height: 25px;
   font-family: arial,sans-serif;
   font-size: 8pt;
}

td
{
   font-family: arial,sans-serif;
   font-size: 10pt;

}
#scroll
{
 height:100%;
 overflow:auto;
}

SELECT.FixedWidth
{
width: 17em;  /* maybe use px for pixels or pt for points here */
}

</style>

TextArea.InnerText="This is a text area"

End Sub

Sub ButtonClick

MsgBox "You clicked a button!"

End Sub

Sub ChangeSpanArea
If Not SpanArea.InnerText = "Text has been changed.  Click the button again to change it back" Then
SpanArea.InnerText="Text has been changed.  Click the button again to change it back"
Else
SpanArea.InnerText="Click the ChangeSpanArea button to change this text"
End If

End Sub

Sub ComboBoxChange

MsgBox "The Value of the Combobox is currently " &  ComboBox1.Value

End Sub

Sub FillTextArea

Set objFSO=CreateObject("Scripting.FileSystemObject")
TextArea.InnerText=objFSO.OpenTextFile("c:\temp\test.txt",1).ReadAll

End Sub

Sub CheckBoxChange
If CheckBox.Checked Then
   MsgBox "CheckBox is checked"
Else
   MsgBox "CheckBox is not checked"
End If
End Sub

Sub CheckRadioButtons
 If Radio(0).Checked THEN
     MsgBox Radio(0).Value
 ELSE
     MsgBox Radio(1).Value
 END IF
End Sub
</script>

<tr>
       <td width="20%" valign="top"><b>Row 3 Cell 1:</b></td>
       <td width="75%" valign="top">Row 3 Cell 2</td></tr>
   <tr>
</table>
<br><br>
<span id="SpanArea" class="FixedWidth">Click the ChangeSpanArea button to change this text</span>
<br>
<br>
<input type="checkbox" name="CheckBox" title="This is a checkbox" onclick="CheckBoxChange"> Click the checkbox
<br>
<br>
<input type="radio" name="Radio" title="This is a Radio button" value="RadioOne" onclick="CheckRadioButtons" CHECKED>
<input type="radio" name="Radio" title="This is a Radio button" value="RadioTwo" onclick="CheckRadioButtons"> These are radio buttons
<BR>
<textarea style="overflow:auto" rows="7" name="TextArea" cols="70"></textarea><P align="right">

</body>
</html>

< Message edited by Country73 -- 3/30/2007 5:28:53 AM >

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to ickleric)