By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
435,220 Members | 1,633 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 435,220 IT Pros & Developers. It's quick & easy.

WithEvents does not work for me in Win98?

P: n/a
This works fine in Win XP but does not work at all in Win 98.
Private WithEvents objIExplorer As InternetExplorer

I have to do it like this to get it to work in Win 98
Dim objIExplorer As InternetExplorer But then I cant see when a user exit my
objIExplorer and than an error will show up when I try to open a link in the
IE window that does not exist...

What can I do about this and way does it not work in win 98?

(This does not work at all with Private WithEvents objIExplorer As
InternetExplorer)
If objIExplorer Is Nothing Then
Set objIExplorer = New InternetExplorer ' ******* Here is where the
Error will show up****
With objIExplorer
.AddressBar = True
.MenuBar = True
.StatusBar = True
.ToolBar = True
.Visible = True
DoEvents
End With
End If

Yours, Jonas
Jul 17 '05 #1
Share this Question
Share on Google+
7 Replies


P: n/a
"does not work" is insufficient. What is the error message.

--

Randy Birch
MVP Visual Basic
http://vbnet.mvps.org/
Please respond only to the newsgroups so all can benefit.

There's no place like 127.0.0.1
"Jonas" <ba*******@hotmail.com> wrote in message
news:ZY********************@newsb.telia.net...
: This works fine in Win XP but does not work at all in Win 98.
: Private WithEvents objIExplorer As InternetExplorer
:
: I have to do it like this to get it to work in Win 98
: Dim objIExplorer As InternetExplorer But then I cant see when a user exit
my
: objIExplorer and than an error will show up when I try to open a link in
the
: IE window that does not exist...
:
: What can I do about this and way does it not work in win 98?
:
: (This does not work at all with Private WithEvents objIExplorer As
: InternetExplorer)
: If objIExplorer Is Nothing Then
: Set objIExplorer = New InternetExplorer ' ******* Here is where the
: Error will show up****
: With objIExplorer
: .AddressBar = True
: .MenuBar = True
: .StatusBar = True
: .ToolBar = True
: .Visible = True
: DoEvents
: End With
: End If
:
: Yours, Jonas
:
:
Jul 17 '05 #2

P: n/a
This is the error message:

Run-time error '-2147023067 (80070725)':
Automation error

"Randy Birch" <rg************@mvps.org> skrev i meddelandet
news:wA*******************@news04.bloor.is.net.cab le.rogers.com...
"does not work" is insufficient. What is the error message.

--

Randy Birch
MVP Visual Basic
http://vbnet.mvps.org/
Please respond only to the newsgroups so all can benefit.

There's no place like 127.0.0.1
"Jonas" <ba*******@hotmail.com> wrote in message
news:ZY********************@newsb.telia.net...
: This works fine in Win XP but does not work at all in Win 98.
: Private WithEvents objIExplorer As InternetExplorer
:
: I have to do it like this to get it to work in Win 98
: Dim objIExplorer As InternetExplorer But then I cant see when a user exit my
: objIExplorer and than an error will show up when I try to open a link in
the
: IE window that does not exist...
:
: What can I do about this and way does it not work in win 98?
:
: (This does not work at all with Private WithEvents objIExplorer As
: InternetExplorer)
: If objIExplorer Is Nothing Then
: Set objIExplorer = New InternetExplorer ' ******* Here is where the
: Error will show up****
: With objIExplorer
: .AddressBar = True
: .MenuBar = True
: .StatusBar = True
: .ToolBar = True
: .Visible = True
: DoEvents
: End With
: End If
:
: Yours, Jonas
:
:

Jul 17 '05 #3

P: n/a
Knowledge Base

PRB: Run-time error -2147023071 (80070721) using WithEventsPSS ID Number:
171456

Article Last Modified on 1/11/2001
--------------------------------------------------------------------------------
The information in this article applies to:
a.. Microsoft Visual Basic Control Creation Edition for Windows 5.0
b.. Microsoft Visual Basic Learning Edition for Windows 5.0
c.. Microsoft Visual Basic Learning Edition for Windows 6.0
d.. Microsoft Visual Basic Professional Edition for Windows 5.0
e.. Microsoft Visual Basic Professional Edition for Windows 6.0
f.. Microsoft Visual Basic Enterprise Edition for Windows 5.0
g.. Microsoft Visual Basic Enterprise Edition for Windows 6.0

