VBA code to create an 'onmouseup' action over and html object?

[larryjfoster]

So it looks like the below code requires a mouse event to fire activity. Is it possible to replace a .click function with something that would function as an .onmouseup function

<span class="timeClockButtonContainer">
                            <span data-dojo-type="dijit/_Widget" data-dojo-attach-point="ShiftStartBtn" data-dojo-attach-event="onMouseUp: _onShiftStartMouseUp " data-dojo-props="className: at('rel:', 'shiftStartDisabled').direction(at.from).transform(transformers.ShiftStartClass)" id="dijit__Widget_19" lang="en-us" widgetid="dijit__Widget_19" class="timeClockButton ShiftStartNormal ">
                            </span>
                            <span data-dojo-type="Framework/UI/mvc/Output" data-dojo-props="value: localize('lblESSShiftStartButton'), className: at('rel:', 'shiftStartDisabled').direction(at.from).transform(transformers.ButtonClass)" class="ClockButtonTextEnabled" id="Output_39" lang="en-us" widgetid="Output_39">In</span>
                        </span>

The below code does not return any errors though it does not do the 'FireEvent' either...

Dim colNodes As Object
Dim objNode As Object
Dim strTarget As String

strTarget = "ShiftStartBtn"

'Click Clock In Button
Set colNodes = IE.document.getElementsByClassName("timeClockButtonContainer")
For Each objNode In colNodes
    If objNode.getAttribute("data-dojo-attach-point") = strTarget Then Exit For
Next
If Not objNode Is Nothing Then
    Debug.Print objNode.innerText
    objNode.FireEvent "onmouseup"
End If

 

[John_w]

Maybe this:

    Dim mouseUpEvent As Object 'DOMMouseEvent

    'After IE.document is loaded...
    Set mouseUpEvent = IE.document.createEvent("MouseEvent")
    mouseUpEvent.initEvent "mouseup", True, False
    objNode.dispatchEvent mouseUpEvent

 

[larryjfoster]

Maybe this:

    Dim mouseUpEvent As Object 'DOMMouseEvent

    'After IE.document is loaded...
    Set mouseUpEvent = IE.document.createEvent("MouseEvent")
    mouseUpEvent.initEvent "mouseup", True, False
    objNode.dispatchEvent mouseUpEvent

Hi John, thank you for the effort but I get the same result. It runs through the sub routine without issue but does not trigger the "data-dojo-attach-event="onMouseUp: _onShiftStartMouseUp"