Simple problem

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Simple problem

Logged in as: Guest

arrSession:exec spGetSession 2,2,48159

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Simple problem
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Simple problem - 6/11/2007 7:39:46 PM

phil999

Posts: 38
Score: 0
Joined: 5/4/2007
Status: offline

Hi I am struglling with a simple HTA problem.

1. I have a variable "site" which works out where in the world you are on our network via IP and displays a name of the site. What i would like to do is that only certain checkboxes dipalyed ie if you were from US then only checkbox1 and checkbox3 were visable in the HTA but if you were from UK then all 3 would be visable.

My checkboxes are in a sub testsub

Thanks in advance

Phil

< Message edited by phil999 -- 6/11/2007 7:48:20 PM >

Post #: 1

RE: Simple problem - 6/11/2007 8:25:04 PM

ginolard

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

Use Select Case to determine which checkboxes to hide

E.g

Select Case site
   Case "UK"
      checkbox1.Style.Visibility="Hidden"
   Case "US"
       checkbox2.Style.Visibility="Hidden"
.
.
.
.

End Select

_____________________________

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 phil999)

Post #: 2

RE: Simple problem - 6/12/2007 7:51:18 AM

phil999

Posts: 38
Score: 0
Joined: 5/4/2007
Status: offline

I am struggling with this.

So this is where i take case london



the london sub contains



The checkbox1 is setup



The html is

<input type="checkbox" name="Checkbox1"> Change IE Homepage to intraweb
<input id=runbutton class="button" type="button" value="Run" name="run_button" onClick="TestSub">

I am getting error on this line  Checkbox1.style.visibility="Hidden" and that is if i dim checkbox1 if i dont declare checkbox1 i get an undfinded error.

Any comments appreicated.

Phil

ps i should add this is in an hta

< Message edited by phil999 -- 6/12/2007 8:07:23 AM >

(in reply to ginolard)

Post #: 3

RE: Simple problem - 6/12/2007 8:22:36 AM

Fredledingue

Posts: 383
Score: 0
Joined: 5/9/2005
From:
Status: offline

CheckBox1.disabled = "True"

or

document.all.CheckBox1. etc

===> would be nice to now what the error is reading...

_____________________________

Fred

(in reply to phil999)

Post #: 4

RE: Simple problem - 6/12/2007 8:56:35 AM

ehvbs

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

Hi phil999,

As I can't come up with an advise based on the code you posted, I post
this minimalistic/bare bones code, that I would use to tackle your problem:

<html>
<head>
 <hta:application id = "USGB"
 />
 <title>USGB</title>
 <meta http-equiv = "content-script-type" content = "text/vbscript"/>
 <script language = "VBScript"
         type     = "text/vbscript"
 >
'<![CDATA[

Option Explicit

''= changes display of div HideAndSeek according to user input
' ============================================================================
Sub fromWhere()
 Dim oHideAndSeek : Set oHideAndSeek = document.GetElementById( "HideAndSeek" )
 If vbYes = MsgBox( "From GB?", vbYesNo ) Then
    oHideAndSeek.style.display = "block"
 Else
    oHideAndSeek.style.display = "none"
 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>
  <hr />
  <input type = "BUTTON" value = "reload" onclick = "reloadHTA">
  <hr />
  <input type = "BUTTON" value = "FromWhere" onclick = "fromWhere">
  <hr />
  <input name="cbx00" type="checkbox" value="00">This<br>
  <div id = "HideAndSeek" style = "display:none" >
    <input name="cbx01" type="checkbox" value="01">Intraweb<br>
  </div>
  <input name="cbx02" type="checkbox" value="02">That<br>
</body>
</html>

The important part is the use of a DIV as a container for the checkbox and
the use of GetElementById to avoid the hassle with forms and all.

Good luck!

ehvbs

(in reply to Fredledingue)

Post #: 5

RE: Simple problem - 6/12/2007 6:34:31 PM

phil999

Posts: 38
Score: 0
Joined: 5/4/2007
Status: offline

Ehvbs you are my hero ;)

It works perfectly except i am not sure how i would change it for mulitple cases.

would i add an if statement like this

but then how would i defind the different div statements. Below is my current div statement i am now looking to add an additional one for the us.

(in reply to ehvbs)

Post #: 6

RE: Simple problem - 6/13/2007 3:46:03 AM

ehvbs

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

Hi phil999,

perhaps this will help you:

Option Explicit

''= changes display of some DIVs according to user input
' ============================================================================
Sub fromWhere()
 Dim div01 : Set div01 = document.GetElementById( "div01" )
 Dim div02 : Set div02 = document.GetElementById( "div02" )
 If vbYes = MsgBox( "From GB?", vbYesNo ) Then
    div01.style.display = "none"
    div02.style.display = "block"
 Else
    div01.style.display = "block"
    div02.style.display = "none"
 End If
End Sub

']]>
 </script>
</head>
<body>
  <hr />
  <input type = "BUTTON" value = "reload" onclick = "reloadHTA">
  <hr />
  <input type = "BUTTON" value = "FromWhere" onclick = "fromWhere">
  <hr />
  <input name="cbx00" type="checkbox" value="00">This<br>
  <div id = "div01" style = "display:none" >
    <input name="cbx01" type="checkbox" value="01">US<br>
  </div>
  <div id = "div02" style = "display:none" >
    <input name="cbx02" type="checkbox" value="02">GB<br>
  </div>
  <input name="cbx03" type="checkbox" value="03">That<br>
</body>
</html>

Good luck!

ehvbs

(in reply to phil999)

Post #: 7

RE: Simple problem - 6/15/2007 8:22:45 AM

phil999

