Form Button/Checkbox properties & cell expansion question

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Form Button/Checkbox properties & cell expansion question

Logged in as: Guest

arrSession:exec spGetSession 2,2,39673

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Form Button/Checkbox properties & cell expansion question
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Form Button/Checkbox properties & cell expansion question - 11/13/2006 1:58:55 PM

aztarac

Posts: 5
Score: 0
Joined: 11/2/2006
Status: offline

Hi Y'all !!

3 questions which are bugging me. I'm a VBS newbie working on a HTML page.

Is it possible using VBScript client-side to somehow hide from view a checkbox/button?

Is it possible to have a checkbox/button somehow 'dim' so it cannot be clicked?

I have a cell in a table. I have its size fixed by Pixel but when I dynamically change the cells text contents the cell expands..... is there something I'm missing?

Please help!

Thanks in advance.

< Message edited by aztarac -- 11/13/2006 2:19:49 PM >

Post #: 1

RE: Form Button/Checkbox properties & cell expansion qu... - 11/13/2006 7:05:19 PM

ehvbs

Posts: 2169
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi aztarac,

try this:

<html>
  <head>
   <hta:application id = "mixdyn"
   />
   <title>misc dynamics</title>
   <meta http-equiv = "content-script-type" content = "text/vbscript"/>
   <script language = "VBScript"
           type     = "text/vbscript"
   >
 '<![CDATA[
 
 ''=
 ' Is it possible using VBScript client-side to somehow hide from view a checkbox/button?
 ' Is it possible to have a checkbox/button somehow 'dim' so it cannot be clicked?
 ' I have a cell in a table. I have its size fixed by Pixel but when I dynamically change
 ' the cells text contents the cell expands.
 ' http://msdn2.microsoft.com/en-US/library/ms530824.aspx
 ' ============================================================================
 Sub switchIt()
   Dim oElm
 
   Set oElm = document.GetElementById( "divDisp" )
   If "to be replaced" = Trim( oElm.innerText ) Then
      oElm.innerText = "to be replaced with a long string"
   Else
      oElm.innerText = "to be replaced"
   End If
 
   Set oElm = document.GetElementById( "cbxTemp" )
   If "block" = oElm.style.display Then
      oElm.style.display = "none"
   Else
      oElm.style.display = "block"
   End If
 
   Set oElm = document.GetElementById( "bttTemp" )
   If oElm.disabled Then
      oElm.disabled = False
   Else
      oElm.disabled = True
   End If
 
 End Sub
 
 ''= refreshes the HTA page, which includes re-running any Windows_Onload code
 ' ============================================================================
 Sub reloadHTA()
   location.reload True
 End Sub
 
 ']]>
   </script>
  </head>
  <body>
   <form>
    <table border = "1">
     <tr>
      <td>
       <div id = "divDisp" style = "width:130px;height:20px;overflow:hidden">
        to be replaced
       </div>
      </td>
     </tr>
     <tr>
      <td>
       <input type = "BUTTON" onclick = "switchIt()" value = "switch">
      </td>
     </tr>
     <tr>
      <td>
       <input type = "BUTTON" id = "bttTemp" onclick = "switchIt()" value = "active">
      </td>
     </tr>
     <tr>
      <td>
       <select id = "cbxTemp" size = "1" style = "display:block">
        <option>tritratrulala</option>
       </select>
      </td>
     </tr>
    </table>
    <hr />
    <input type = "BUTTON" value = "reload" onclick = "reloadHTA()">
   </form>
  </body>
 </html>

Good luck!

(in reply to aztarac)