--------------------------------------------------------------------------------

This article was previously published under Q171456
SYMPTOMS
When using an ActiveX component that defines events, you may receive the
following error when this component is accessed through DCOM.

Run-time error -2147023071 (80070721)
Automation Error

This error does not occur if the ActiveX component is used locally or if the
client does not instantiate the remote object using the WithEvents
statement.
CAUSE
This problem occurs because you did not set the appropriate identity for the
server.
RESOLUTION
To resolve this problem, refer to the following articles in the Microsoft
Knowledge Base:
267836 HOWTO: Create a DCOM Client/Server with Events by Using Visual Basic

268550 HOWTO: Use Dcomcnfg for a Visual Basic DCOM Client/Server Application

269330 HOWTO: Troubleshoot DCOM for Visual Basic Client/Server Applications

Additional query words: -2147023071 (80070721)

Keywords: kberrmsg kbprb KB171456
Technology: kbAudDeveloper kbVB500 kbVB500Search kbVB600 kbVB600Search
kbVBA500Search kbVBSearch kbZNotKeyword2 kbZNotKeyword3 kbZNotKeyword6

--------------------------------------------------------------------------------

Send feedback to Microsoft

2003 Microsoft Corporation. All rights reserved.

--

Randy Birch
MVP Visual Basic
http://vbnet.mvps.org/
Please respond only to the newsgroups so all can benefit.

There's no place like 127.0.0.1
"Jonas" <ba*******@hotmail.com> wrote in message
news:2V********************@newsc.telia.net...
: This is the error message:
:
: Run-time error '-2147023067 (80070725)':
: Automation error
:
:
:
: "Randy Birch" <rg************@mvps.org> skrev i meddelandet
: news:wA*******************@news04.bloor.is.net.cab le.rogers.com...
: > "does not work" is insufficient. What is the error message.
: >
: > --
: >
: > Randy Birch
: > MVP Visual Basic
: > http://vbnet.mvps.org/
: > Please respond only to the newsgroups so all can benefit.
: >
: > There's no place like 127.0.0.1
: >
: >
: > "Jonas" <ba*******@hotmail.com> wrote in message
: > news:ZY********************@newsb.telia.net...
: > : This works fine in Win XP but does not work at all in Win 98.
: > : Private WithEvents objIExplorer As InternetExplorer
: > :
: > : I have to do it like this to get it to work in Win 98
: > : Dim objIExplorer As InternetExplorer But then I cant see when a user
: exit
: > my
: > : objIExplorer and than an error will show up when I try to open a link
in
: > the
: > : IE window that does not exist...
: > :
: > : What can I do about this and way does it not work in win 98?
: > :
: > : (This does not work at all with Private WithEvents objIExplorer As
: > : InternetExplorer)
: > : If objIExplorer Is Nothing Then
: > : Set objIExplorer = New InternetExplorer ' ******* Here is where
the
: > : Error will show up****
: > : With objIExplorer
: > : .AddressBar = True
: > : .MenuBar = True
: > : .StatusBar = True
: > : .ToolBar = True
: > : .Visible = True
: > : DoEvents
: > : End With
: > : End If
: > :
: > : Yours, Jonas
: > :
: > :
: >
: >
:
:
Jul 17 '05 #4

P: n/a
Knowledge Base

PRB: WithEvents Does Not Work with Remote AutomationPSS ID Number: 172312

Article Last Modified on 4/18/2003
--------------------------------------------------------------------------------
The information in this article applies to:
a.. Microsoft Visual Basic Control Creation Edition for Windows 5.0
b.. Microsoft Visual Basic Learning Edition for Windows 5.0
c.. Microsoft Visual Basic Professional Edition for Windows 5.0
d.. Microsoft Visual Basic Enterprise Edition for Windows 5.0

--------------------------------------------------------------------------------

This article was previously published under Q172312
SYMPTOMS
When attempting to raise a remote event across Remote Automation, the
following run-time error appears:

