作者ellen (ellen)
看板Visual_Basic
标题[VB6 ] 不知道该如何解决的Compile Error
时间Wed Jan 11 20:08:52 2006
不好意思 因为是初学VB的新手
如果 问的太笨的话 请多包函 谢谢大家 >"<
--
我在研究一个Server端程式...可是我debug时 他会出现一个complier error
我尝试找了网路跟书籍 可是 因为语法不熟而不知该如何解决
可以请板上哪位好心人稍微提点一下吗? 谢谢!
有error的部分是标示黄色的地方
它说 "Wrong number of arguments or invalid property assignment"
--以下是程式码
Option Explicit
Private Sub Form_Load()
Load Winsock1(1)
Load Winsock1(2)
Load Winsock1(3)
Load Winsock1(4)
Winsock1(0).LocalPort = 6500
Winsock1(0).Listen
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Long
For i = 0 To 4
Winsock1(i).Close
Next
Unload Winsock1(1)
Unload Winsock1(2)
Unload Winsock1(3)
Unload Winsock1(4)
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Dim i As Long
For i = 1 To 4
If Winsock1(i).State = sckClosed Then
Winsock1(i).Accept requestID
List1.AddItem "Local Port=" + Str(Winsock1(i).LocalPort) + " RemotePort
= " + Str(Winsock1(i).RemotePort)
Exit For
End If
Next
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim mydata As String
Winsock1(Index).GetData mydata, vbString
List1.AddItem "From Socket" + Str(Index) + " " + mydata
Winsock1(Index).SendData "WinSock" + Str(Index) + "Reply"
If mydata = "Close" Then
Winsock1(Index).Close
End If
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.121.218.170
1F：推 dunn:会不会是你WINSOCK不是物件阵列呀? 01/11 22:42
2F：推 ellen:所以是说 要把他宣告成物件阵列吗? 我试了一下 好像还是不行 01/12 01:08
3F：→ ellen:不知道是不是我用错方式了~可以说清楚一些些吗?谢谢 >/////< 01/12 01:09