Syntax Error?

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Syntax Error?

Logged in as: Guest

arrSession:exec spGetSession 2,2,40670

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

Printable Version

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

Page: [1]

Message

<< Older Topic Newer Topic >>

Syntax Error? - 12/10/2006 3:28:44 AM

TNO

Posts: 1397
Score: 16
Joined: 12/18/2004
From: thenewobjective.com
Status: online

I'm getting a syntax error from this and not sure why: (Line 66, char 12)

srcElem = event.srcElement <---syntax error?

'/* Global Variables*/
Dim minMenuWidth    '// Minumum width for the children of the popUp
minMenuWidth = 50
Dim mColor            '// Default color used for the backgroundColor
mColor = "menu"
Dim menuHeight        '// Menu height
menuHeight = 23
Dim defaultWidth        '// Variable to store the width of the text for an element
Dim srcElem                '// Object to the source element which generated the click event
'srcElem = Empty
Dim ix                    '// Left position of the pop-up window
ix = ""
Dim iy                    '// Top position of the pop-up window
iy = ""
Dim iHeight                '// Height of the pop-up window
iHeight = ""
Dim iWidth                '// Width of the pop-up window
iWidth = ""
Dim popUp                '// The pop-up window object
Dim menuWidth            '// Temporary variable to store the width of each menu item
menuWidth = 0
Dim maxMenuWidth        '// Variable to store the maximum menuWidth
maxMenuWidth = 0
'/*
' Function : cReady
' Executed : Executes when oncontentready fires on the HTC document.
' Usage : Oncontentready is used to set initial values and styles once the content of the HTC is parsed.
'*/
Function cReady()
   '// Define the style for the current element.
   If backColor = null Or backColor = "" Then
       element.style.backgroundColor = mColor
   Else
       mColor = backColor
       element.style.backgroundColor = mColor
   End If
   element.style.fontFamily = "Verdana"
   element.style.height = menuHeight
   element.style.padding = 4
   element.style.fontSize = "10px"
   element.style.border = "1px solid"
   element.style.borderColor = mColor
   '// Hide all the first-level children for the Behavior.
   If element.children.length > 0 Then
       For i = 0 To i < element.children.length Step 1
           element.children[i].style.fontSize = "10px"
           element.children[i].style.display = "none"
           element.children[i].style.visibility = "hidden"
           element.children[i].style.height = menuHeight
       Next
   End If
End Function
'/*
'Function : menuClick
'Executed: When the onclick event fires on the custom Element.
'Usage : Creates the pop-up window with the first-level children of the current
'element and displays the pop-up window with the first-level elements.
'Each child element will have its own events attached to it using the attach method.
'*/
Function menuClick()
   ix = 0
   iy = 0
   iHeight = 0
   iWidth = 0
   '// Retrieve the source element which fired the event.
   srcElem = event.srcElement
   srcElem.style.borderRight = "1px inset white"
   srcElem.style.borderTop = "1px inset black"
   srcElem.style.borderLeft = "1px inset black"
   srcElem.style.borderBottom = "1px inset white"
   '// Hide the popup.
   hidePopup()
   '// Create the popup for the current parent menu item.
   popUp = window.createPopup()
   var oPopBody = popUp.document.body
   '// Does the custom element have any children?
   If srcElem.children.length > 0 Then
       ix = 0
       iy = srcElem.offsetHeight
       '// Get pop-up window Height and Width
       iHeight = 23 * srcElem.children.length + 4
       iWidth = defaultWidth
       '// Empty string to store the innerText of the current element's child.
       Dim sz
       sz = ""
       For j = 0 To j < element.children.length Step 1
           '// Store the innerText of the current element.
           sz = InnerText(element.children[j].innerHTML)
           '// Set the menuWidth variable to the length of the sz string.
           menuWidth = sz.length
           If menuWidth > maxMenuWidth Then
               maxMenuWidth = menuWidth
           End If
       Next
           iWidth = maxMenuWidth * 10
           If iWidth < minMenuWidth Then
               iWidth = 60
           End If
           '// Create an opening string of a SPAN Tag.
           Dim popupHTML
           popupHTML = "<SPAN style='position:absolute;" + "top:0px;" + "left:0px; height:" + iHeight + "px; width:" + iWidth + "px'>"
           '// Go through all the first-level children elements and get their outerHTML and append it to the DIV Element as children. 
           For j = 0 To j < element.children.length Step 1
               '// Assign the ID of the current child element to its innerText. 
               element.children[j].id = element.children[j].id
               popupHTML = popupHTML + element.children[j].outerHTML + "\n"
               element.children[j].style.width = iWidth + "px"
           Next
           '// Add the closing SPAN Tag to the popupHTML string variable.
           popupHTML = popupHTML + "</" + "SPAN>"
           '// Assign the HTML from above into the body of the pop-up window.
           oPopBody.innerHTML = popupHTML
           '// Assign events to each of the children in the pop-up, then show the custom elements in the pop-up.
           For j = 0 To j < oPopBody.children[0].children.length Step 1
               '// Attach events to the children of the menu.
               oPopBody.children[0].children[j].onmouseover = menuChildmouseOver
               oPopBody.children[0].children[j].onclick = menuChildClick
               '// Define the current child's style to display.
               oPopBody.children[0].children[j].style.display = "block"
               oPopBody.children[0].children[j].style.visibility = "visible"
           Next
           '// Define the popUp's style.
           oPopBody.style.borderLeft = "2 outset white"
           oPopBody.style.borderTop = "2 outset white"
           oPopBody.style.borderRight = "1 outset black"
           oPopBody.style.borderBottom = "1 outset black"
           oPopBody.style.position = "absolute"
           oPopBody.style.backgroundColor = mColor
           oPopBody.style.fontFamily = "Verdana"
           '// Call the hidePop function upon onmouseleave firing.
           popUp.document.body.onmouseleave = hidePopup