-2147467259(80004005) , Automation error
CAUSE
Remote Automation does not currently support the use of WithEvents.
RESOLUTION
To support remote events with Visual Basic 5.0, use DCOM instead of Remote
Automation. You can also use callbacks to simulate raising events remotely.
STATUS
This behavior is by design.
MORE INFORMATION
Steps to Reproduce Behavior
Use the following steps on the server machine:

1.. Start Visual Basic 5.0 and create a new ActiveX EXE project.
2.. From the Project menu, selectProject properties and change the Project
name to "Projtest."
3.. Add a Class Module and change its name to "Testclass."
4.. In Testclass' Code window, input following code:
Public Event propchange(newv As String)
Private propt As String

Public Sub showfrm()
MsgBox "asdfl"

End Sub

Public Property Get testp() As String
testp = propt
End Property

Public Property Let testp(ByVal vNewValue As String)
propt = vNewValue
RaiseEvent propchange(propt)
End Property

5.. On the File menu, click "Make ProjTest.exe."
6.. Copy the corresponding .exe, .tlb, and .vbr files to the client
machine.
7.. Start the Automation Manager and the RemAuto Connection Manager to set
necessary server-side configuration for using Projtest.testclass for Remote
Automation.
Use the following steps on the client machine:

1.. Run Projtest.exe, which was copied from the Server side in the above
steps.
2.. Start the RemAuto Connection Manager to set necessary Client-side
configuration for using Projtest.testclass.
3.. Launch Visual Basic 5.0 and create a new Standard EXE project with a
standard form.
4.. From the Project menu, click References and select the "Projtest" box.
5.. In Form1's Code window, input following code:
Public WithEvents eventp As testclass

Private Sub eventp_propchange(newv As String)
MsgBox newv
End Sub

Private Sub Form_Load()
Dim a As New testclass
a.showfrm
Set eventp = a
a.testp = "test string"
End Sub

6.. Run the project and check if the Remote Automation connection is
correct, the message box should pop up on the server-side machine.
7.. Click OK to close the message box on the server-side machine.
Result
When the line "Set eventp = a" executes, you will get the following run-
time error:

-2147467259(80004005) , Automation error
Expected behavior
A message box should appear on the client-side machine because the server
raised the Propchange event.

NOTE: If both the client and the server are running on the same machine
(with local automation), you will see the expected behavior.
Keywords: kbprb KB172312
Technology: kbAudDeveloper kbVB500 kbVB500Search kbVBA500Search kbVBSearch
kbZNotKeyword2 kbZNotKeyword3 kbZNotKeyword6

--------------------------------------------------------------------------------

Send feedback to Microsoft

2003 Microsoft Corporation. All rights reserved.

--

Randy Birch
MVP Visual Basic
http://vbnet.mvps.org/
Please respond only to the newsgroups so all can benefit.

There's no place like 127.0.0.1
"Jonas" <ba*******@hotmail.com> wrote in message
news:2V********************@newsc.telia.net...
: This is the error message:
:
: Run-time error '-2147023067 (80070725)':
: Automation error
:
:
:
: "Randy Birch" <rg************@mvps.org> skrev i meddelandet
: news:wA*******************@news04.bloor.is.net.cab le.rogers.com...
: > "does not work" is insufficient. What is the error message.
: >
: > --
: >
: > Randy Birch
: > MVP Visual Basic
: > http://vbnet.mvps.org/
: > Please respond only to the newsgroups so all can benefit.
: >
: > There's no place like 127.0.0.1
: >
: >
: > "Jonas" <ba*******@hotmail.com> wrote in message
: > news:ZY********************@newsb.telia.net...
: > : This works fine in Win XP but does not work at all in Win 98.
: > : Private WithEvents objIExplorer As InternetExplorer
: > :
: > : I have to do it like this to get it to work in Win 98
: > : Dim objIExplorer As InternetExplorer But then I cant see when a user
: exit
: > my
: > : objIExplorer and than an error will show up when I try to open a link
in
: > the
: > : IE window that does not exist...
: > :
: > : What can I do about this and way does it not work in win 98?
: > :
: > : (This does not work at all with Private WithEvents objIExplorer As
: > : InternetExplorer)
: > : If objIExplorer Is Nothing Then
: > : Set objIExplorer = New InternetExplorer ' ******* Here is where
the
: > : Error will show up****
: > : With objIExplorer
: > : .AddressBar = True
: > : .MenuBar = True
: > : .StatusBar = True
: > : .ToolBar = True
: > : .Visible = True
: > : DoEvents
: > : End With
: > : End If
: > :
: > : Yours, Jonas
: > :
: > :
: >
: >
:
:
Jul 17 '05 #5

