OWC Mouse Wheel: Need bit more help please!

[Dip]

Hi Dan,
Thanks for your prompt response with the sample activation code.
However, for some reason, I am getting an error message but altogether
it looks quite nearly there.
The error message is:

Object Required: 'txtEventData'

When you using "txtEventData.Value", it is taken as an object.
In other word, do I need to create the object in way shown bellow:

Set txtEventData = CreateObject("...............")


Can you please advise?
Thanks again. Have a nice week end!
Cheers.
Dip

Your Code:

There is nothing to switch on for OWC10/11 (OWC9 does not
have mouse events).

However the OWC10/11 Pivot control does need to be the
active control, otherwise IE receives and handles the
mousewheel event.

***** BEGIN: Sample Page with MouseWheel event working
*****


''' *******************************************
''' *******************************************
Sub cmdClearEventData()
txtEventData.value = vbNullString
End Sub

''' *******************************************
''' *******************************************
Sub PivotTable1_MouseWheel(Page, Count)
Dim szTmp
szTmp = "Page = " & CStr(Page) & ", Count = " & CStr
(Count)
If Len(txtEventData.value) = 0 Then
txtEventData.value = szTmp
Else
txtEventData.value = szTmp & vbCrLf &
txtEventData.value
End If
End Sub

 

[Dan Ricker]

The "txtEventData" is a html TextArea in the original web
page I copied here.

The event code was just adding the event information to
that TextArea.

I tried to recopy the web page when you first asked so I'm
guessing there is something that is not letting the tag
symbols through.

For any real solution that uses the mouse wheel event, the
txtEventData will probably not be needed, except possibly
as a debugging tool during the initial development.

Thx
Dan