'// Show the popUp using the show method.
           popUp.show( ix , iy , iWidth , iHeight, srcElem)
   End If
End Function

Function menuChildmouseOver()
   '// Cancel the event so that it does not bubble up to its parent.
   popUp.document.parentWindow.event.cancelBubble = true
   '// Retrieve the source element from the pop-up which fired the event.
   srcElem = popUp.document.parentWindow.event.srcElement
   '// Define the current element's style.
   srcElem.style.color = "white"
   srcElem.style.background = "highlight"
   window.status = srcElem.innerHTML
End Function

Dim oEvent
Function menuChildClick()
   '// Cancel the event so that it does not bubble up to its parent.
   popUp.document.parentWindow.event.cancelBubble = true
   '// Retrieve the source element from the pop-up which fired the event.
   srcElem = popUp.document.parentWindow.event.srcElement
   '// Create a new event object.
   oEvent = createEventObject()
   '// Assign the event object's result property to the ID of the custom element's ID which fired this event.
   oEvent.result = srcElem.id
   '// Fire the custom element's event.
   propId.fire (oEvent)
   '// Hide the pop-up.
   hidePopup()
End Function
'/*
' Function : HidePopup
' Executed : When the onmouseleave event fires on the custom Element
' Usage : Hides the pop-up window for the menu.
'*/
Function hidePopup()
   If popUp Then
       If popUp.isOpen Then
           popUp.hide()
       End If
   End If
End Function
'/*
'Function : menuItemOver
'Executed : When the onmouseover event fires on the custom Element
'Usage : Changes the background color & font color of the Element
'*/
Function menuItemOver()
   '// Retrieve the source element.
   srcElem = event.srcElement
   window.status = srcElem.id
   '// Set the element's style.
   srcElem.style.borderRight = "1px outset black"
   srcElem.style.borderTop = "1px outset white"
   srcElem.style.borderLeft = "1px outset white"
   srcElem.style.borderBottom = "1px outset black"
End Function
'/*
'Function : menuItemOut
'Executed : When the onmouseout event fires on the custom Element
'Usage : Restores the background color & font color of the Element
'to the defaults.
'*/
Function menuItemOut()
   '// Retrieve the source element.
   srcElem = event.srcElement
   '// Set the element's style.
   srcElem.style.backgroundColor = mColor
   srcElem.style.color = "black"
   srcElem.style.border = "1px solid"
   srcElem.style.borderColor = mColor
End Function
'/*
'Function : InnerText
'Parameter : string
'Executed : Called from the mouseClick function.
'Usage : InnerText function gets the innerHTML of the custom element, which can
'contain Text + HTML; example, innerHTML of the first custom element looks like
'Start <ie:menu>Run</ie:menu> The function strips out the text until the
'first instance of "<" and returns the string.
'*/
Function InnerText(szText)
   Dim startTag
   startTag = InStr(0,szText,"<") 
   If(Mid(szText,0,startTag) = "") Then 
       InnerText = szText
   Else
       InnerText = Mid(szText,0,startTag)
   End If
End Function

_____________________________

To iterate is human, to recurse divine. -- L. Peter Deutsch

Post #: 1

RE: Syntax Error? - 12/10/2006 4:37:29 AM

DiGiTAL.SkReAM

Posts: 1194
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

You have no object named "event". I see an oEvent, but no plain, old "event". And "event" isn't a vbscript command or anything.

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to TNO)

Post #: 2

RE: Syntax Error? - 12/10/2006 5:55:00 AM

TNO

Posts: 1397
Score: 16
Joined: 12/18/2004
From: thenewobjective.com
Status: online

This is used within a browser, and is defined globally as window.event hence my confusion, shouldn't "Object Expected" be the error? I'll try using the full string to see if there is a difference

_____________________________

To iterate is human, to recurse divine. -- L. Peter Deutsch

(in reply to DiGiTAL.SkReAM)