P: n/a
*It is Jonas posting as BadOmen*

I don't really get this... I'm a newbe...
I don't have a server as far as I know...

I have installed Visual Studio 6.0 Professional Edition and using Visual
Basic 6 on Win 98.

I am using this:
Private WithEvents objIExplorer As InternetExplorer
To open a Internet explorer window and be able to know when the user exit
that window so I must make a new when an URL is pressed.

Is there a way of making it work?
"Randy Birch" <rg************@mvps.org> skrev i meddelandet
news:Ec*******************@news04.bloor.is.net.cab le.rogers.com...
Knowledge Base

PRB: WithEvents Does Not Work with Remote AutomationPSS ID Number: 172312

Article Last Modified on 4/18/2003
-------------------------------------------------------------------------- ------ The information in this article applies to:
a.. Microsoft Visual Basic Control Creation Edition for Windows 5.0
b.. Microsoft Visual Basic Learning Edition for Windows 5.0
c.. Microsoft Visual Basic Professional Edition for Windows 5.0
d.. Microsoft Visual Basic Enterprise Edition for Windows 5.0

-------------------------------------------------------------------------- ------
This article was previously published under Q172312
SYMPTOMS
When attempting to raise a remote event across Remote Automation, the
following run-time error appears:

-2147467259(80004005) , Automation error
CAUSE
Remote Automation does not currently support the use of WithEvents.
RESOLUTION
To support remote events with Visual Basic 5.0, use DCOM instead of Remote
Automation. You can also use callbacks to simulate raising events remotely. STATUS
This behavior is by design.
MORE INFORMATION
Steps to Reproduce Behavior
Use the following steps on the server machine:

1.. Start Visual Basic 5.0 and create a new ActiveX EXE project.
2.. From the Project menu, selectProject properties and change the Project name to "Projtest."
3.. Add a Class Module and change its name to "Testclass."
4.. In Testclass' Code window, input following code:
Public Event propchange(newv As String)
Private propt As String

Public Sub showfrm()
MsgBox "asdfl"

End Sub

Public Property Get testp() As String
testp = propt
End Property

Public Property Let testp(ByVal vNewValue As String)
propt = vNewValue
RaiseEvent propchange(propt)
End Property

5.. On the File menu, click "Make ProjTest.exe."
6.. Copy the corresponding .exe, .tlb, and .vbr files to the client
machine.
7.. Start the Automation Manager and the RemAuto Connection Manager to set necessary server-side configuration for using Projtest.testclass for Remote Automation.
Use the following steps on the client machine:

1.. Run Projtest.exe, which was copied from the Server side in the above
steps.
2.. Start the RemAuto Connection Manager to set necessary Client-side
configuration for using Projtest.testclass.
3.. Launch Visual Basic 5.0 and create a new Standard EXE project with a
standard form.
4.. From the Project menu, click References and select the "Projtest" box. 5.. In Form1's Code window, input following code:
Public WithEvents eventp As testclass

Private Sub eventp_propchange(newv As String)
MsgBox newv
End Sub

Private Sub Form_Load()
Dim a As New testclass
a.showfrm
Set eventp = a
a.testp = "test string"
End Sub

6.. Run the project and check if the Remote Automation connection is
correct, the message box should pop up on the server-side machine.
7.. Click OK to close the message box on the server-side machine.
Result
When the line "Set eventp = a" executes, you will get the following run-
time error:

-2147467259(80004005) , Automation error
Expected behavior
A message box should appear on the client-side machine because the server
raised the Propchange event.

NOTE: If both the client and the server are running on the same machine
(with local automation), you will see the expected behavior.
Keywords: kbprb KB172312
Technology: kbAudDeveloper kbVB500 kbVB500Search kbVBA500Search kbVBSearch
kbZNotKeyword2 kbZNotKeyword3 kbZNotKeyword6

