Error with WithEvents...

[SilverTab]

Im using WithEvents to use a winsock object in my class
(uses as following: Dim WithEvents wskConnection as Winsock )


Now in my class initialize method, I use the following code:
wskConnection.Close


and I get an error 91...




Here is a code snippet:

Option Explicit
Dim WithEvents wskYMSG As Winsock
Public iUsers As Integer '# of users in the room
Public iPrivates As Integer '# of private messages received
 
Private Sub Class_Initialize()
    sStatus = "offline"
    iUsers = 0
    iPrivates = 0
 
    wskYMSG.Close
    
End Sub

When I create a new object, and the class initializes, I get an error 91, I click Debut, and the line wskYMSG.Close is highlited..

[BrailleSchool]

Dim WithEvents wskYMSG As Winsock

You need to change it to

Dim wskYMSG As Winsock

and then you have to use WithEvents on its own

[Joacim Andersson]

You have only declared your winsock object, but you haven't created it. You should keep the declaration as it is (even though I would have preferred to use either the Private or Public keyword instead of simply Dim). But you'll need to create it before you use any of the properties or methods of the object.

Private Sub Class_Initialize()
    sStatus = "offline"
    iUsers = 0
    iPrivates = 0
[b]    Set wskYMSG = New Winsock [/b]
    wskYMSG.Close
End Sub

However I don't really understand why you would need to Close the Winsock object in the Initialize event since you haven't opened it yet.

[SilverTab]

When I use

Set wskYMSG = New Winsock


I get an error saying "Invalid use of New keyword"... (and winsock isnt in the list of object that appears when I type New)...

[Harsh Gupta]

try the Set statement under Form_Load event.

Private Sub Form_Load()
    Set wskYMSG = New Winsock
End Sub

Harsh Gupta

[SilverTab]

I get an error!... the object is declared in the class, not in the form!

(Although New Winsock still isnt an available choice, even in the form...I wonder why)

[Harsh Gupta]

oh oh.. sorry, didnot notice that it was class ini. function.

ok, one more try, use:

Public wskYMSG As Winsock
'instead of Dim WithEvents wskYMSG As Winsock

and in the form, in which you are creating an object of this class, under Load event, use the above Set statement.

(Although New Winsock still isnt an available choice, even in the form...I wonder why)

the above method will make New winsock available in Intellisense.

but i am confused. why are you closing the winsock in th class ini. function?? it means that you are not using the object at all. (just curious to know)

Harsh Gupta

[SilverTab]

LOL Ok actually I was just closing the winsock in the initialize event so I can see if it was working easily.... at first the wskYMSG.close was in another method, and I got the error, so I decided to place it in the initialize event since it was easier to test....

it wont stay there

[SilverTab]

mmmm well Im pretty sure it will work if I declare it with
"Public wskYMSG as Winsock"

the problem is, I need with events!...since I have to code some of the winsock events in my class!...and you Cant use "New" with WithEvents

[Harsh Gupta]

ok, so if you want to use withevents, try Public WithEvents bla.. instead of Dim WithEvents bla.., and use the set statement under class ini. function.

Harsh Gupta

[SilverTab]

That's what I tried when I got
"Invalid use of New keyword" error

[SilverTab]

Option Explicit
Public WithEvents wskYMSG As Winsock
Public iUsers As Integer '# of users in the room
Public iPrivates As Integer '# of private messages received
Public sUsername As String
Public sPassword As String
Public sStatus As String
 
Private Sub Class_Initialize()
    Set wskYMSG = New Winsock
    
    sStatus = "offline"
    iUsers = 0
    iPrivates = 0
   
    
    wskYMSG.Close
    
End Sub

this is the code...and it wont work..(Invalid use of new keyword)

[SilverTab]

mmmm still cant get it to work....

is there any other way to use a winsock control inside a class?

[Joacim Andersson]

Do you have a Winsock component or are you trying to use the Winsock control in that manner? That won't work, the Winsock control must reside on a Form or UserControl. Try downloading a Winsock class instead. There is a good one at VBIP.com.

[moeur]

You can create a winsock control dynamically by adding a reference to MSWINSCK.OCX
Goto Project\References Browse to system32\MSWINSOCK.OCX
Note: don't add the Winsock component to the toolbox or this will not work.
Once the reference has been added declare like so

Private WithEvents Winsock As MSWinsockLib.Winsock
Set Winsock = New MSWinsockLib.Winsock

[mriatworldnet]

Create a new ActiveX EXE project. Put in this code:
Dim frm As Form
Dim WithEvents wsk As Winsock

Private Sub Class_Initialize()
Set frm = New Form1
Load frm
Set wsk = frm.Winsock1
End Sub

Private Sub Class_Terminate()
Unload frm
Set frm = Nothing
wsk.Close
Set wsk = Nothing
End Sub

Add to the project a form (form1). Place on it the winsock control (you will need to go to the components tab and add it first).
Now in you class you can reference wsk (the winsock control) and you will see you can respond to its events ie.
Private Sub wsk_ConnectionRequest(ByVal requestID As Long)

End Sub

Private Sub wsk_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub

[SilverTab]

Thanks everyone! I was able to do it by adding the Winsock as a reference instead of a component!