Posts: 38
Score: 0
Joined: 5/4/2007
Status: offline

The code is great but i am having problems when trying to change it.

I have the following sub with all the checkboxes in

Then i have the following code to select what is hidden

The i have following

<div id = "londonlist" style = "display:none" >
<input name="Checkbox1" type="checkbox"> Change IE Homepage<br> 
  <input id=runbutton  class="button" type="button" value="Run" name="run_button" onClick="TestSub"><p>
</div>
<div id = "londonlaptoplist" style = "display:none" >
<input type="checkbox" name="Checkbox1"> Change IE Homepage<br> 
  <input type="checkbox" name="Checkbox2"> Change Intranet IE Settings<p>
<input type="checkbox" name="Checkbox3"> Add Favorite<br>
<input type="checkbox" name="Checkbox9"> Add Confidential Update Link to Desktop<p>
<input type="checkbox" name="Checkbox4"> Setup Netmeeting<p>
<input type="checkbox" name="Checkbox5"> Setup Outlook<br>
<input type="checkbox" name="Checkbox11"> Setup Printers<p>
<input id=runbutton  class="button" type="button" value="Run" name="run_button" onClick="TestSub"><p>
</div>
<div id = "lflist" style = "display:none" >
<input type="checkbox" name="Checkbox5">Setup Outlook<br>
<input type="checkbox" name="Checkbox1">Change IE Homepage<br> 
  <input type="checkbox" name="Checkbox2">Change Intranet IE Settings<p>
<input type="checkbox" name="Checkbox3">Add Favorite<br>
<input type="checkbox" name="Checkbox9">Add Confidential Update Link to Desktop<p>
<input type="checkbox" name="Checkbox4">Setup Netmeeting<p>
<input type="checkbox" name="Checkbox10">Setup Printer<p>
<input id=runbutton  class="button" type="button" value="Run" name="run_button" onClick="TestSub"><p>
</div>

So i know the checkboxes work fine on there own so that leaves the problem either with the fromwhere part or the div sections. The error i am getting is the object does not support this property of method checkbox1.checked

Any assistance is greatfully appreicated i feel i am so close to completing this its just the last hurdle to over come.

I should add the filtering works fine the problem is the checkboxes do not run.

Phil

< Message edited by phil999 -- 6/15/2007 8:25:19 AM >

(in reply to ehvbs)

Post #: 8

RE: Simple problem - 6/15/2007 8:49:43 AM

Rischip

Posts: 502
Score: 2
Joined: 3/26/2007
Status: offline

You have more than one checkbox with the same name. They all need to be unique.

_____________________________

Rischip
Author of - The Grim Linker

(in reply to phil999)

Post #: 9

RE: Simple problem - 6/15/2007 8:57:30 AM

phil999

Posts: 38
Score: 0
Joined: 5/4/2007
Status: offline

even if i just have

i still get the same error unless i am looking in the wrong place.

(in reply to Rischip)

Post #: 10

RE: Simple problem - 6/16/2007 8:32:04 AM

ehvbs

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

Hi phil999,

this .hta will demonstrate some good and some bad ways to access a checkbox
and its state:

Option Explicit

''= QED: Checkbox can be accessed
' ============================================================================
Sub qedCBX()
 Dim oCBX01 : Set oCBX01 = document.getElementById( "cbx01" )
 Dim sMsg   : sMsg       = ""
 Dim vDummy

If Not oCBX01 Is Nothing Then
    sMsg =   "<b>document.GetElementById( ""cbx01"" )</b> found a " + oCBX01.TagName + "<br>" _
           + "of Type """ + oCBX01.Type + """ named """ + oCBX01.Name + """ via its Id """ _
           + oCBX01.Id + """"
 End If

If oCBX01 Is document.all.CheckBox1 Then
    sMsg = sMsg + "<br>it can also be accessed via <b>document.all.CheckBox1</b>"
 End If

If oCBX01 Is CheckBox1 Then
    sMsg = sMsg + "<br>or via plain <b>CheckBox1</b>"
 End If

On Error Resume Next
 Set vDummy = document.CheckBox1
 vDummy = Err.Description
 On Error Goto 0
 sMsg = sMsg + "<br>but <b><i>document.CheckBox1</i></b> is bad: " + vDummy

sMsg =   sMsg + "<br>by the way: the statement<br>'the checkbox is checked'<br>is " _
        & oCBX01.checked & "/" & CheckBox1.Checked

On Error Resume Next
 vDummy = CheckBox11.checked
 vDummy = Err.Description
 On Error Goto 0
 sMsg = sMsg + "<br>Of course, asking for <b><i>CheckBox11.checked</i></b> will fail: " + vDummy

document.getElementById( "pDisplay" ).innerHTML = sMsg

End Sub

']]>
 </script>
</head>
<body>
  <hr />
  <input type = "BUTTON" value = "reload" onclick = "reloadHTA">

after testing the script as it is, add

<input type="CHECKBOX" name="Checkbox1" id="cbx01">Get Me!<br>
<input type="CHECKBOX" name="Checkbox1" id="cbx02">Get Me!<br>
<p id="pDisplay">

and run it again; then you will see the validity of Rischip's advice. In my opinion your
first step should be to 'clean up' your script: unique names, no checks for checkboxes
that aren't there (e.g. checkbox15), a little bit more care about names (printers2/3?)
and even proper indentation would help.

I don't understand why you use 3 instances of some checkboxes (e.g.

<input name="Checkbox1" type="checkbox"> Change IE Homepage<br>

). If all users can ask for this action via a checkbox, then one - allways visible -
instance would be enought. Or am I missing something?

ehvbs

(in reply to phil999)