-------------------------------------------------------------------------- ------
Send feedback to Microsoft

2003 Microsoft Corporation. All rights reserved.

--

Randy Birch
MVP Visual Basic
http://vbnet.mvps.org/
Please respond only to the newsgroups so all can benefit.

There's no place like 127.0.0.1
"Jonas" <ba*******@hotmail.com> wrote in message
news:2V********************@newsc.telia.net...
: This is the error message:
:
: Run-time error '-2147023067 (80070725)':
: Automation error
:
:
:
: "Randy Birch" <rg************@mvps.org> skrev i meddelandet
: news:wA*******************@news04.bloor.is.net.cab le.rogers.com...
: > "does not work" is insufficient. What is the error message.
: >
: > --
: >
: > Randy Birch
: > MVP Visual Basic
: > http://vbnet.mvps.org/
: > Please respond only to the newsgroups so all can benefit.
: >
: > There's no place like 127.0.0.1
: >
: >
: > "Jonas" <ba*******@hotmail.com> wrote in message
: > news:ZY********************@newsb.telia.net...
: > : This works fine in Win XP but does not work at all in Win 98.
: > : Private WithEvents objIExplorer As InternetExplorer
: > :
: > : I have to do it like this to get it to work in Win 98
: > : Dim objIExplorer As InternetExplorer But then I cant see when a user
: exit
: > my
: > : objIExplorer and than an error will show up when I try to open a link in
: > the
: > : IE window that does not exist...
: > :
: > : What can I do about this and way does it not work in win 98?
: > :
: > : (This does not work at all with Private WithEvents objIExplorer As
: > : InternetExplorer)
: > : If objIExplorer Is Nothing Then
: > : Set objIExplorer = New InternetExplorer ' ******* Here is where
the
: > : Error will show up****
: > : With objIExplorer
: > : .AddressBar = True
: > : .MenuBar = True
: > : .StatusBar = True
: > : .ToolBar = True
: > : .Visible = True
: > : DoEvents
: > : End With
: > : End If
: > :
: > : Yours, Jonas
: > :
: > :
: >
: >
:
:

Jul 17 '05 #6

P: n/a
What that's basically saying is open your dcom config app and ensure dcom is
set up to allow this.

--

Randy Birch
MVP Visual Basic
http://vbnet.mvps.org/
Please respond only to the newsgroups so all can benefit.

There's no place like 127.0.0.1
"BadOmen" <ba*******@hotmail.com> wrote in message
news:j%********************@newsc.telia.net...
: *It is Jonas posting as BadOmen*
:
: I don't really get this... I'm a newbe...
: I don't have a server as far as I know...
:
: I have installed Visual Studio 6.0 Professional Edition and using Visual
: Basic 6 on Win 98.
:
: I am using this:
: Private WithEvents objIExplorer As InternetExplorer
: To open a Internet explorer window and be able to know when the user exit
: that window so I must make a new when an URL is pressed.
:
: Is there a way of making it work?
Jul 17 '05 #7

P: n/a

"Randy Birch" <rg************@mvps.org> skrev i meddelandet
news:0b*******************@news04.bloor.is.net.cab le.rogers.com...
What that's basically saying is open your dcom config app and ensure dcom is set up to allow this.

I don't know of a dcom config app... What is that...and what is dcom...

I'm really new to this... =)

--

Randy Birch
MVP Visual Basic
http://vbnet.mvps.org/
Please respond only to the newsgroups so all can benefit.

There's no place like 127.0.0.1
"BadOmen" <ba*******@hotmail.com> wrote in message
news:j%********************@newsc.telia.net...
: *It is Jonas posting as BadOmen*
:
: I don't really get this... I'm a newbe...
: I don't have a server as far as I know...
:
: I have installed Visual Studio 6.0 Professional Edition and using Visual : Basic 6 on Win 98.
:
: I am using this:
: Private WithEvents objIExplorer As InternetExplorer
: To open a Internet explorer window and be able to know when the user exit : that window so I must make a new when an URL is pressed.
:
: Is there a way of making it work?

Jul 17 '05 #8

This discussion thread is closed

Replies have been disabled for this discussion.