asked on

Hiding/Unhiding HTML objects with VBScript

Hello,

I'm trying to hide/unhide certain objects based on a condition. My hiding works, but my unhiding doesn't, can anyone see why?

I've successfuly tested my conditions and element names. The only thing that fails is .visibility = "visable"

<script language="VBScript">
 
'hideCondition = "True" or "False"
 
If hideCondition = "True" Then
 
frm.elements("cboF" & fID & "V" & vID).style.visibility = "hidden" 'WORKS
 
Else
frm.elements("cboF" & fID & "V" & vID).style.visibility = "visible" 'DOESN'T WORK
 
end If
 
</script>

Open in new window

Chad Haney

Seems like it is not an issue with the visibility code you have. Just double checked to make sure that is the correct VBscript format.

Your hideCondition looks like it must not ever be evaluating to false.

Here is the example code I used to test it.

<html>
<head>
 
</head>
<body>
<form>
<input type="text" id="cboF1" name="cboF1" value="1"/>
<input type="text" id="cboF2" name="cboF2" value="2"/>
</form>
<script language="VBScript">
 
set el =document.getElementById("cboF1")
el.style.visibility = "hidden"
el.style.visibility = "visible"
set el =document.getElementById("cboF2")
el.style.visibility = "hidden"
 
</script>
</body>
</html>

Open in new window

APD Toronto

ASKER

No, I thought the same thing, that my False condition is not being reached, but I have a msgbox() in both conditions, and they are firing.
I am including my entire script, it may be little had to get the whole picture, but I think the key point is that both message boxes are popping up.

		<script language="VBScript">
		
			fCount = CInt(frm.elements("txtFCount").value)
			strFIDs = frm.elements("txtFIDs").value
					
		
			For f = 1 To fCount
				fID = Left(strFIDs, InStr(1, strFIDs, ",") - 1)
				strFIDs = Mid(strFIDs, Instr(1, strFIDs, ",") + 1, Len(strFIDs) - Instr(1, strFIDs, ",") + 1) 
				
				v=0
				
				depStatus = frm.elements("txtFStat" & fID).value
				'msgbox("stat=" & depStatus)
				If depStatus = "True" Then 
			
					vCount = CInt(frm.elements("txtVCount").value)
					strVIDs = frm.elements("txtVIDs").value	
					For v = 1 To vCount
						vID = Left(strVIDs, InStr(1, strVIDs, ",") - 1)
						strVIDs = Mid(strVIDs, Instr(1, strVIDs, ",") + 1, Len(strVIDs) - Instr(1, strVIDs, ",") + 1) 
				
						frm.elements("cboF" & fID & "V" & vID).style.visibility = "hidden"
						msgbox("hidden cboF" & fID & "V" & vID)
					Next 'vendor
					
				ElseIf depStatus = "False" Then 
			
					vCount = CInt(frm.elements("txtVCount").value)
					strVIDs = frm.elements("txtVIDs").value	
					For v = 1 To vCount
						vID = Left(strVIDs, InStr(1, strVIDs, ",") - 1)
						strVIDs = Mid(strVIDs, Instr(1, strVIDs, ",") + 1, Len(strVIDs) - Instr(1, strVIDs, ",") + 1) 
						
						el = frm.elements("cboF" & fID & "V" & vID)
						el.style.visibility = "visible"
						msgbox("visible cboF" & fID & "V" & vID)
					Next 'vendor
					
				End If
			
			Next 'flight
</script>

Open in new window

APD Toronto

ASKER

The correct syntax was:

frm.elements("cboF" & fID & "V" & vID).style.display = "none"
 
 
frm.elements("cboF" & fID & "V" & vID).style.display = "block"

Open in new window

Chad Haney

display is actually a different css attirbute than visibility. VBscript is able to adjust both attributes.

Display none will remove the placement of the item, visibility will hide the item, but the space is still reserved.

APD Toronto

ASKER

The bottom line is that visibility failed to work

ASKER CERTIFIED SOLUTION

Chad Haney

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

APD Toronto

ASKER

I awarded you points. Happy?